読者です 読者をやめる 読者になる 読者になる

Fight the Future

何かを始めたら、半分成功したのと同じ

ファイル選択ダイアログを表示

macro
Private Function showFileDialog(ByVal title As String) As String
    
    Dim selectedFileName As String
    selectedFileName = ""

    With Application.FileDialog(msoFileDialogOpen)
        .title = title
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.path
        If .Show = -1 Then
            selectedFileName = .SelectedItems(1)
        End If
    End With
    
    showFileDialog = selectedFileName
    
End Function