バッチファイルからVBAに引数を渡したい

質問

お世話になります。

a.batというバッチファイルがあります。
このファイルを起動させた時にABC.xlsというEXCELが起動するようにしたいのですが、その際にバッチファイル側から"1303"という文字列をabc.xlsに引数として渡したいのです。

EXCEL側ではauto_open(a)で待ち受けて、このaに"1303"が入ってｍｓｇで"1303"と表示させたいのですが、引数は省略出来ません、というエラーが出てしまいます。

どなたかやり方をご教授いただけませんでしょうか？よろしくお願い致します。
環境 WindowsXP SP3 Excel2003

==============================
バッチファイル側
==============================
@echo off

echo バッチファイルを実行します。

AＢＣ.xls "1303"

echo 終了しました。

==============================
EXCEL VBA側
==============================
Sub auto_open(a As String)

Msg a

end sub

回答No.2

nicotinism · ベストアンサー

Excel には起動時に渡せるオプションがありませんね。。
Batでは
Echo 1303 > d:\後で消す.txt
Explorer.exe d:\data\ABC.xls
rem ↑横着してます。"C:\・・・\excel.exe " "d:\data\ABC.xls" が王道です

Excelでは
Sub auto_open()
Dim ff As Integer
Dim buf As Variant
If Dir("d:\後で消す.txt") = "" Then
MsgBox "何もなし"
Exit Sub
Else
ff = FreeFile
Open "d:\後で消す.txt" For Input As ff
Input #ff, buf
MsgBox buf
Close ff
Kill "d:\後で消す.txt"
End If
End Sub

とか？
一時的に"d:\後で消す.txt"に書き込んで
Excelで読み込んだらKillで消してます。

1303 だけでなく任意の値なら
Echo %1 > d:\後で消す.txt
Explorer.exe d:\data\123\ABC.xls
というBatファイルを Test.bat 名で保存して
コマンドプロンプトから
・・・・\test.bat 999
などと・・・ですかね。

お礼

nicotinismさん、早速のご連絡ありがとうございました！

ご教授いただきました方法で実現できました！！
このようなやり方があったのですね!とても勉強になりました。

本当にありがとうございました!!助かりました！

回答No.1

春原 なの（@ymda）

こんにちわ。

（試していないので申し訳ありませんが）

できません！というのが、回答になります。

ですが、下記のサイトのように、vbsをかませば、できるようです。

http://chaichan.lolipop.jp/vbtips/VBMemo2006082401.htm

お礼

ymdaさん、早速のご連絡ありがとうございました！

仰る通り、私のやり方ではダメだったようです。。

この度は大変勉強になりました。
ありがとうございました！