為什麼這篇VBA 選取 所有工作表鄉民發文收入到精華區：因為在VBA 選取 所有工作表這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者scynic (...)看板Office標題[算表] vba選取所有工作表並移到新的活頁簿時間S...
軟體: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的方式 04/03 13:52
thx,是改成這樣嗎Sheets.Select
Sheets.Copy
這樣會變成第一行出現error
※ 編輯: scynic (114.47.87.210), 04/06/2016 21:44:38