配布用ファイルを正常に動作させるには？ (ID:81226)

名前

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

本文 解決されてるのでＯＫだと思いますが、 出来ればエクセルファイルのパスを設定するときは このようにしたほうが良いと思います。 Dim pathname As String Dim xl As Object Set xl = CreateObject("Excel.application") If Right$(App.Path, 1) <> "\" Then pathname = App.Path & "\" Else pathname = App.Path End If xl.Workbooks.Open FileName:=pathname & "データファイル名.xls" 今回は、インストラーを使われてるので 今の方法で構わないのですが、インストラーを使わない場合、 ソフトをどこに置かれるのかわからないので たとえばＣドライブの直下に置かれた場合、 xl.Workbooks.Open FileName:="C:\" & "\データファイル名.xls" \が連なっちゃうので。