软件: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