軟體: 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