VBA 选择文件

Private Function SelectFile(ByVal strFilter As String) As String
    Dim FileName As Variant
     '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant
    Dim sFileName As String                         '从FileName中提取的文件名
    Dim sPathName As String                         '从FileName中提取的路径名
    Dim aFile As Variant                            '数组，提取文件名sFileName时使用
     '调用Windows打开文件对话框
    FileName = Application.GetOpenFilename(strFilter) ' "CSV 文件 (*.csv),*.csv"
   
    If FileName = False Then                       '如果按“取消”键
        SelectFile = ""
    Else
        aFile = Split(FileName, "\")                '在全路径中，以“\”为分隔符，分成数据
        sPathName = aFile(0)                        '取盘符
        For i = 1 To UBound(aFile) - 1              '循环合成路径名
            sPathName = sPathName & "\" & aFile(i)
        Next
        SelectFile = sPathName & "\" & aFile(UBound(aFile))
    End If
End Function

 

Sub test()
Dim txt As Object
Dim lRow As Long
Dim text As String
Dim Filename As Variant
ChDir ThisWorkbook.Path
Filename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选取档案", , MultiSelect:=True)
  For Each fn In Filename
  pge = pge + 1
  lRow = 0
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set txt = FSO.OpenTextFile(fn, ForReading, False)
        Do Until txt.AtEndOfStream
            lRow = lRow + 1
            text = txt.ReadLine
            ThisWorkbook.Worksheets(pge).Cells(lRow, 1) = text
        Loop
    txt.Close
    Set txt = Nothing
Next
End Sub