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

brabus

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

brabus

回復 23# GBKEE

請問GBKEE大大
我操作後發現,它只有把"值"複制過去而已,並沒有把"公式"和"格式"複制過去吔....
該怎麼修正????
謝謝

brabus

回復 23# GBKEE

抱歉GBKEE大,我該打屁股,沒看清楚.浪費你寶貴的時間回答.......
謝謝你,我看到錯的地方了....,修正好了
感~~恩~~

GBKEE

回復 22# brabus

下載 (66.55 KB)

2016-12-25 13:43

圖片檔可直接上傳.

你還是沒將工作表的名稱"資枓檔"
與vba的Workbooks("設定用.xls").Sheets("資料檔").UsedRange.Value
改成一致的

brabus

回復 21# GBKEE


    怎麼辦,我改完後執行,一樣是陣列索引超出範圍~~~難道是我業障重嗎????

GBKEE

回復 20# brabus

你打錯字了,設定用工作表名稱的是  資枓檔
程式碼的是,AR = Workbooks("設定用.xls").Sheets("資料檔").UsedRange.Value

brabus

回復 18# GBKEE

請問GBKEE大大
我在12月中旬時有請問您,如何複製表格到別的工作表中，承蒙您回覆,後來因個人身體因素,直到現在才有空試用
經修正執行後出現"陣列索引超出範圍",我附上檔案,請您幫我看看該如何修正,謝謝,祝您聖誕節快樂

brabus

謝謝GBKEE大大回覆

我來試試,有問題再跟您請教

GBKEE

回復 17# brabus


試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xPath As String, xFile As String, AR(), i As Integer
   
4.     With Application.FileDialog(msoFileDialogFolderPicker)
   
5.        '.InitialFileName = "D:\TEST\"   '可預定資料夾
   
6.         If .Show = True Then xPath = .SelectedItems(1)
   
7.         '.Show = True  :檔案對話方塊中按下確定->選定資料夾
   
8.     End With
   
9.     If xPath = "" Then MsgBox "沒有選擇資料夾 !!", vbQuestion : Exit Sub
   
10.     AR = Workbooks("我是主要資料.xls").Sheets("資料確認").UsedRange.Value
    
11.     xFile = Dir(xPath & "\*xls", vbDirectory)  '選定資料夾中搜尋指定類型的檔案
    
12.     Application.ScreenUpdating = False
    
13.     Do While xFile <> ""                       '有找到指定類型的檔案
    
14.         With Workbooks.Open(xPath & "\" & xFile)
    
15.             .Sheets("資料確認").[a1].Resize(UBound(AR), UBound(AR, 2)) = AR
    
16.             .Close True   '關閉存檔
    
17.         End With
    
18.         xFile = Dir   '依序 下一個指定類型的檔案
    
19.     Loop
    
20.     Application.ScreenUpdating = True
    
21. End Sub

複製代碼

brabus

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