|
▼亜矢 さん:
こちらで、実際に使っているコードです。
VBSファイルと同じフォルダにある、●●●.xls を開いています。
●●●.xls では、標準モジュールのAuto_Openではなく ThisWOrkbookモジュールの
Workbook_Open でユーザーフォームを表示しています。
VBSで立ち上げたエクセルは Visible=False ですから、それについては何もしていません。
エクセルは表示されず、ユーザーフォームだけが表示され、そのテキストボックスにフォーカスがあります。
Option Explicit
Dim objXLApp
Dim objXLBook
Dim VbsPath
Dim VbsName
Dim VbsFull
Dim x
VbsFull = WScript.ScriptFullName
x = InStrRev(VbsFull, "\")
VbsPath = Left(VbsFull, x)
VbsName = Mid(VbsFull,x + 1)
Set objXLApp = CreateObject("Excel.Application")
Set objXLBook = objXLApp.Workbooks.Open(VbsPath & "\●●●.xls")
|
|