標題: 抓取另一個excel檔資料 [打印本頁]

---

作者: imzues    時間: 2011-3-28 13:22     標題: 抓取另一個excel檔資料

請問一下，
我想抓起固定路徑下的excel檔案的資料
我要怎麼用巨集寫
拜託各位大大指點一下

---

作者: GBKEE    時間: 2011-3-28 13:38

回復 1# imzues

1. Sub Ex()
   
2.     Dim MySheet As Worksheet
   
3.     Set MySheet = ActiveSheet
   
4.     With Workbooks.Open("d:\test\外部資料.xls")
   
5.         .Sheets(1).Range("a1:a10").Copy MySheet.Range("a1")
   
6.         .Close 0
   
7.     End With
   
8. End Sub

複製代碼

---

作者: chin15    時間: 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
或者直接用資料~匯入外部資料，手工查詢！

---

作者: 老夏    時間: 2011-3-28 20:48

本帖最後由 老夏 於 2011-3-29 12:12 編輯

最簡單易用的方法:物件連結法

九大功能表
插入>>物件>>自檔案中建立>>勾選連結>>找URL>>確定

---

作者: imzues    時間: 2011-3-29 07:30

感謝各位大大的回覆，問題已經解決了 謝啦

---

作者: 7777    時間: 2013-3-17 18:00

回復 2# GBKEE

煩請大大 請再次協助
抓取另一個excel檔如 檔名有所變動時，
及不同工作表資料時，應 如何處理。

Sub 轉檔1()　'原方案
    Windows("報表1.xls").Activate
    Range("A2:E24").Select
    Selection.Copy   
    Windows("報表2.xls").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select   
End Sub


Sub 轉檔2() '修改方案

   [G2] = InputBox(" 請輸入  # 檔名 #", " 轉檔： 今日報表")   '手鍵 22

    Windows("報表1.xls").Activate   '原始檔名
    Range("A2:E24").Select
    Selection.Copy
   
    Windows("報表" & [G2] & ".xls").Activate '預 複製檔案 之 檔名可否為 [變數] =G2 儲存格之內容
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select      
End Sub
   
拜託 大大指點一下 感謝!!

---

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