| |
▼亜矢 さん：
こちらで、実際に使っているコードです。
ＶＢＳファイルと同じフォルダにある、●●●.xls を開いています。
●●●.xls では、標準モジュールのAuto_Openではなく ThisWOrkbookモジュールの
Workbook_Open でユーザーフォームを表示しています。
ＶＢＳで立ち上げたエクセルは 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")
|
|
UO3
- 12/11/23(金) 10:43 -
