標題: 不同excel之間的資料複製。 [打印本頁]

---

作者: tku0216    時間: 2014-4-22 23:02     標題: 不同excel之間的資料複製。

各位好，請問該如何使用VBA，撰寫不同Excel之間的資料複製？
譬如：我有兩份Excel表，一份是表單、另一份是資料庫，我想完成使用資料庫填入表單的功能。
我目前想到的辦法為，需要使用到資料庫時，開啟該份Excel表，複製對應的資料進入表單。
語法為
Filename = "D:\Users\issac\Desktop\TQC+.xlsx"                                                          '讀取資料庫路徑
Application.Workbooks.Open Filename                                                                           '開啟該份檔案(此時兩份Excel共存在一個檔案裡)
Workbooks("TQC+.xlsx").Activate                                                                                       '切換至 TQC+.xlsx

但下一步，當我嘗試存取TQC+.xlsx的資料時，卻一直沒辦法完成...我直接想到以下的方式：
Worksheets("102").Range("a1").Select  一直出現"Class Range的Select方法失敗"的錯誤訊息~

請問該如何解？謝謝。

---

作者: GBKEE    時間: 2014-4-23 05:02

回復 1# tku0216
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.      With Workbooks("TQC+.xlsx").Worksheets("102")
   
4.         .Activate
   
5.         .[a1].Select
   
6.      End With
   
7. End Sub

複製代碼

---

作者: tku0216    時間: 2014-4-23 10:19

版大您好，感謝回覆，這樣就可以選到我所需要的工作表了。

另想再請教，嘗試在您的寫法加東西：
With Workbooks("TQC+.xlsx").Worksheets("102")
        .Activate
        .[a1].CurrentRegion.Select
     End With

上方紅字段的程式碼是否可以使用[Ctrl+J]的方式自動帶出？

---

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