Run Time Error

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top