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