|
渡辺ひかる氏著書「Excel VBA 実用サンプルコレクション」を勉強しておりますが半日かかっても
わからない部分がでました。お教えください。
Option Explicit
Sub Q_Sample003()
'ファイル名を指定して、コマンドプロンプトを記述
Open ThisWorkbook.Path & "\test.bat" For Output As #1
Print #1, "cmd /c Dir """ & ThisWorkbook.Path & """ > """ & _
ThisWorkbook.Path & """\test.txt"
Close #1
'ファイルの実行
Shell "cmd.exe /c """ & ThisWorkbook.Path & "\test.bat"""
End Sub
このファイルを実行すると「ファイルが見つかりません」というエラーが出ます。
もちろんファイルは読み取り専用をはずしております。
バッチファイルを見ますと下記のようです。
C:\VBA>cmd /c Dir "C:\VBA" > "C:\VBA"\test.txt
Bad command or file name
"C:\VBA"のダブルクヲテーションをはずしてみましたが、うまくいきませんでした。
どうすればうまくうごくのでしょうか?
|
|