brabus

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 128
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-11-29 21:07 | 顯示全部帖子

[發問] 如何複製表格到別的工作表

本帖最後由 brabus 於 2011-12-3 21:48 編輯

如附件活頁簿1中所示
我想在按下同步按鈕後
把活頁簿1儲存格中b1到d87的資料
複製到活頁簿2中的"資料確認"那張工作表的b1到d87儲存格(未來如果資料增加的話,要可以全部複製,不過只會用到b到d的3個欄位)
現在活頁簿2中的"資料確認"工作表被"隱藏"vba 的密碼是twbts
先不考慮活頁簿1中的資料的內容,因為到時會key入正確資料
要考量的是這2個檔可能放在任一磁碟中
不限是在桌面或是"我的文件"中,可能在d槽或e槽......
未來也可能要同時存到活頁簿3中的b到d欄....
請高指導一下要怎麼寫vba

活頁簿2.rar (5.53 KB)

活頁簿1.rar (11.07 KB)

樓主熱帖

jeason

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 128
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

2^#

發表於 2011-11-30 16:18 | 顯示全部帖子

回復 2# Hsieh

請問一下Hsieh大大
你所說的"fs = Application.GetOpenFilename("Excel Files (*.xls), *.xls") '開啟目的檔案"
上面這段是不是指的是取得現行檔案的路徑嗎?
那2個(*.xls)是什麼意思????一個是現在的試算檔名另一個是第二個試算嗎?
另外 .Sheets("資料確認").[B1]指的是copy到"b1"試算表的資料確認表格嗎???
謝謝你哦

jeason

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 128
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

3^#

發表於 2011-12-3 19:26 | 顯示全部帖子

回復 4# Hsieh
有上網找到了GetOpenFilename的用法
感謝Hsieh的指教
我另外作了修正
要把h21的到j60的儲存格copy到資料夾的同一個位置
分享給大家
Range("h21:j60").Copy .Sheets("資料確認").[h21]

jeason

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 128
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

4^#

發表於 2011-12-3 20:35 | 顯示全部帖子

回復 4# Hsieh

請教一下Hsieh大
我想到一個問題,那就是人名似乎不應顥示出來
所以想把按鈕搬到空白的工作表2,想說這樣就不會讓人生看到名單而可以在背景作業
所以把式子改成
Private Sub CommandButton1_Click()
fs = Application.GetOpenFilename("Excel Files (*.xls), *.xls") '開啟目的檔案
With Workbooks.Open(fs)
Sheets("sheet1").Columns("B:F").Copy .Sheets("資料確認").[B1] '複製資料
Sheets("sheet1").Range("J16:K300").Copy .Sheets("資料確認").[J16]
End With
End Sub
執行後結果出現"陣列索引超出範圍",請問我該怎麼修正呢

jeason

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 128
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

5^#

發表於 2011-12-3 21:55 | 顯示全部帖子

回復 7# Hsieh

你好我己經修正附件活頁簿1了
我上次問的是在活頁簿1的工作表1設按鈕
把資料copy到活頁簿2這個檔案上的"資料確認"工作表中
現在想把工作表1這個按鈕移到同活頁簿的工作表2上
因為不想讓人看到工作表1上的人名資料
想在工作表2上按按鈕,就可以完成上面原來所說的複制的工作
謝謝你

jeason

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 128
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

6^#

發表於 2011-12-4 13:25 | 顯示全部帖子

回復 9# Hsieh

檔案存在啊,
我試著調整了一陣子
,現在執行後出現With Workbooks.Open語法錯誤
我把新檔上傳了
請您幫我看該怎麼調整修正
謝謝

活頁簿1.rar (11.78 KB)

活頁簿2.rar (3.57 KB)

jeason

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 128
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

7^#

發表於 2011-12-4 19:21 | 顯示全部帖子

回復 11# Hsieh
Hsieh大大跟您報告
後面的指令都一樣
我是少寫ThisWorkbook..所以這樣他會抓到別的工作表去嗎??

jeason

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 128
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

8^#

發表於 2011-12-5 08:04 | 顯示全部帖子

回復 13# Hsieh

了解
感恩你的回覆
謝謝

jeason

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 128
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

9^#

發表於 2015-11-26 22:37 | 顯示全部帖子

想再問一下
現在要copy的檔案變多了
有時會忘了那個己經複製過,那些沒有,或者按錯,而有漏掉沒複制到的檔
結果會出錯
請問有沒有可能寫一個指令
就把資料夾"小肥肥"裡面的20~30或更多檔案的"資料確認"全部複制好，不用一個一個點選
再去複制呢?
謝謝

jeason

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 128
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

10^#

發表於 2015-12-7 13:10 | 顯示全部帖子

回復 16# GBKEE [/b
對不起我這幾天比較沒空
到今天才有時間來看您的回覆
可是我看不太懂您的回覆(哈哈,我比較笨)
我把需求再說明一次
附件中解開有有一個excel檔案叫我是主要資料,這是要copy的主檔
檔案夾中有一個"檔案資料"夾,裡面應該有20~30個檔案(我沒有全部作)
檔名不一定,但都是excel檔
我現在想要在我是主要資料excel中作一個按鈕
他可以把"我是主要資料"中的"資料確認"工作表
copy到檔案資料夾內所有(20~30個)檔案的:資料確認"工作表
檔案資料的放路徑不一定在那
但可以用Application.GetOpenFilename("Excel Files (*.xls), *.xls") 來取得
請您幫我看看怎麼處理比較好.謝謝

新資料夾.rar (21.18 KB)

jeason

TOP