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

不同excel之間的資料複製。

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 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方法失敗"的錯誤訊息~

請問該如何解？謝謝。

樓主熱帖

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

3^#

發表於 2014-4-23 10:19 | 只看該作者

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

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

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

TOP

GBKEE