标签纸，同时导入多个文本文件的Excel VBA(Label sheets while import

我一直试图在同一工作簿中导入多个大的文本文件到多个电子表格。 由于在本网站其他职位，我已经拼凑起来，似乎做的工作的一些VBA代码。 唯一的问题是，由于数据在文本文件中未标记，很难区分它们进行分析。 因此，我想在导入过程中标记与相应的文本文件中的每个电子表格。 我正在使用的代码如下所示。

谢谢！

Sub ImportManyTXTs()
Dim strFile As String
Dim ws As Worksheet
strFile = Dir("I:\test\*.txt")
Do While strFile <> vbNullString
Set ws = Sheets.Add
With ws.QueryTables.Add(Connection:= _
    "TEXT;" & "I:\test\" & strFile, Destination:=Range("$A$1"))
    .Name = strFile
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 437
    .TextFileStartRow = 1
    .TextFileParseType = xlFixedWidth
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1)
    .TextFileFixedColumnWidths = Array(7, 9)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With
strFile = Dir
Loop
End Sub

编辑：好不容易才弄明白。 只需添加ws.Name = strFile结束后用。 似乎工作得很好。

Answer 1:

好不容易才弄明白。 只需添加ws.Name = strFile结束后用。 似乎工作得很好。

文章来源: Label sheets while importing multiple text files Excel VBA