ｖｂ６からｅｘｃｅｌ.exeを探すには？ (ID:110920)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 即席ですがとりあえず。 １．シェルでなく、CreateObject で起動する方法。 Dim objXl As Object 略 Set objXl = CreateObject("Excel.Application") 略 ２．APIで無理矢理探す方法。 例では、拡張子".xls"に関連付けたアプリを探しています。 Declare Function FindExecutable Lib "shell32.dll" _ Alias "FindExecutableA" _ (ByVal lpFile As String, _ ByVal lpDirectory As String, _ ByVal lpResult As String) As Long 中略 ' ファイル名を指定 strFilename = "Dummy." & myExecutable ' デフォルトディレクトリを指定 strDefaultDirectory = TempFolder filenum = FreeFile Open strDefaultDirectory & strFilename For Output As #filenum Close #filenum ' 関連付けられている実行可能ファイル名を取得 lngExecutableHInstance = _ FindExecutable( _ strFilename, _ strDefaultDirectory, _ strExecutableFileName) Kill strDefaultDirectory & strFilename ' 実行可能ファイル名を表示 myApplication = _ Left$(strExecutableFileName, _ InStr(strExecutableFileName, _ vbNullChar) - 1)