Importando texto no Excel 2010 - Substituir importações anteriores

Question

Eu criei uma macro, usando o gravador, para adicionar um arquivo .txt específico no meu arquivo do Excel, usando uma tecla de atalho específica, em uma área específica do arquivo do Excel aberto. No entanto, eu tenho esse problema: quando eu uso a macro novamente, os novos dados não substituem os dados anteriores importados, na mesma área, mas mudam o quanto necessário para deixar os dados anteriores intocados.

Existe alguma maneira de alterar isso, seja com uma opção ou alterando o código de macro? Especificamente, gostaria que a macro verificasse se as células a serem gravadas já continham dados nelas e limpava seu conteúdo antes de importar os dados do arquivo.

Código até agora (resultado de uma macro gravada:)

Sub testimport()
'
' testimport Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\Users\egw\Desktop\ÍÝïò öÜêåëïò\Book2.txt", Destination:=Range( _
    "M14"))
    .Name = "Book2"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 737
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With
End Sub

    

Answer 1

Altere o .RefreshStyle = xlInsertDeleteCells para .RefreshStyle = xlOverwriteCells e ele substituirá as células pelos dados do arquivo. Isso força a atualização a substituir os dados em sua tabela para ficarem atualizados com o texto no arquivo.