Excel 宏用于导入文本文件并覆盖工作表而不破坏引用

Question

我有以下宏，我经常使用它来将文本文件导入单独的 Excel 工作表：

Sub ImportManyTXTs()
Dim strFile As String
Dim ws As Worksheet
strFile = Dir("C:\location\of\folder\with\textfiles\*.txt")
Do While strFile <> vbNullString

strFile2 = Replace(strFile, ".txt", "")

Set ws = Sheets.Add
With ws.QueryTables.Add(Connection:= _
    "TEXT;" & "C:\location\of\folder\with\textfiles\" & 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 = xldelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = True
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = True
    .TextFileColumnDataTypes = Array(1, 1, 1)
    .TextFileFixedColumnWidths = Array(7, 9)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With
ws.Name = strFile2
strFile = Dir
Loop
End Sub

...但是如果已经使用了相同的名称，我想覆盖现有的工作表。在其他工作表中，我引用了工作表中将被“覆盖”的单元格，因此我需要一种方法来执行此操作而不会破坏对这些单元格的引用。任何人都知道一个好的解决方案吗？

Answer 1

假设除了查询表之外，这些工作表上没有存储任何其他信息，试试这个（我把你的 with 语句删掉了）：

Sub ImportManyTXTs()
Dim strFile As String
Dim Sht As Worksheet
Dim ws As Worksheet
strFile = Dir("C:\location\of\folder\with\textfiles\*.txt")
Do While strFile <> vbNullString

strFile2 = Replace(strFile, ".txt", "")

For Each Sht in Worksheets
    If Sht.Name = strFile2 Then
        Sht.Cells.ClearContents
        Set ws = Sht
    End If
Next Sht
If ws Is Nothing Then
    Set ws = Sheets.Add
    ws.Name = strFile2
End If
ws.Activate

With ActiveSheet.QueryTables.Add(Connection:= _
    'YourStuffHere
End With

strFile = Dir
Loop
End Sub

在这种情况下，如果工作表的内容已经存在，它将被替换，对单元格的引用不应更改。