- 帖子
- 3
- 主題
- 2
- 精華
- 0
- 積分
- 10
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-5-13
- 最後登錄
- 2015-3-30
|
[發問] Excel VBA讀取其他Excel檔案的問題
大家好，小弟目前是初接觸VBA的學習者，
最近為了工作上的需求，寫了個讀取其他Excel檔案的VBA程式
主要目的是要從目前的工作表讀取Book3.xls內的資料並呈現，
程式碼如下：
Sub Test()- Sub Test()
- Dim cn As ADODB.Connection
- Dim rsT As ADODB.Recordset
- Set cn = New ADODB.Connection
- With cn
- .Provider = "Microsoft.Jet.OLEDB.4.0"
- .ConnectionString = "Data Source=C:\Users\Eddie\Desktop\Book3.xls;" & _
- "Extended Properties=Excel 8.0;"
- .Open
- End With
- Set rsT = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, "book1", Empty))
- Range("A1").CopyFromRecordset rsT
- rsT.Close
- cn.Close
- Set rsT = Nothing
- Set cn = Nothing
- End Sub
請問各位前輩是哪裡出現問題呢?
謝謝 |
|
發表於 2014-4-25 22:36
| 
