Sub test1() Dim strPath As String Dim FSO As Object 'ファイルシステムオブジェクトをインスタンス化 Set FSO = CreateObject("Scripting.FilesystemObject") '生成するファイルのパスを指定 strPath = "C:\Users\デスクトップ\test.csv" 'ファイルを生成…