Question

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

"FIRST"
a1 b1 c1 d1
a2 b2 c2 c2

"SECOND" 
e1 f1 
e2 f2

"THIRD" 
g1 h1

我的Excel文件中有三张：“first”，“second”和“third”。如何通过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行来读取用于查找secon和第三个的单元格的行号，以便你知道你需要复制的范围。

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

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

2 个答案: