VBA代码：将多个文本文件合并到当前工作表

Sub ImportText()
 Dim fileToOpen As Variant
 Dim fileFilterPattern As String
 Dim wsMaster As Worksheet
 Dim wbTextImport As Workbook
 fileFilterPattern = "Text Files (*.txt; *.csv; *.log),*.txt;*.csv;*.log"
 
 fileToOpen = Application.GetOpenFilename(fileFilterPattern)
 Workbooks.OpenText _
   Filename:=fileToOpen, _
   StartRow:=2, _
   DataType:=xlDelimited, _
   Semicolon:=True
 
 Set wbTextImport = ActiveWorkbook
 
 Set wsMaster = ThisWorkbook.Worksheets("original file")
 
 wbTextImport.Worksheets(1).Range("A1").CurrentRegion.Copy wsMaster.Range("A3")
 
 wbTextImport.Close False
End Sub

Public Sub ImportText2()
 Dim fd As FileDialog
 Dim var
 Set fd = Application.FileDialog(msoFileDialogFilePicker)
 With fd
   .AllowMultiSelect = True
   .Title = "选择要导入的文本文件"
   With .Filters
     .Clear
     .Add "Text Files", "*.txt;*.csv;*.log", 1
   End With
   If .Show Then
     For Each var In .SelectedItems
       Call Import_Textfile(var)
     Next
   End If
 End With
End Sub

Private Sub Import_Textfile(ByVal tFile As String)
 Debug.Print tFile
 Dim first_row As Long, last_row As Long
 Dim content As String, var As Variant, v As Variant
 Dim cols As Integer
 Dim iFile As Integer
 Dim i As Long, j As Long
 Dim sht As Worksheet
 
 Set sht = ActiveSheet
 first_row = 3
 last_row = LastRow(sht.Range("a1")) + 1
 iFile = FreeFile
 
 Open tFile For Input As #iFile
 Line Input #iFile, content
 
 While Not EOF(iFile)
   i = i + 1
   If i > 1 Then
     var = Split(content, ";")
     cols = 6
     If UBound(var) < 6 Then
       cols = UBound(var)
     End If
     For j = 0 To cols Step 1
     '检查文本文件第一列的格式并转换为合适的日期格式
       If j = 0 Then
         v = Split(var(j), "/")
         sht.Cells(last_row, j + 1) = DateSerial(v(2), v(1), v(0))
       Else
         sht.Cells(last_row, j + 1) = var(j)
       End If
     Next
     last_row = last_row + 1
   End If
   Line Input #iFile, content
 Wend
 
 If i > 1 Then
   var = Split(content, ";")
   cols = 6
   If UBound(var) < 6 Then
     cols = UBound(var)
   End If
   For j = 0 To cols Step 1
     If j = 0 Then
       v = Split(var(j), "/")
       sht.Cells(last_row, j + 1) = DateSerial(v(2), v(1), v(0))
     Else
       sht.Cells(last_row, j + 1) = var(j)
     End If
   Next
 End If

 Close #iFile
 
 sht.Range("H3:J3").Select
 Selection.Copy  
 sht.Range("H4:J" & last_row).Select
 Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, 
   _SkipBlanks:=False, Transpose:=False
 
 Application.CutCopyMode = False
 sht.Range("A1").Select
End Sub

Public Function LastRow(ByRef Rng As Range)
 With Rng.Parent
   LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
 End With
End Function