| ページ一覧 | ブログ | twitter |  書式 | 書式(表) |

MyMemoWiki

Excel VBA ドライブ、ディレクトリを指定してファイルを開くダイアログを表示

提供: MyMemoWiki
2020年2月16日 (日) 04:25時点におけるPiroto (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
ナビゲーションに移動 検索に移動

Excel VBA ドライブ、ディレクトリを指定してファイルを開くダイアログを表示する

Excel VBA |

1ファイルのみ選択

Dim selFile As Variant
Dim outPath As String

outPath = "f:\work\data"

Call ChDrive(Left$(outPath, 2))
Call ChDir(outPath)

selFile = Application.GetOpenFilename("ログファイル (*.log),*.log)", , "")

If selFile = False Then
    Call MsgBox("ファイルが選択されませんでした", vbInformation)
    Exit Sub
End If

複数ファイル選択

Dim selFile     As Variant
Dim outPath     As String
Dim i           As Integer
Dim results()   As String
 
ReDim results(0)

outPath = ActiveWorkbook.Path
Call ChDrive(Left$(outPath, 2))
Call ChDir(outPath)
 
selFile = Application.GetOpenFilename("Excelファイル (*.xlsx),*.xlsx)", MultiSelect:=True)
     
If IsArray(selFile) Then
    ReDim results(UBound(selFile))
    For i = 0 To UBound(selFile) - 1
        results(i) = CStr(selFile(i + 1))
    Next
Else
    Call MsgBox("ファイルが選択されませんでした", vbInformation)
End If

ChooseFiles = results