エクセル起動メモ

Option Explicit

WScript.Sleep(1000)

’2016：16
’2010：14
’2003：11

Dim objParam

Dim strFilename 

Dim strPassword

Dim objExcel

Dim objOpendExcel

Set objParam = WScript.Arguments

strFilename = "FileAddress"'objParam(0)

strPassword = "0000"'objParam(1)

Set objExcel = CreateObject("Excel.Application.16") 

objExcel.Visible = True

Set objOpendExcel = objExcel.Workbooks.Open(strFilename,,,,strPassword)

Set objExcel = Nothing

再読み込み用にスリープさせているが、エクセルアプリケーション系が上手く起動しない事があるらしく、完全な対応が出来ない。起動バージョンによって16のところの数字変更。
００００はパスワード。

WSHでソフト指定して起動した方が早いし汎用性は高いのだけれど、エクセルアプリケーション系の関数なら当該ファイルのみとか、既に開いている場合はブック足すとか出来ないかなと微調整方法がないか確認している途中。オプションで有れば良いんだけど、バージョンによってブックが作られたり、ファイル選択画面が出てきたりまちまちで、対応に幅が出来るのが難しいところ。

とりあえず使う事があるのでメモ的に。