I am using QueryTable to read a series of websites and insert them into Excel.
After doing a QueryTables.Add as in Item #1 below, I need to be able to capture the URL that is returned. For the Item #1 example, the URL will look like Item #2... but I just can't find a way in VBA.
Anyone know how to do this?
Thanks - Ron
ron_mauldin@hotmail.com
ITEM #1
Sub ResumeQuery()
Sheets("Temp").Select
Cells.Select
Selection.Clear
Sheets("Temp").Range("A1").Select
With Sheets("Temp").QueryTables.Add(Connection:= _
"URL;http://www.headhunter.net/JobPoster/Resumes/resquery.asp" _
, Destination:=Range("A1"))
.Name = ""
.PostText = _
"Words=&Use=All&Cats=Cat089&EmpType=EDCT%7CEDET&EX=&DT=&EdLevel=&Freshness=&Town=Phoenix&SID=AZ&CID=US&t=0&btnFJSearch=Search%21"
'Cat089 = Sales
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebFormatting = xlWebFormattingAll
.WebSelectionType = xlSpecifiedTables
.WebTables = "8,9"
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.Refresh BackgroundQuery:=False
End With
End Sub
ITEM #2
http://www.headhunter.net/JobPoster...find.asp;SS=NO;PROD=ResumeAccess&CiBookMark=2
After doing a QueryTables.Add as in Item #1 below, I need to be able to capture the URL that is returned. For the Item #1 example, the URL will look like Item #2... but I just can't find a way in VBA.
Anyone know how to do this?
Thanks - Ron
ron_mauldin@hotmail.com
ITEM #1
Sub ResumeQuery()
Sheets("Temp").Select
Cells.Select
Selection.Clear
Sheets("Temp").Range("A1").Select
With Sheets("Temp").QueryTables.Add(Connection:= _
"URL;http://www.headhunter.net/JobPoster/Resumes/resquery.asp" _
, Destination:=Range("A1"))
.Name = ""
.PostText = _
"Words=&Use=All&Cats=Cat089&EmpType=EDCT%7CEDET&EX=&DT=&EdLevel=&Freshness=&Town=Phoenix&SID=AZ&CID=US&t=0&btnFJSearch=Search%21"
'Cat089 = Sales
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebFormatting = xlWebFormattingAll
.WebSelectionType = xlSpecifiedTables
.WebTables = "8,9"
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.Refresh BackgroundQuery:=False
End With
End Sub
ITEM #2
http://www.headhunter.net/JobPoster...find.asp;SS=NO;PROD=ResumeAccess&CiBookMark=2