返回列表 上一主題 發帖

不同excel之間的資料複製。

tku0216

帖子
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方法失敗"的錯誤訊息~

請問該如何解？謝謝。
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

tku0216

帖子
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

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題