→ soyoso: 聽不懂activeworksheet這個指令，是因為沒有這個指令 03/24 07:22
→ soyoso: 應該是activesheet 03/24 07:23
→ soyoso: 以原文來看應是還要在加上迴圈，才不會只是另存其中一個 03/24 07:47
軟體: excel
版本:2007以上
我想要將27個工作表分拆成27個檔案
上網找到教學影片 但是很奇怪的是 我的巨集寫的跟他一樣
可是卻永遠都只能把一個我寫巨集使用的工作表成功另存
換言之 excel聽不懂我的activeworksheet這個指令
想請問各位厲害的先進 是不是有別的方法?還是我哪裡弄錯了?
我試過好多次了....謝謝各位 以下附上影片跟我的巨集 謝謝!
http://ppt.cc/bvho
Dim savepath As String
If ActiveCell <> "" Then
savepath = ActiveWorkbook.Path
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ActiveCell.Value & "!A1", TextToDisplay:=ActiveCell.Value
ActiveCell.Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets(ActiveSheet.Name).Select
Sheets(ActiveSheet.Name).Copy
ChDir "C:\Users\hsiaofeng\Desktop\新增資料夾"
ActiveWorkbook.SaveAs Filename:= _
savepath & "\" & ActiveSheet.Name & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWindow.Close
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("source").Select
Call 巨集1
End If
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.167.30.21
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1427127444.A.799.html