Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
980 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9258】AccessVBAからのバッチの呼び出しについて さくら 07/4/6(金) 18:55 発言[未読]
【9259】Re:AccessVBAからのバッチの呼び出しについて Gin_II 07/4/6(金) 23:24 発言[未読]
【9266】Re:AccessVBAからのバッチの呼び出しについて さくら 07/4/9(月) 9:27 お礼[未読]
【9258】AccessVBAからのバッチの呼び出しについて
発言  さくら  - 07/4/6(金) 18:55 -
引用なし
パスワード
   はじめまして。
ちょくちょく参考にさせていただいておりますさくらと申します。
板違いかもしれませんが、バッチに関しては初心者ですので、教えていただけると助かります。

現在AccessVBAを用いて、ディレクトリ内のPDFファイル名を取得しています。
取得したファイル名をそのままバッチで使用したいので、VBAの変数をバッチパラメータに渡して"%1"のようにして使えないかと考えております。

バッチのcall関数を用いると、バッチ間ではパラメータの受け渡しが出来るようなのですが、VBAからバッチを呼び出すときには出来ないのでしょうか。

現在記述しているVBA内のコードは以下の通りです。


'ファイル名取得
name = Dir("D:\TEST\TEST_WK\*.pdf")
name_wk = "syokiti"

Do While name_wk <> ""
　　name_wk = Dir()
　　name = name & name_wk
LOOP
　　　　　　
'バッチ処理
CreateObject("WScript.shell").Run "C:\TEST.bat name", 1, True


これで一応バッチは呼び出せているのですが、echoで確認したところ、%1の値には変数名"name"が入ってしまっています。


ですので、現在はバッチでディレクトリ内のファイル名を取得し、パラメータに格納しようとしているのですが、どのようにすればいいのか方法がよく分かりません。
格納の仕方も "file1,file2,file3,....."のようにしていきたいのですが、バッチでこのようなことは出来るのでしょうか。

申し訳ありませんが、ご教授いただけると幸いです。
よろしくお願いいたします。
【9259】Re:AccessVBAからのバッチの呼び出しにつ...
発言  Gin_II  - 07/4/6(金) 23:24 -
引用なし
パスワード
   > CreateObject("WScript.shell").Run "C:\TEST.bat name", 1, True

変数は、引用符の外に出してやる必要があります。

CreateObject("WScript.shell").Run "C:\TEST.bat " & name, 1, True


> 格納の仕方も "file1,file2,file3,....."のようにしていきたいのですが、バッチでこのようなことは出来るのでしょうか。

これは、

> C:\TEST.bat

こちらの作りが分からなければ、回答できないと思います。
【9266】Re:AccessVBAからのバッチの呼び出しにつ...
お礼  さくら  - 07/4/9(月) 9:27 -
引用なし
パスワード
   ▼Gin_II さん：
返事が遅れて申し訳ありません。

>CreateObject("WScript.shell").Run "C:\TEST.bat " & name, 1, True
確かに変数をダブルクォーテションから出した上記の形で記載したら
思ったように動作しました。


>> 格納の仕方も "file1,file2,file3,....."のようにしていきたいのですが、バッチでこのようなことは出来るのでしょうか。
この件に関しても上の情報から自己解決できました。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
980 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1084336
(SS)C-BOARD v3.8 is Free