PDA

View Full Version : مشكل در باز كردن Excel در vb6



saeed_yari
سه شنبه 28 خرداد 1392, 18:09 عصر
سلام دوستان
من يه فايل XLS رو ميخوام باز كنم و محتوياتش رو توي فايل mdb بريزم و از اين كد استفاده ميكنم



Private Sub CopyButton_Click()
Dim ExcelFile As String
Dim AccessFile As String
Dim WorkSheet As String
Dim TableName As String
Dim DBase As Database
Dim SQL As String
ExcelFile = App.Path & "\tt3.xls"
AccessFile = App.Path & "\words.mdb"
WorkSheet = "tt3"
TableName = "Table2"
Set DBase = OpenDatabase(ExcelFile, True, False, "Excel 5.0")
SQL = "Select * into [;database=" & AccessFile & "]." & TableName & " FROM [" & WorkSheet & "$]"
Text1.Text = SQL
DBase.Execute SQL
MsgBox "Copy Completed To " & TableName
End Sub


و در خيلي از موارد بدون نصب EXCEL بخوبي كار ميكنه اما براي بعضي فايلهاي XLS اين پيغامو ميده
105772
حالا نميدونم بايد چكار كنم ممنون ميشم اگه راهنمايي كنيد.

http://barnamenevis.org/images/misc/pencil.pnghttp://barnamenevis.org/images/misc/pencil.png

m.4.r.m
سه شنبه 28 خرداد 1392, 23:21 عصر
احتمالا تو ورژن ایکشل باشه ، شما از این کد استفاده کن حتما جواب میگیری :

Private Sub displayExcelInDataGrid()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String
Dim sFile As String

CmdOpen.ShowOpen
sFile = CmdOpen.FileName
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic


sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn
Set DataGrid1.DataSource = rs
End Sub

Private Sub Command1_Click()
Call displayExcelInDataGrid
End Sub

saeed_yari
چهارشنبه 29 خرداد 1392, 16:15 عصر
ممنون از توجه و جواب شما دوست عزيز
اگه ممكنه لطف خودتونو كامل كنيد و بفرماييد كه به چه روشي ميتونم نام sheet ها را بدست بيارم؟

http://barnamenevis.org/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAOEAAACICAIAAAC eKhu/AAAbqklEQVR4nO2de1wUVd/Af7sLu0BpKmloguI9UxMqbwRqoBaIgrAKCogKSmiSl6zs9vaQr 2n2fiwrzZ4u6qNlmmbRTe158umiCQpyE3VXlr3fuIPI9ff+cdZ h2Z1dVHbdCc98vh8/M2fOnDnnd75zZmZnRgDpRCduT8CSFHGONzuPNzsPZl2EWRchvM RElAxiymChEpI05F/eEj0k6WChBhJ0kKSDhBvEGThPBXeJ13IayzB2DGw0QQXRBojQQ LQKolUQoYFoA0QYIEIDEQqYqYSZSohQQIQGIjQQYYCZepiaf1O OEjWFK+pEa1u9N+KAf+CAf+DQTTjyHQzYhgHv45R3ccq7GPwBB n+AU3fahGTgMnYq73JcHpxbjV7wByYrmH9tEbDNkqGbcOgm9N6 IwlUtMDUfAv605yhvdh4/USdcUcdfVS1a3+a9ERlN/beg/xYc+Q4+vL2dgPdNmCdSuj0j3zFhvkhUI8MZsYVh6KYOi8QoBqK Z90YUZbSKMlohrhaCLAdUk6Mw/SxEySHmMi/VwEs1wIpyAn9VtWB1vSCjSbS+Dda1CtaiYC2SedH6NiaRzJBE4 Zo20VpTTsptwFvVxmVIDUm/k04n8NKb+KmNgrQ6QWo1L7keFtfAwnpYXAOLanjJ9aaU5AoTCU ZIroDFNSDWmy4SEoyQYIRYBYQWQLDEhqMR52BhaTtJGliqI77y V1UTBKvrbcFfVS1Iq2sntZpyt7DMKFhmFCwx8Jbo+Yk6fqIOFm ogTg1xahCrTMQqTMSUQUwZRMkgSsaLlEC4BMJL2u98QgtgYjb4 HLJ0FAJPQbgEIs5BzGUTZpoyppp4pqYdJnFFOS/V0OEo4To6yu2zUGNJnBrEKvf5iuU7dCpjs627H1vT8q0y92nnI DgHJmZD4CkIPAV9P7dyNPAUTD/Lm51ny1EGCy95qQZYqjPd4CeZNYAcRpTuBzMimg+QUXKIki1/V9NUJjG8vU73crJmjVidHqla/pRyyZPKZWHKxSHKxSGKhCBFQpB8/qPy+Y/KY8bLIkdJZgzKi3mssiR/+eZSCPgTAk/B6B9hxGErR4cdYHNUyeoo46WZmhpI6nhIxZkN8tyECTQHIWdD7 sPUNkpOTtyIaHxnQ+W+7VUH3q/YvcnwzvP6zav1b6TpXl+ue2Wp9qXF2peStM/Ha9bOV6+OUqU9rUyeKhMH5s0c+kPEeJW+0eTokJ9h2AHo+WpHR 30OQeApCM7hz7B0lLdEb3KRMXWJvj0xqePIb32oUbqlo1EyiJL fsFPOXFwiou711KqDO6sP7674ZIvx3Y2Gt9fqNz2reyNN+1qq7 pWlupeXaF9I1K6PV2fMU6XPVi4LLYufmB8+6qtH+yIiBPwJY85 04ijMuthhEE3SESMJ5KKYXBe3n9xZz+8uHybpOOpEQeVWyCBCB hEyRNSuj6v4ZEvlnnfKP3jdsHWNPjNd92qK9sUkzbp4TUas+tl oVVqEKi1cuSxMmTxVkTBFNv+x/NmjD0/wQUSYmA1jzsDgMzYcDfgTpuabHibFKtofHZlpKlhiML934yfq2 MdRl/tHcSrRqg6CRiogUsE4qsmYZ3z3JeOOVwxb1zTk/BcRNWvjNc/GqNIilSkzlYunKxZNUcRPQsTaE1/LxQGlMeML5oz5eoovIsKEfJOjIw5bOTrgJEzMhqB8CJdATBmIV cTREwXX/dcaGEGHPV9+orCRmMpP1GVfbcq+2mT6oeGOOHr8QgMiZksa7eS RaJoRsddiNYhVvRarEVGiaSarsiWN9re9pZqU17ZYJJrfqEo0z buO191qsaYakueH3IfY2dFRdXqkYfNqw9bn9JnpTDRUaZHKlFn KxdMUi6bI5z/GpMvnjS2dN64g0spRlnF0wEmYkA/TJBAugVgFiFUQr4UEHSJu/TjPbYGUePlWVj0iejz8KeNoToFONGInP1Fn9jDXWZruOl6HiJP mHfXyyRQN+3Dz0RpGPuts4eJ9EHU19A0DIv5zb47HoO3EgJx8n WjYh12vDImd58C3rBO9fDK9fDJXrstCxBOnNbfqqKNq6ETsOqp Knal7I02fma57LVX7QhLjmXJJqDIxWBE3oV3QOSPlUaNl0WMKI kd/PXmgydGH8myPo4yj0SowOWpERGlpufvkLPIjrVTXQvqAKCtINH qM2OkxYqcg0ShINEKCzqmaMgbwnrrALBL5zCFevpx5kh92dsO+ KuKr+/ivyFrRsA8d6KiXT6adRLIoGvXPWyrZUTV0OuaORnRwVLsxWfvK Uu3GZO36RZrVsYxqioQp7YJGDpNHDJFHDpdFPVQ4+6Ejkx9ERH i85CYcjZJDnJoMooGvVJIco0I+c19WMfwF0+KUGR+7L6tgtieC vvhlnUTbjIgSbXPom+UQrwWxnmTYdfyaRNMMYj2I9buOX2MSSU roG5XZkiZElGia/VcabWVDs8l60QJE/OVXqdukn49fuE6k4YedN8/PulPz0sznycUDIh6/cN0is5dPpsV+mcQN+2rJEU4WrQuxroNFizbsqyVbSTTNoW9UWj fTxTCjaYSGMRURFYlPaNfHa19I1G5I1KyNV2fEqFbOwY6TMnqk cu5QxezBisghZXOHF4UPPzqxv8lRMpSO/tHK0cFnYFIJzFRCtMr0/DTBGPh6FYnytvd+d1skf+uHBqm2iTgqEF9hNPXyyXzxyzpE3Lr vqsfg7YePFW3c/Bt/1nmIM5AMi1IOzVpxymPw9s3f1CPigudPh4v3IeKWTy9CnKG8th URH3j0k3N5qvQXT/DmSlmzMaWRM6n1ojnZ0iZEFI36FBFzCgxMBmYT004Db+w0UmJh mIWCHoO2j56wAxFzCvTWmS0cNZ8WpRzyGLSdtRD7dSCKb9kj9R h0I6Rh513vZQdHDR1RQaQCERXxEzXPRmvXLtCui9esWaBePU+d HqlaMYuJiWrBGFXMCFXUEFWknypykHyOf/HT/kcf74eIMOWSaSgdcRi837btKHm6n1yx4WADIm5773eprFIY/KNE3/r2Pgkivpx5UjhfKlxRxwRUcuMawH3CDxBXIRyz323KCYhrl1jw 5Fn+rAukV8giIlZUXnN/PEuibSHeQ4xaNHyXIOQ31mzmpZGXLC0Wzdmwv574QWorGr7LYh PrnVoUaD6/60QDqRKZSGmsezc/bF7OPImIh48VCZ48y1qI/TqQtV4+maTtTEi5gri6HTNTEVEeG6h6JkLzXKxmzXztc2JNxjz 1qkiLQ1cjHqGZ56+eM1AdOVAxe2DxzIHfPNoHESFIBo+XwNBiG P2jlaOD8iFYAjOVIL7h6OKaFw42IiI59OPTv0fEh0I+N/V62ClzR9s7bGE9LKyHRTWE9nSrRTLvOXCL/3O1UlklIh78rcb/uVpb2eyXZkHgy3WI+MuvUiKB2xO/WGxivVPW/Xr5ZB7Pb0bEBc//5TlwC2sG8/2y1lA49gvWQuzXwewYqOU07aZWQXQVIpbNfVi5LEy9co4mY54m I0a9OrpdzdRgMtNWX62N9ddGPaiJ9FGG+1x8st+3AfchIkwrgy AZjJPA6B+h73tWjgbJYKYSxHoiKCyuOV5kOpSl2mZElKqvk9j9 8qtUFHZKmN7IxLG8rg1N91LXyFtYBCYDWWQGSLKqovIamefPV6 W/9Asilldd589X2cpmUZrFogVM87x8MvnRV1k2iValv2jaKS9aBQ vb15rPMzOC0POsGUyH5cJ668ROC7FTByYI5uVzkY6mIqIsYrgi KVi14in1qjnqZ6PaBU17UpP6hHZp+329Lqq/dnY/5Szvkqm9jo31QkSYroUguQ1HhxZDkAxm6iHaQATlJdczjr71cw sibnvvd88hO4ijnuP2Cle1MAF98etmRHw58yQvpfHg2ZbNWc2Q 3AjJ7RKTxc1ZzYi4KOVQ6mdNpgIHbj1eaMpPdPQcuJU1m3Vp5b Vt5osWHPyrBREPHysyz8CUYL1TSG6U6FoRcfSEHaFbmpicu/7dQhJJZci8rb2b15BsSCrAWghrHZgSNhw0hZS0hQkpJ0gwgzFV XAfiOkQsneEnj5ugXPqkasXTjGTqtBmaFdM1KUHapY/rk8a2axreWx3W42LQPcceFiIizNSbNA08ZcPRCA3EGYiggiXXm HgNe62ZhNUj5ARJ9HxkryijlcnAT297afdVaWk5Ikp0bSMisty DfualtEecl9JI2P2NnCRu+ULl5ZPpHvSzeKep27JLW0dP2OHpu 5U1m3VpzIZM4eYs39OEiCvXZQnHH2QSmRJYdyre2VRR2YCIX51 uMN/X7iOliPjWsbrdWVpEDBfv4y/UhW1rqqi8tnJdlvlO0Wwqr2vbfaTUyyeTVMC6EPH2Sus6mFne8 uJOaXtIw7PcJ5+A5BZuQGRt6aBs/HWIa0DEq9N8yqLHKRKmKJc+WX/qe0RUp4aqU6erU4I1SydpkwN1CaP18cMQseGnPbqneqqmeV6c4 P7NSD4iwqxKmK6FSXoYc4b1XC+HCAPEVRBH+amNgrQmcvkvXNU iWmb08skUppaL1raSRNHaVuGaNjIvWI2C1eg+4zePITu8fDI9h uwQLC7np7fx000ZyDxBOCnLVGzwSZLiNqfQVOaoj5kNrbNZl8Z saF5++9qnc7x8Mt2ezjFPZPKz7tRtTqGn71Yvn0xR4CHzkkllh MEnyYwgVsJPbxPESjx9t7KWT/D03SqclGXRcPNCWOtg+qUitRVSW92m/+bhv8PLJ9PDfwdvkZEkcgtG3IRGSGhEROkT98sihpfFBigWTVY mBSsXByuTglRJk1VJE9WJgZpFY7QLhutiB+mi+uvCe2vD7lEGu xc/yj86gmdydKYeJukh4E8rRwfkMo6SQZQ4KljZLMxoEmW0CteYvg Ah34cwkPT27xxWt8PqDaXbwGoqIpZM7HkldKB09qir8x4pFT8q W/CYTBwgmx9QNn+cXDxaGTNcGTVINbu/6ilvVWgPZYhINol/4RH4aiggIsyuhVmVMEnPdq7v6CjRVJDWJEhrEq5qIR9Dida2Wj tqX1Mu4/I+7gZYa6oqbz339KicSd45IQ/mhvnnzhqeO2tE7sxhebOGXpjpnz/Dr2jGg0VP9iue5l0U3LN4smfR424XxvP+OxoOPTHI0lHL357MH CVfSJGhlIymwvRGS1PXmkZWW4K6PHwUZ8N60l++s7aiOO/7sFEHHu5xeHzvQwF9Dgbef3B8n8OB3l8Heh8J6HVsfI9vx3llj fU4Nlp4bJQgayTvyDA4/MQgfWHu8h3VnToqYxwl/wqSqwXJ1YIl1wRpdSZTCataCIKVzdaQBpAxmMu4/kru706H+yfTnZP7omvLP6zBW5xUxpbl26vd59a0X4/aczRSAbGKG68qG5gPTNu/ADT/8jOtiZduCaS2kptc1/9E0gkuvzvu9MaZqyQ0mm6S4q+bfnhacA3iGiCuARZcA3EdRNeZ/iUzDNFVMLsSoqtMa2fXmgZOC+w5GiSDCBkE50BoLi8sjz8jjz8 jj/mPdHiREgJEySBS0f6Kq/WL2eavbFFug5kyThMhgwgblQyVwDQJTJNA8A1CLpsWp92ApIRc himXYMolmFRiekw/qQQeL4Eg2U04GpoLobm80FxeWB5jKiskAy8sj8fkN9uQ45Bmch Me53Fi88mzUOv7etFjl/ulV3iIpUZdCYXiWiDoMvgfBO9t1FEKR6GOUrgOu6Oe1FEKZ4Bg Cfh+Th2lcBfqKIXrUEcpXIfdUY+AS9RRCkegjlK4DnWUwnXYHR UFlFBHKRwBgiXg53xHy/Xnaqo+cnlrKX9H7oSjFcaf29ruQxQ1NQYpywpc3mbK34s74Ghh bS1cbwBEQITs7KE7P/jW5c2+/XgBuLwOdxtOd7S6QqzXQ2uTAHEM0TQ6Zu5bbx2+Q80zm7pelJE 66gqc7Wi2XgMGHbS1PoCYhm09EOHPP/r28d547uwZp7fNCT5RR+887I56OMjRamOyqgxqygHRBzEA0b+p HhAhPDw27Zndzm2YDZkshlXzRdZ08xTzYu0Mz3Y2tF+I9VoXms EdIEQCvnuc5ahOATolNNa5IfZG9EQc1XYdEOE/x33uuW9DUX6OExtmwx6LeWshrM/pdiSz3hHrhhZS3kxOW024C3Gio9X6xZpSqNYCYk9ET0RAHIjYD +sA2+Dpp2JXr97rxIY52VFbV7rWq2xpZ6cylA4hdZKjBm2RXs7 XyQDrBYjebQ2C337iI3ohDsXrPETIOurb1+e1wvyzzmrYnRpHO 90vdbSLsDva9XumKl26+jLUqQGx5xcHegPwAADAQyEfiujdUgX YDNOmxT2/4Y4Opa4619tZaysna/3vTiBYCn5OcFQnBb0UsEqA6A0gBPD0gvEAAQmR4xD9sBawCb79 crB339cll3Od2DyrM7L1IusM64YW2axP9PZ3YWSz0FZO68W7Fq c4Wq15Rn0RqmTkSvQeAB7A/T4QBhAa9cTDiH0R+6ERsBamT41/5dUvXR4FlrhQPzgDu6NdvB41XLpHWwJNWgGiNyK/l5cQwLcvhABMf1Y8BFGAOAzLARtg/8cj/AZnOnUovc24UEc5g613827f0Sr1i6p8qL4CeK0n+dF+4Zx7AR7 x8wgfwJ+1//+8EQHRDxv7NqsAa+CR8Uv/d/NBlweCwlkc76i+yE1bCNdVbtjsjVUCRMjaxwMYO9E/LXjkXEUOHxsAG+5FHI4awGr47P2HBvpuUsjyXR4LCjdx8DvOlc oXlOehvAiwogde64FawFbIOwkAQ6KmvRcWMAebAMsBdYDoh/XeKIfGMggMTH7n/+hQSmHH1rPQ23RUV+CtPg+1l3hY3wv17qgGrAbUwsgHhj2z6Hh KVCDWA+oAlYB1PRH9mq4CVsIHW8aNGJtZVkpf26Ow4EhHq5Sbl WdBlwstKg+s6YFKQBWgFhAhLswP4JWv3u2HTYBqQAWgxg3Rr03 rcf0KoAKGjUz94P1DLg8HhYPYeO8p8HYcLS/sqcmGmiLAil6o90A5oAJQCdgG2172BUg/f0SIjYBKwDLAMsCGftj4YONFQB18uGXsqLGZOnWxyyNC4RoQLH WMo9WKt9RnwXgOWspEWN0by3hYClgKWAZYDX8eulcEEcazfKwE LAMsBZQCqkWIw1AuRCnUFsHDY5Z+tOsbl0eEwjUc5mjFhf7av6 A2H7C8N2o8UQooBbwKWAqogusXBb69QrEUUAt4FUxrJYAN/bHRt6kQUAvb/ycgYOJmrYoOpZQOOMbRKnmm9jSUn4W20nuxog9KeXgF8AqgBFA KWAaohP981gdVgGWAEsArgFLAEkC5EPEhVN7TUgwohVEPpfzz4 7/xlyQUZ8Du6K3+Pmo47a75Axry+Gi8HxWeeAnwEuBlwCuAVwGNg OWA9YAGQC2g5MaqS4AXAWv6Y+vw1kJAOXy65aGRj2yiV6UUcxz wHn6l7E3lf8D4J7Rd8UJtb5N5FwFLAC8D6uGvL4UAvQFEI/sPbikCLAO8BFgCeBGwCFAiwJbhWOqFBVB/HsaOXbb9va9cHhcKd3CAo+XZvupfofovQEUvlAqxCLAQsBiwGP AyoBaG9e8NAAD9AQJfSvTHKsCLgMWARTfQ3Y8VDzbmAJbBm+sn jH9sk1pZ5PLQUDhCV397qlB8qfoFdKeg5YIIFT2wGLAAsPAGJY AyAHAD8A4YsMTvnoxXlyZiOWDxjQwFgAWAl92xyrelWNhyHmpO Q9/+q/d+ftTloaFwhK46WlW8SP4TGH4FLHTDS25YzOvAJR5qIHKKD8AD D7gv+/e3+NMnc1FFxtEbeYp4WMxD2b1YJKo/A3gR4ubMCQnd5PLQUDhCVx3VnR559XtQHYfq33nXTkP9aV79X7 z6v3hkpuEsDy8AXoLMZ/xfWDL/u53BmA+N2XDtL2Dy1J/hXTsDDWeg+neoPAVYANs2PCq8b80f//3N5dGhcIGuXo9WFCwr+houH4OrWVD6HQtl34PqODSdhZZsqD4F 8h9AZpXz6ncgywLFT1D5K2AuRM2K7v1Axrvv7nd5dNhDZvdjpq 68eMrxl1Zd1XAIkXT1HWfNH1MufwPZ+/nn/sU7dwDO/cuMA3DuX3B+P+QegNwv4Px+OL8fzh2A9mw3Zs7vh+KvQPot/42VE+7ts8538DN7PjviwIA6sPttFWXnmxCX17kr7brzDbdc23V HjbqSI18ffWLyyoBHkgPHs7K4Iyx5AsYnPx6Y+Mi4JT3vXzvAN 33+gjdVikIHRvwOO8q1OnelXXe+4ZZrbTh6y89CL+Sd+/TTbz/77Nu9e77bu+e7vXu/27vXbGZvx0Tr+T0m9nx29OtD33f9tydb/X0zn+DZ/5LuZoqy9eGe9Va2srEWaFHJmynczi7sN8eFDXeWo1zDur9tJVp 3vP3S7EjjkBQ7O3VgUfZTXNtwyzrcbY7aOo5ZA2cr/Wa2ve2tOm2C9VpbhbMW1XVHnd1wyzrcVY4y87Z6xVawbqZHb88 Dxzp6M9HouqPObrhlzrvQ0Vvtp9vohq6k2Ok5W5lvqSgHOuqkh lvWobs6aux4frFIsc7TabA6Le0mu8FOHViltONlp82xtaH9mnC h4R0q0I0d7WZYdKT9fu1OUEf/NlBHqaMUjkIdpXAd6iiF61BHKVyHOkrhOtRRCtehjlK4DnWUwn WooxSuQx2lcB0IkbL+DTHqKIUrUEcpXIc6SuE6EEyvRynchjpK 4TrsjoqooxTOQB2lcB3XOArdfbJuMnbraU1GSjd01HXxdO60Ji PFlqPVlfJuyeEvP3Kyo1KWv8V4Zxx1eXCd1Ft2HHVeR7qQbu6o y+PrjN6ijjoW6qjje4s66lioo47vLeqoY7HxN8Soo13oLU45yl oZZ7TaiU3olo5a/wZka94ZvXVnHIWb+y8hqKO3H1/nOcqqo/WM83qLOupYIIT174r8bR217hIw+1+ynN1hXHDU4hzCNNzO8wWH tNp5Ub2LHL1jI8odc9T64Zb1OcRWusNb7byoUkcd31suHEdtWf s3d1Tqsmeh9FzvwJbaaiB19PbjS++ZHNhMo20Xu62jzn7H2amO Gu/u35664z0T23Omv7ujroKDv+EzAXd2q51Yeeqow3uLOurgylNHH d5bHHT0DrTaeeWzOyq6xb8Xest7pY52I5z/LJT9PXzq6O33FnXUsbjS0cNfftT9oI463haXfF8PAGsyUrorth x1+fHj1CPTyY664p6pe0/WTXb5keNsupujFMrNw+6oKJA6SuEKECJh+X/zqKMU7kAdpXAddkfp9SiFO9B7JgrXoY5SuA51lMJ1qKMUrgPBE he8m0eh3DzUUQrXYXcU+ud6BFzqM09FTBXN1ZsDT1VTKHeIYAm M/Tebo/2OgN/n4Pc5+O25MWOfPR3pLL9vZ3Sa32KPnWawLHCPJZ20yArrEuwXy JLBPrca8043uY1ddNqPXYth53wOfvvAbw88+LGVo/d/BN7bKBRO0cFROtGJyxN1lE5cn/4f1e0CzjtIZhAAAAAASUVORK5CYII=

m.4.r.m
چهارشنبه 29 خرداد 1392, 23:13 عصر
از رفرنس های وی بی Microsoft Excell رو به برنامه اضافه کن و در فرم یک لیست باکس اضافه کن و این کد ها رو قرار بده :

Private Sub Form_Load()
Dim xl As New Excel.Application
Dim xlsheet As Excel.Worksheet
Dim xlwbook As Excel.Workbook

Set xlwbook = xl.Workbooks.Open("C:\Test.xls")
Set xlsheet = xlwbook.Sheets.Item(1)

For Each sht In xlwbook.Worksheets
List1.AddItem (sht.Name)
Next

xl.ActiveWorkbook.Close False, "C:\Test.xls"
xl.Quit

Set xlwbook = Nothing
Set xl = Nothing
End Sub

mehran901
شنبه 01 تیر 1392, 11:10 صبح
اینم ی آموزش نسبتا خوب
http://www.dreamincode.net/forums/topic/174451-using-excel-with-visual-basic-6/