I have a macro that imports data from an exported text file. And it works
like it is supposed to on a bunch of computers, except the customers. This
is my code:
With ActiveSheet.QueryTables.Add(Connection:= strImportFullName,
Destination:=Range("A1"))
.Name = "INVENT"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
'define the DataTypes to be TEXT:
' .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
' 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2 _
' , 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
' 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
' .Refresh BackgroundQuery:=False
'DataTypes:
'1 General
'2 Text
'3 Date DYM
'4 Date DMY
'5 Date YMD
'6 Date MYD
'7 Date DYM
'8 Date YDM
'9 Skip
.TextFileColumnDataTypes = rayImportArray
.Refresh BackgroundQuery:=False

The line of code that fails is
.Refresh BackgroundQuery:=False

We have attempted to run this on Excel 97 and it failed, so we moved to an
Excel 2003 workstation and ran it, and much to my surprise, it too failed.
All I ended up with was a row of field names, but no data.

I am stumped. What do I have to change or activate to make this work?
Is there something that I can add to my code to be sure that whatever the
required element is, that it is activated so that the macro gets the
expected results?
Thanks in advance.
TTFN
JMMach