Download txt using QueryTables

[ojhawkins]

Hi all,

I am trying to download a txt file using the following code.

It is only downloading a few line of data and am not sure why.

Any help is greatly appreciated.

Thanks,
O



Sub Download()


With Sheets(2).QueryTables.Add(Connection:="URL;http://www.asx.com.au/data/TheoPrices.txt", Destination:=Sheets(2).Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0

.Refresh BackgroundQuery:=False

End With

End Sub