投稿日 | : 2006/07/03(Mon) 10:03 |
投稿者 | : ダンボ |
Eメール | : |
URL | : |
タイトル | : FindExecutable |
> 使用するパソコンは全て同一の環境にOFFICEがインストールされている為
> あまり良くはありませんが、力技で解決いたしました。
それが嫌だったら、FindExecutable を使ったらどうかな。
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
Dim rc As Long, Buf As String * 1024
rc = FindExecutable("Dummy.xls", "", Buf)
で、BufにExcel.exeのフルパスが得られる。
#(Dummy.xlsは実在していないと駄目なのか?)