file - VBA将数据从文件放入Excel表格

Question

我得到了这样的 file.txt 结构：

“第一的”
a1 b1 c1 d1
a2 b2 c2 c2

“第二”
e1 f1
e2 f2

“第三”
g1 h1

我的 Excel 文件中有三张纸：“第一”、“第二”和“第三”。如何通过 VBA 代码将此数据填充到三张纸中？

Answer 1

我仍然认为每行读取文本文件行是最好的方法。您可以将整个文件加载到数组中并稍后写入条件。

Sub Read_text_File()

Dim oFSO As New FileSystemObject
Dim oFS
Dim sText as String
Dim vArray
Dim lCnt as Long


Set oFS = oFSO.OpenTextFile("c:\textfile.TXT")


Do Until oFS.AtEndOfStream
    lCnt = lCnt + 1 
    sText = oFS.ReadLine
    vArray(lCnt) = sText
Loop


End Sub

然后查看数组并做你的事情。

或者您可以立即将数据加载到三个单独的数组中，代表三张纸。
这完全取决于您。
让我知道这是否有帮助。

Answer 2

开始录制宏并打开以空格分隔的txt文件。按 ctrl + f 并分三步找到 First、Second 和 Third。将所需范围从活动工作簿复制到相应工作表中所需的工作簿。

这将为您提供一个录制的宏，您可以对其进行重组以制作自动代码。也许我可以稍后发布一些代码。您将必须添加 vba 行来读取用于查找第二个和第三个单元格的行号，以便您知道必须复制的范围。

1个问题，你文件中的列数如图所示？？？？

这是一个代码。

Sub Macro1()
Dim startRow As Integer
Dim endRow As Integer
Dim wb As Workbook


Workbooks.OpenText Filename:="D:\file.txt", Origin:=437, startRow:=1, _
    DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
    :=True, Tab:=True, Semicolon:=False, Comma:=False, Space:=True, Other _
    :=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
    TrailingMinusNumbers:=True

 Set wb = ActiveWorkbook

Cells.Find(What:="FIRST", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
startRow = ActiveCell.Row + 1

Cells.Find(What:="SECOND", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
endRow = ActiveCell.Row - 1

Range("A" & startRow & ":D" & endRow).Copy
ThisWorkbook.Activate
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste

startRow = endRow + 2
wb.Activate

Cells.Find(What:="THIRD", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
endRow = ActiveCell.Row - 1

Range("A" & startRow & ":D" & endRow).Copy
ThisWorkbook.Activate
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste

wb.Activate
startRow = endRow + 2
endRow = Range("A" & Rows.Count).End(xlUp).Row

Range("A" & startRow & ":D" & endRow).Copy
ThisWorkbook.Activate
Sheets("Sheet3").Select
Range("A1").Select
ActiveSheet.Paste

wb.Close (False)
End Sub