提示文件位置的 Excel 导入对话框

Question

是否可以让 Excel 宏停止并提示要导入文件的位置？

我已经创建了几个用于导入文本文件的宏，但导入的文件必须始终存在于相同的位置并以相同的文件名存在。

Answer 1

这将做到这一点：

Sub getafile()
    Dim fStr As String

    With Application.FileDialog(msoFileDialogFilePicker)
        .Show
        If .SelectedItems.Count = 0 Then
            MsgBox "Cancel Selected"
            End
        End If
        'fStr is the file path and name of the file you selected.
        fStr = .SelectedItems(1)
    End With
    'Replace with your code.
    MsgBox fStr
End Sub