Help. Selecting start row for text file import VBA

[tigersden]

Hi,
I have managed to import a text file & then delete the first row imported as it contains the query used to produced the original file & unfirtunately I cannot get this removed at source.
But I am stuck trying to import a second file which needs to start at the next row down from the previous import.
I need help with
1) Finding the next row to start import & passing this to the the sub see bold text below:
With ActiveSheet.QueryTables.Add(Connection:="TEXT;H:\Work\EROS\TestData\Oct05.txt", Destination:=Range("A1"))
2) When importing has finished go the the first row (Used in above) & delete it.

Any ideas??

 

[acw]

Hi

Assuming that the first file has already been imported and the header row deleted, try something like

nextrow = cells(rows.count,"A").end(xlup).offset(1,0).row
With ActiveSheet.QueryTables.Add(Connection:="TEXT;H:\Work\EROS\TestData\Oct05.txt", Destination:= Range("A" & nextrow))
...
end with

cells(nextrow,1).entirerow.delete

HTH

Tony

 

[tigersden]

Thanks Tony.
I did manage to get it to work eventually but will look at your method as it appears more efficient.
Thanks once again
Tim