excel:vba-open-filename
ブックをダイアログボックスで選択して開くVBA
Dim openFileName As String openFileName = Application.GetOpenFilename("Excel ブック, *.xls*,CSV(コンマ区切り), *.csv, テキスト(タブ区切り), *.txt, すべてのファイル, *.*") If fileName = "False" Then Exit Sub End If Workbooks.Open openFileName
指定したファイルが見つからない場合のみ選択して開く
Dim openFileName As String openFileName = ThisWorkbook.Path & "/hoge.xlsx" If Dir(openFileName) = "" Then openFileName = Application.GetOpenFilename("Excel ブック, *.xls*,CSV(コンマ区切り), *.csv, テキスト(タブ区切り), *.txt, すべてのファイル, *.*") If openFileName = "False" Then Exit Sub End If End If Workbooks.Open openFileName
スポンサーリンク
excel/vba-open-filename.txt · 最終更新: 2024/07/26 15:02 by shimehitsu14