[算表]將多個excel sheet 拆分成單一檔案
軟體: 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
→
03/24 07:22, , 1F
03/24 07:22, 1F
→
03/24 07:23, , 2F
03/24 07:23, 2F
→
03/24 07:43, , 3F
03/24 07:43, 3F
→
03/24 07:47, , 4F
03/24 07:47, 4F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
