web bookmark

213730 - XL2000: How to Programmatically Perform a Web Query
Sub create_web_query()
Dim parameters As String
parameters = "jt=supply+chain+analyst"
With ActiveSheet.QueryTables.Add(Connection:="URL;http://jobsearch.beta.monster.com/jobsearch.asp?" & parameters, Destination:=Range("A1"))
.Name = "query_name74"
'.PostText = "jt=[""jt"",""supply+chain+analyst""]"
.WebTables = "9"
.Refresh
End With
End Sub

Sub create_New_web_query()
Dim parameters As String
With ActiveSheet.QueryTables.Add(Connection:="URL;http://jobsearch.beta.monster.com/jobsearch.asp?" & "jt=[""jt"",""supply+chain+analyst""]", Destination:=Range("A1"))
.Name = "query_name74"
'.PostText = "jt=[""jt"",""supply+chain+analyst""]"
.WebTables = "9"
.Refresh
End With
End Sub

posted by Yong @ 9:04 PM