Excel VBA質問箱 IV

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

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


5538 / 13645 ツリー ←次へ | 前へ→

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

【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"のダブルクヲテーションをはずしてみましたが、うまくいきませんでした。
どうすればうまくうごくのでしょうか?

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

引用なし
パスワード
   サポートBBSは閉鎖されてるのかな?

http://www.vbasekai.com/index.html

※提示されたコードが本に載っているコード
でしたらまずいですよ。

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