[算表] vba選取所有工作表並移到新的活頁簿

[scynic (...)]

軟體:Excel 2010


參考網路教學選取不同活頁簿的單一工作表並移到新的活頁簿後,

嘗試用錄製巨集選取不同活頁簿的所有工作表並移到新的活頁簿,
黃字為我覺得要修改的部分,
因不同活頁簿中工作表數目都不同,名稱也不一樣,
請問要怎麼修改黃字的語法?

' openfile2 巨集
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        ActiveCell.Value, TextToDisplay:= _
        ActiveCell.Value
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Sheets(Array("sheet1", "sheet2", "Sheet3")).Select
    Sheets("sheet1").Activate
    Sheets(Array("sheet1", "sheet2", "Sheet3")).Copy
        Before:=Workbooks("Sbin map_(Security C).xlsm").Sheets(2)
    Sheets("工作表1").Select
    Windows(ActiveCell.Value).Activate
    ActiveWindow.Close
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.24.62
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1459659498.A.ED8.html
→ soyoso: 所有的工作表的話可用sheets.copy的方式
thx,是改成這樣嗎
    Sheets.Select
    Sheets.Copy

這樣會變成第一行出現error
※ 編輯: scynic (114.47.87.210), 04/06/2016 21:44:38
→ soyoso: 以回文測試並無錯誤 https://youtu.be/0Xpu6eIHsWo