エクセルファイルを開くだけ (ID:86596)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 割り込み失礼します。 ＞参照設定とかは環境に依存するので、あまりしたくありません レイトバインディングなら、やはり、CreateObject で、オートメーション オブジェクトを取得したほうが楽ですね。 Dim xlApp Set xlApp = CreateObject("Excel.Application") With xlApp .Visible =True .Workbooks.Open ("C:\My Documents\Sample1.xls") .Run ("Auto_Open") End With Set xlApp = Nothing パラメータを加えるなら、 例えばですが、 .Run("Auto_Open) のところを .Run "TestProc", Arg1 として、EXCEL側の標準モジュールで、 Sub TestProc(ByVal Arg1 As Variant) ・ ・ End Sub などと、すればよいと思います。 ただし、引数は、30個までだったと思います。 もちろん、取り扱いが、値だけでしたら、配列にして、EXCELのセルに渡す なら、引数は1つで、一度に渡せます。なお、配列は二次元で添え字は、 1からです。ただ、配列でも、あまり大きなものは失敗すると思います。 それと、EXCEL側では、起動引数とは呼ばないと思います。