I have a problem that i can not figure out. I need to import new data
file into existing woorksheet but it needs to be imported into first
empty cell in A.

This is the code i am working with right now. It importsw the data
fine, but that last cell thing i can not figure out.

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\ikirin\Desktop\San
Fran\Demolition-Data\Bent 2\BENT 2 -Final0022.dat" _
, Destination:=*Range("a1"))*
..Name = "BENT 2 -Final0022"
..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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
..TextFileTrailingMinusNumbers = True
..Refresh BackgroundQuery:=False
End With


Bolded part is the file input location so if i need to open another
file in the same directory i will make a loop, i got that. But i will
need to import that file on the end of existing one. So please help.


--
ikirin
------------------------------------------------------------------------
ikirin's Profile: http://www.excelforum.com/member.php...o&userid=35599
View this thread: http://www.excelforum.com/showthread...hreadid=553700