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将返回完整的文件规范作为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