[已解决]请教，各位高手我想用vba实现读取多个txt文件数据请问怎么实现？

苏子龙

Sub test2() '选择多个txt文件
    Dim arr, rw%, i%
    Dim FiletoOpen, atxt
    On Error Resume Next
    Sheet1.UsedRange.ClearContents
    FiletoOpen = Application.GetOpenFilename(filefilter:="Text Files(*.txt),*.txt", Title:="请选择文件", MultiSelect:=True)
    If Not IsArray(FiletoOpen) Then
        MsgBox "你没有选择文件", vbOKOnly, "提示": Exit Sub
    Else
        For Each atxt In FiletoOpen
            rw = rw + 1
            Open atxt For Input As #1
                arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
            Close #1
            With Sheet1
                   .Cells(rw, 1) = Split(arr(1), ",")(0)
                   .Cells(rw, 2) = Split(arr(6), ",")(2)
                   .Cells(rw, 3) = Split(arr(6), ",")(6)
            End With
        Next
    End If
End Sub
按ctrl多选

qinshuai8507

苏子龙 发表于 2017-6-30 13:05
Sub test()
Dim arr, rw%, i%, flm$
Dim Fd As FileDialog, ph As String

非常感谢大侠的帮助，我还有个问题需要帮忙下，就是功能是一样的读取文件夹中的excel文件怎么修改呢？需要重新开一贴吗？

qinshuai8507

苏子龙 发表于 2017-6-30 13:05
Sub test()
Dim arr, rw%, i%, flm$
Dim Fd As FileDialog, ph As String

高手您好，请问这段代码如何修改为读excel表中单元格T5、T7、K7的数据呢，和这个实现的功能一样只不过数据改为读excel，从这段代码修改，麻烦大侠了。
Sub test()
Dim arr, rw%, i%, flm$
Dim Fd As FileDialog, ph As String
On Error Resume Next
  Set Fd = Application.FileDialog(msoFileDialogFolderPicker)
  Fd.Title = "请选择你包含文件的文件夹"
  If Fd.Show = -1 Then
  ph = Fd.SelectedItems(1)
  Else
    Exit Sub
  End If
Sheet1.UsedRange.ClearContents
flm = Dir(ph & "/*.txt")
Do While flm <> ""
    rw = rw + 1
    Open ph & "/" & flm For Input As #1
        arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
    With Sheet1
           .Cells(rw, 1) = Split(arr(1), ",")(0)
           .Cells(rw, 2) = Split(arr(6), ",")(2)
           .Cells(rw, 3) = Split(arr(6), ",")(6)
    End With
    flm = Dir
Loop
End Sub

苏子龙

qinshuai8507 发表于 2017-9-21 17:53
高手您好，请问这段代码如何修改为读excel表中单元格T5、T7、K7的数据呢，和这个实现的功能一样只不过数 ...

重新发帖，写清要求，模拟结果，上传文件