返回列表 上一主題 發帖

[發問] Excel VBA讀取其他Excel檔案的問題

jemery127

帖子
3 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
Windows 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2012-5-13 
最後登錄
2015-3-30 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-4-25 22:36 | 只看該作者

[發問] Excel VBA讀取其他Excel檔案的問題

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

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

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

程式碼如下：

Sub Test()
  1. Sub Test()

  3. Dim cn As ADODB.Connection
  4. Dim rsT As ADODB.Recordset

  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

  14. Set rsT = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, "book1", Empty))

  16. Range("A1").CopyFromRecordset rsT

  18. rsT.Close
  19. cn.Close

  21. Set rsT = Nothing
  22. Set cn = Nothing

  24. End Sub
複製代碼
在程式執行上沒有出現Error, 但是問題在於無法在目前的工作表上顯示，

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

謝謝
收藏 分享

jemery127

帖子
3 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
Windows 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2012-5-13 
最後登錄
2015-3-30 

論壇贊助勳章
2#
發表於 2014-4-30 22:12 | 只看該作者
回復 1# jemery127

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

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題