vba - VBA マクロを使用して各 Excel ワークシートを個別のワークブックとして保存する

Question

こんにちは、このコードを使用して Excel の各シートを新しいブックに保存しようとしています。ただし、ワークブック全体を新しいファイル名に保存しています

Dim path As String
Dim dt As String
dt = Now()
path = CreateObject("WScript.Shell").specialfolders("Desktop") & "\Calendars " & Replace(Replace(dt, ":", "."), "/", ".")
MkDir path
Call Shell("explorer.exe" & " " & path, vbNormalFocus)

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets 'SetVersions
    If ws.name <> "How-To" And ws.name <> "Actg_Prd" Then
        ws.SaveAs path & ws.name, xlsx
    End If
Next ws

クイックフィックスとは何ですか？