@634

VBA TIPS - ファイル選択ダイアログの利用

Advertisement

ダイアログを表示してファイルを開く

    Dim fname As String

    ' ダイアログを表示してファイル名を取得
    fname = Application.GetOpenFilename("Microsoft Excel ブック(*.xls), *.xls,すべてのファイル(*.*), *.*")
    ' キャンセルが選ばれた場合
    If fname = "False" Then
        MsgBox "処理を中止します", vbOKOnly + vbExclamation, "処理中止"
        End
    End If

    ' ファイルを開く
    Workbooks.Open(fname)

Advertisement

ショートカット

634トップページ
このカテゴリのトップページに戻る
634ラボ
   UIコレクションギャラリー

サイト検索

Google

Web サイト内

Y!ログール