[算表] Excel VBA 複製不同視窗檔案內容

看板Office作者ltslees (jo6)時間15年前 (2011/07/02 16:05)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串1/1

軟體:Excel 版本:2007 -------------------------------------------------------------------------- 我有一系列"已經開啟"的xlsx檔，檔名如下 W-L Vac. initial.xlsx W-L O2 1.3torr initial.xlsx W-L O2 1.3torr Stress 1000s.xlsx W-L Vac. Recovery 100s.xlsx W-L Vac. Recovery 500s.xlsx W-L Vac. Recovery 1000s.xlsx *W,L皆為數字，相同的W-L系列檔案為一組每個xlsx檔都有A,B,C,D,E的工作表今天我想透過巨集複製每個xlsx內同名的工作表到同一份W-L.xlsx內，由於編寫的巨集會使用好幾次，每組檔案差別在W-L的數字會不同，在寫巨集時我打算在W-L.xlsx的第一個工作表作為W-L數值輸入 A2內容為W值,B2內容為L值，所以我笨拙得寫出以下巨集此為我原先欲處理A工作表的巨集， Sub WL_A() Dim FileName As String FileName = Sheets(1).Range("A2") & "-" & Sheets(1).Range("B2") '由第一工作表中得知此組W-L值 Windows(FileName & " Vac. initial.xlsx").Activate Sheets("A").Select Columns("A:D").Select Selection.Copy '選取W-L Vac. initial.xlsx 並複製A工作表內A~D行的數據 Windows(FileName & ".xlsx").Activate Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = "A" Columns("A:D").Select ActiveSheet.Paste '選取W-L.xlsx 並建立A工作表將複製內容貼上 (略)接下來打算仿照此模式將剩下5個xlsx檔案內容複製過來 End Sub 不過由偵錯得知Windows函數錯誤，想知道怎麼改正，由於最近才開始接觸Excel VBA，有許多概念不懂，還請多多指教。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.172.4.102