このVBSの修正点を教えてください。

質問

Dim objExcel

'Excelのオブジェクトを作成する
Set objExcel = CreateObject("Excel.Application")

'Excelを見えない形で表示させる。
objExcel.Application.Visible = True

'Excelブック①のパスとシート名を選択
objExcel.Workbooks.Open("C:\Users\user\Desktop\1_作成\銀行借入調達返済\2307-2406銀行借入調達返済 (全社表示).xlsm
")
objExcel.Worksheets(objExcel.Worksheets.Count).select

'実行するマクロ名を指定。
objExcel.Application.Run "CopyWorksheets_And_Autofill"
objExcel.Application.Run "CopyNewBook"

Set objExcel = Nothing

保存はANSIで.vbsで保存しました。

回答No.1

kkkkkm · ベストアンサー

10行目が
objExcel.Workbooks.Open("C:\Users\user\Desktop\1_作成\銀行借入調達返済\2307-2406銀行借入調達返済 (全社表示).xlsm
になると思います。この最後に改行があって
")
となっていますので改行で分割されて「"」が10行目では存在しないという事になって文字列が閉じられていないというエラーだと思います。

お礼

ありがとうございます。解決しました。

補足

回答ありがとうございます。

Dim objExcel

'Excelのオブジェクトを作成する
Set objExcel = CreateObject("Excel.Application")

'Excelを見えない形で表示させる。
objExcel.Application.Visible = True

'Excelブック①のパスとシート名を選択
objExcel.Workbooks.Open("C:\Users\user\Desktop\1_作成 _
\銀行借入調達返済\2307-2406銀行借入調達返済 (全社表示).xlsm")
objExcel.Worksheets(objExcel.Worksheets.Count).select

'実行するマクロ名を指定。
objExcel.Application.Run "CopyWorksheets_And_Autofill"
objExcel.Application.Run "CopyNewBook"

Set objExcel = Nothing

改行を挟むと文字が54になっており、改行部分だとわかりました。これはどうすればいいですか。