VBA 拆分工作簿並命名

Sub 拆分工作簿並命名()

Dim mypath As String
Dim sh As Worksheet
Dim file_name As String

mypath = ThisWorkbook.Path

For Each sh In Worksheets
    sh.Copy '這條語句會復制工作表並放在一個新建工作簿
    file_name = ActiveWorkbook.Worksheets(1).Range("a1")
    '連接時 & 符號前面要加一個空格
    
    ActiveWorkbook.SaveAs mypath & "\" & file_name & ".xlsx"
    ActiveWorkbook.Close True
    
    
    
    
Next

    

End Sub