Macro: Importing .csv file into a specified worksheet overwriting the existing data

[heyviggy]

Hi there.

It has been years since I wrote my last VBA code, and hence I would really appreciate some help. I've searched forums, but no matter what I do I can't get the examples I find to work. I feel kind of stupid and assume that this is a very simple problem, and I would be grateful if anyone could help me out.

What I want to do:

- Construct a macro to import a csv-file to my worksheet named "Info". The data in the .csv-file should start in row A5 in my worksheet.
- If the worksheet "Info" already has data, I want to overwrite the existing data with the new data starting in row A5

The directory of the csv-file is C:\Test\mycsvfile.csv

Could anyone help me with this?

Best regards

 

[patel45]

need a sample csv file, can you provide a link to ?

 

[heyviggy]

This is my code so far. My main problem is that when I run it several times, the data isn't overwritten - just "pushed" to the right.

Sub importFile()

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Test\mycsvfile.csv", Destination:=Range("$A$1"))
.Name = "CAPTURE"
.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 = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False

End With
End Sub

 

[GooberTron]

Have you tried changing the .RefreshStyle = xlInsertDeleteCells to = xlOverwriteCells?