admin menu ≫  image  writes  admin
スポンサーサイト 
--.--.--.-- 
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
エクセルを使ったプログラムランチャー擬き(3)  
2009.05.12.Tue 
外部プログラムを登録した後、プログラムのあるフォルダを移動したり、他のPCでこのエクセルアプリを使ったりすると、プログラムが見つからなくてマクロエラーになってしまう。このエラーを回避する為に、ネット検索して見つけたマクロを雛形にして以下のようにしてみました。

Function ExeFile_Check(ExeFilePath$, ExeFileName$) As Boolean
'指定されたフォルダ内を検索し、外部実行プログラムの有無を確認して値を返す。
Dim fs, Fn$, i%
Set fs = Application.FileSearch
ExeFile_Check = False
With fs
.LookIn = ExeFilePath
.FileName = ExeFileName
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Fn = Mid(.FoundFiles(i), Len(ExeFilePath) + 1)
If Fn = ExeFileName Then
ExeFile_Check = True '外部実行プログラムが見つかった
Exit For
End If
Next i
End If
End With
End Function


関連記事
スポンサーサイト
* スポンサーサイトエクセルを使ったプログラムランチャー擬き(3) へのコメント *
   

台風画報


ナショジオニュース

降水短時間予報

RSSフィード

月別アーカイブ

ブログ内の検索

プロフィール


  • Designed by Il mio diario
  • Powered by FC2BLOG
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。