GetOpenFileNameでフォルダ指定するには？ (ID:83518)

名前

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

本文 Sayさん、いろいろありがとうございました。 ちょっと強引なやり方ですが、解決しました。 Dim objExcelApp As Excel.Application Set objExcelApp = CreateObject("Excel.Application") objExcelApp.DefaultFilePath="C:\" objExcelApp.Application.Quit Set objExcelApp = Nothing ←ファイルパスを変えてから、再度EXCELオブジェクトを作成したら、 フォルダを指定できます。 Set objExcelApp = CreateObject("Excel.Application") IN_FILE_NAME = objExcelApp.Application.GetOpenFileName objExcelApp.Application.Quit Set objExcelApp = Nothing