G
gunny1979
Hi,
Im getting a run time error 13 for the code below!! it says Type
Mismatch.
can anyone see why, i cant!!
Sub getit()
'use this once and then refresh
myurl =
"http://www.all-hotels.com/xbook/ser...abook&filter=&splurgeUrl=yes&txtArrivalDate1="
+ Sheets("Sheet2").Range("B11") + "&txtDepartureDate1=" +
Sheets("Sheet2").Range("B12") +
"&locationID=450210&hotel_name=&lastLocation=Farnborough&cboArrivalMonths="
+ Sheets("Sheet2").Range("B19") + "&cboArrivalDays=10&cboNights=" +
Sheets("Sheet2").Range("B20") +
"&number_of_adults1=2&number_of_children1=0&number_of_beds1=1"
With
ActiveWorkbook.Worksheets("test").QueryTables.Add(Connection:="URL;" &
myurl, Destination:=Worksheets("test").Cells(1, 1))
FieldNames = True
RowNumbers = False
FillAdjacentFormulas = False
PreserveFormatting = True
RefreshOnFileOpen = False
BackgroundQuery = True
RefreshStyle = xlInsertDeleteCells
SaveData = True
AdjustColumnWidth = True
RefreshPeriod = 0
WebPreFormattedTextToColumns = True
WebSingleBlockTextImport = False
WebDisableDateRecognition = False
WebDisableRedirections = False
Refresh BackgroundQuery:=False
End With
End Sub
Im getting a run time error 13 for the code below!! it says Type
Mismatch.
can anyone see why, i cant!!
Sub getit()
'use this once and then refresh
myurl =
"http://www.all-hotels.com/xbook/ser...abook&filter=&splurgeUrl=yes&txtArrivalDate1="
+ Sheets("Sheet2").Range("B11") + "&txtDepartureDate1=" +
Sheets("Sheet2").Range("B12") +
"&locationID=450210&hotel_name=&lastLocation=Farnborough&cboArrivalMonths="
+ Sheets("Sheet2").Range("B19") + "&cboArrivalDays=10&cboNights=" +
Sheets("Sheet2").Range("B20") +
"&number_of_adults1=2&number_of_children1=0&number_of_beds1=1"
With
ActiveWorkbook.Worksheets("test").QueryTables.Add(Connection:="URL;" &
myurl, Destination:=Worksheets("test").Cells(1, 1))
FieldNames = True
RowNumbers = False
FillAdjacentFormulas = False
PreserveFormatting = True
RefreshOnFileOpen = False
BackgroundQuery = True
RefreshStyle = xlInsertDeleteCells
SaveData = True
AdjustColumnWidth = True
RefreshPeriod = 0
WebPreFormattedTextToColumns = True
WebSingleBlockTextImport = False
WebDisableDateRecognition = False
WebDisableRedirections = False
Refresh BackgroundQuery:=False
End With
End Sub