| |
▼Kein さん：
>原因は分かりませんが、他のソフトを起動する方法はいくつかあります。
>例えば Win32API の ShellExecute とか WshShell オブジェクト の
>Runメソッドです。いちおうそれらも試してみて下さい。
Keinさん
早速のご教示ありがとうございました。
ShellExecute を試したところ、うまく起動することができました。
〔宣言節〕
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) _
As Long
〔モジュール〕
Dim Ret As Long
Dim PG As String
'
PG = "C:\Program Files\Creoapp\Mamew14\Mamew14.exe"
'--> ＥＸＥプログラムの実行
Ret = ShellExecute(w1, "Open", PG, "", "", SW_SHOWNORMAL)
以上です。
ほんとうにありがとうございました。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
