麻辣家族討論版版 » Excel程式區 » Excel VBA讀取其他Excel檔案的問題

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 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()

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

複製代碼

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

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

謝謝

收藏

小學生 Rank: 1

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

論壇贊助勳章

2^#

發表於 2014-4-30 22:12 | 只看該作者

回復 1# jemery127

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

靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。

返回列表下一主題上一主題