ファイル選択画面を表示してファイル選択する
うさこちゃん
このサンプルはファイル選択画面を表示します。
※選択したファイルPathを取得できます。
サンプルコード
うさこちゃん
サンプルコードではエクセルファイルのみを表示します。
Application.GetOpenFilename(“Microsoft Excelブック,*.xls?”)
Dim StrOpenFileName As String
Dim ObjWShell As Object
Dim StrDesktop As String
'オブジェクト生成
Set ObjWShell = CreateObject("WScript.Shell")
StrDesktop = ObjWShell.SpecialFolders("Desktop")
Set ObjWShell = Nothing
ChDir StrDesktop
'ファイル選択画面表示
StrOpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
If StrOpenFileName <> "False" Then
MsgBox StrOpenFileName '取得ファイルの表示
End If
ファイル選択画面（実行イメージ）
免責事項
本記事のサンプルプログラムは、学習・参考用として掲載しているもので、動作や結果を保証するものではありません。 利用する場合は、ご自身の環境に合わせて確認しながらお使いください。万が一トラブルや損害が発生した場合でも、当サイトでは責任を負いかねます。
