Excel宏從多個工作簿寫入到一個

Question

我有300個獨立的工作簿，它們格式相同，並且想要在每個工作簿中寫入特定字段並寫入一個工作簿，以便我可以將一個infile導入SAS並運行報告。我知道如何做一個簡單的複製和粘貼的宏，但你必須知道每本書的名稱，並打開它們，我有300個單獨的工作簿，所有命名都不同，因爲它們是從各個醫院發送的。

例如：我的書被簡稱宏 1醫院本書是johnhopkins，另一種是佛羅里達州中部等

一個可能的代碼是：

johnhopkins.worksheets（而 「sheet1」）的範圍（」 a1：g2「）。複製 工作簿（」macro.xslx「）。工作表（」sheet1「）。範圍（」a1「）。插入移位：x1down

問題是我想複製並粘貼某些單元格，並不是所有的工作簿都放在我的單一工作簿中，我不知道如何從他們發送的內容中選擇想要的單元格。他們是真正的單元格B5，b8，g13，i13，j13，k13，l13

我想將它們複製到我的工作簿上的a1到g2。

那麼另一個問題是工作簿的命名都是不同的，全部是300個。有沒有宏只複製我打開的工作簿，而沒有每次都輸入實際名稱？

Answer 1

你可以像這樣的東西開始：

For i = 1 To Sheets.Count 

Sheets.Item(i).Select 
Range("A1:D10").Select 
Selection.Copy 
Sheets("Result").Select 
Range("A1").Select 
Selection.End(xlDown).Select 
ActiveSheet.Paste 

Next i 

您可以循環通過你的牀單不知道姓名，並粘貼到你的「結果」表 結果現在，你只需要複製該範圍你描述，並粘貼在另一張表

玩得開心！