iT邦幫忙

0

EXCEL巨集 多檔多sheet 移動複製到 同一個excel

想請問
我有寫一個巨集
多excel檔 單sheet 移動複製 到同一個 excel 內

請問 如何改成

多個 excel檔 多個sheet 移動複製到同一個excel

謝謝

Sub openfile()
'
' openfile Macro
'      
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Value, _
                TextToDisplay:=ActiveCell.Value
            Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
            Sheets(ActiveSheet.Name).Select
            Sheets(ActiveSheet.Name).Copy Before:=Workbooks("ALL.xlsm").Sheets(1)
            Sheets("ALL").Select
            Windows(ActiveCell.Value).Activate
            ActiveWindow.Close
            ActiveCell.Offset(1, 0).Range("A1").Select


End Sub
eigen iT邦新手 2 級 ‧ 2017-06-10 17:26:17 檢舉
開兩個excel ,開巨集,錄製一下動作,不就知道該怎麼著手了

Sub Macro1()
'
' Macro1 Macro
' AMD945 在 2017/6/10 錄製的巨集
'

'
Windows("xxx1Book2.xls").Activate
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Workbooks("xx2.xls").Sheets(1)
End Sub
froce iT邦新手 3 級 ‧ 2017-06-11 15:32:56 檢舉
很久沒寫VBA了,所以給個想法就好了,可以用each去迭代:

for each sheet in Worksheets
"你要做的動作"
perry168 iT邦新手 3 級 ‧ 2017-06-11 19:23:18 檢舉
上網找找把, 有人分享了很久, 而且很強大~

尚未有邦友回答

立即登入回答