Sub 切割活頁簿轉為HTML()
    Dim source_window_name As String
    Dim source_path_name As String
    Dim target_path As String
    Dim i As Integer

    source_window_name = ActiveWindow.Caption
    source_path_name = ActiveWorkbook.Path
    ' 先把現在準備分割的原始檔案的視窗名稱及路徑記錄下來
    target_path = source_path_name & "\\" & Left(source_window_name, Len(source_window_name) - 5)
    ' 建立準備儲存切割完成檔案的新資料夾
    On Error Resume Next ' 如果資料夾已存在，則忽略錯誤
    MkDir target_path
    On Error GoTo 0 ' 恢復正常的錯誤處理

    For i = 1 To ActiveWorkbook.Sheets.Count
        ' 使用迴圈, 執行次數是作用中的活頁簿的工作表數量
        ActiveWorkbook.Sheets(i).Copy
        ' 把作用中的活頁簿的第i個工作表複製到另一個新開啟的活頁簿
        ActiveWorkbook.SaveAs Filename:=target_path & "\\" & ActiveSheet.Name, FileFormat:=xlHtml
        ' 需注意這裡的ActiveWorkbook已經是新的活頁簿了
        ' 把新活頁簿儲存到指定路徑, 且檔名與工作表名稱相同，格式為HTML
        ActiveWorkbook.Close False
        ' 關閉已經儲存的新活頁簿
        Windows(source_window_name).Activate
        ' 將作用視窗切換回原始檔案
    Next i
    MsgBox "您的檔案已經被拆分完成並轉為HTML格式，檔案會存放在您原始檔案位置，請打開資料夾查看!"
End Sub