Excel VBA 打开 1 个 CSV 文件

Question

使用 Excel 2010，我正在尝试添加一个代码，该代码将打开文件选择窗口，供用户选择他想要打开的 CSV 文件。

我的代码如下：

Dim OpenThisFile
OpenThisFile = Application.GetOpenFilename

这只是从我的一个旧 VBA 文件中提取的，这在以前有效。目前，当 VBA 读取第二行时，它会打开文件选择窗口，但是一旦我选择一个 CSV 文件并点击 OPEN，它就会给出错误Application-Defined or Object-Defined Error

Answer 1

GetOpenFilename 将返回完整的 filespec 作为 String 变量。你可以像这样解析它：

Sub qwerty()
    Dim f As String, Path As String, _
        FileName As String, FileType As String

    f = Application.GetOpenFilename()
    MsgBox f

    ary = Split(f, "\")
    bry = Split(ary(UBound(ary)), ".")
    ary(UBound(ary)) = ""
    Path = Join(ary, "\")
    FileName = bry(0)
    FileType = bry(1)

    Range("A1") = Path
    Range("A2") = FileName
    Range("A3") = FileType
End Sub

如果您想预选路径和文件类型，那么：

Sub qwerty2()
    Dim f As String, Path As String, _
        FileName As String, FileType As String

    ChDir "C:\TestFolder"
    f = Application.GetOpenFilename(FileFilter:="Text Files (*.csv), *.csv")
    MsgBox f

    ary = Split(f, "\")
    bry = Split(ary(UBound(ary)), ".")
    ary(UBound(ary)) = ""
    Path = Join(ary, "\")
    FileName = bry(0)
    FileType = bry(1)

    Range("A1") = Path
    Range("A2") = FileName
    Range("A3") = FileType
End Sub