Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


31729 / 76734 ←次へ | 前へ→

【50250】Shell関数の使用
質問  takatuki2525  - 07/7/16(月) 14:15 -

引用なし
パスワード
   渡辺ひかる氏著書「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"のダブルクヲテーションをはずしてみましたが、うまくいきませんでした。
どうすればうまくうごくのでしょうか?
2 hits

【50250】Shell関数の使用 takatuki2525 07/7/16(月) 14:15 質問
【50251】Re:Shell関数の使用 マクロマン 07/7/16(月) 15:20 発言

31729 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free