求助一个用excel vba打开文件的问题，我用论坛里的语句打开文档后发现被分列了

TB肥仔

求助一个用excel vba打开文件的问题，我用论坛里的语句打开文档，得到的结果和我想要的结果不一样

有人可以帮忙修改一下语句，或者跟我说一下思路吗

一把小刀闯天下

Line Input #1, x

TB肥仔

一把小刀闯天下 发表于 2019-1-22 09:57
Line Input #1, x

我试了一下，还是有些是分开的，有些的几行在一起

一把小刀闯天下

TB肥仔 发表于 2019-1-22 10:06
我试了一下，还是有些是分开的，有些的几行在一起

Sub 按钮1_Click()
'第一步，批量打开文件
'第一列为文档内容Cells(i, 1) = x，第三列为文档名称Cells(i, 3) = s
Dim s As String
s = Dir(ThisWorkbook.Path & "/*.edf")
Application.ScreenUpdating = False
Do While s <> ""
Open ThisWorkbook.Path & "/" & s For Input As #1
  Do While Not EOF(1)
  Line Input #1, x
  If InStr(x, vbLf) Then
    t = Split(x, vbLf)
    For j = 0 To UBound(t)
      i = i + 1
      Cells(i, 1) = t(j)
      Cells(i, 3) = s
    Next
  Else
    i = i + 1
    Cells(i, 1) = x
    Cells(i, 3) = s
  End If
  Loop
  Close #1
s = Dir()
Loop
End Sub