[算表] 巨集-選取所有工作表並移到新的活頁簿
軟體: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
→
04/03 13:52, , 1F
04/03 13:52, 1F
thx,是改成這樣嗎
Sheets.Select
Sheets.Copy
這樣會變成第一行出現error
※ 編輯: scynic (114.47.87.210), 04/06/2016 21:44:38
→
04/06 23:11, , 2F
04/06 23:11, 2F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
