Problem importing text file into Excel.

[bdbBear]

The following code brings in data from a text file. It's supposed to just paste the data in the destination range. For some reason it's inserting columns (on some user's computers - right now users are using XP and XL03). Any idea what could be causing the columns to be inserted?

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Filename, Destination:=Range("B8"))
.FieldNames = True
.PreserveFormatting = True
.RefreshStyle = xlInsertDeleteCells
.SaveData = True
.AdjustColumnWidth = False
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTabDelimiter = True
.Refresh BackgroundQuery:=False
End With

 

[SkipVought]

Hi,

1. When you ADD a QueryTable it INSERTS columns based on the number of columns in the QueryTable.

2. You only need to ADD a QueryTable ONE TIME. You should NOT use the recorded code repeatedly for the same Import. Rather you should use Data/Refresh Data[/t]. Using code you can reference the QueryTable NAME as such...

[MyQueryTableName].QueryTable.RefreshData

Skip,
[sub]
[red]Be Advised![/red] The Vinyards of Texas have produced a wine with diuretic dimishment and urethric relief...
Pinot More![/sub]