返回列表 上一主題 發帖

抓取另一個excel檔資料

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
1# 跳轉到 »
發表於 2011-3-28 13:55 | 顯示全部帖子
這類操作個人較傾向於ADO+SQL
Sub test()
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
With CNN
.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"extended properties='Excel 8.0;hdr=no';" & _
"data source=D:\外部資料.xls"
.Open
End With
[A1].CopyFromRecordset CNN.Execute("select * from [SHEET1$A1:A10]")
End Sub
或者直接用資料~匯入外部資料，手工查詢！

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題