標題: [發問] Excel VBA讀取其他Excel檔案的問題 [打印本頁]

---

作者: jemery127    時間: 2014-4-25 22:36     標題: Excel VBA讀取其他Excel檔案的問題

大家好，小弟目前是初接觸VBA的學習者，

最近為了工作上的需求，寫了個讀取其他Excel檔案的VBA程式

主要目的是要從目前的工作表讀取Book3.xls內的資料並呈現，

程式碼如下：

Sub Test()

1. Sub Test()
   
2. 
   
3. Dim cn As ADODB.Connection
   
4. Dim rsT As ADODB.Recordset
   
5. 
   
6. Set cn = New ADODB.Connection
   
7. With cn
   
8. .Provider = "Microsoft.Jet.OLEDB.4.0"
   
9. .ConnectionString = "Data Source=C:\Users\Eddie\Desktop\Book3.xls;" & _
   
10. "Extended Properties=Excel 8.0;"
    
11. .Open
    
12. End With
    
13. 
    
14. Set rsT = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, "book1", Empty))
    
15. 
    
16. Range("A1").CopyFromRecordset rsT
    
17. 
    
18. rsT.Close
    
19. cn.Close
    
20. 
    
21. Set rsT = Nothing
    
22. Set cn = Nothing
    
23. 
    
24. End Sub

複製代碼

在程式執行上沒有出現Error, 但是問題在於無法在目前的工作表上顯示，

請問各位前輩是哪裡出現問題呢?

謝謝

---

作者: jemery127    時間: 2014-4-30 22:12

回復 1# jemery127

請問有人對這問題了解嗎? 是否可以給點建議呢? 謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)