Manipulating Internet Explorer through Excel's VBA

Sub AddressLookup()
 
On Error Resume Next
 
Set objWShell = CreateObject("Wscript.Shell")
Set objShell = CreateObject("Shell.Application")
Set objShellWindows = objShell.Windows
Set IE1 = objShellWindows.Item
Set IE2 = objShellWindows.Item
Set IE3 = objShellWindows.Item
 
Dim currentCell As String
Dim primAddr1 As String
Dim secAddr1 As String
Dim primAddr2 As String
Dim secAddr2 As String
Dim city1 As String
Dim city2 As String
Dim state1 As String
Dim state2 As String
Dim zip1 As String
Dim zip2 As String
'Dim strLine
 
'Const ForReading = 1
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objTextFile = objFSO.OpenTextFile("address.txt", ForReading)
'strLine = add1
'Address1 = Split(strLine, ",")
 
currentCell = ActiveCell.Address
primAddr1 = ActiveCell.Offset(0, -15).Value
primAddr2 = ActiveCell.Offset(0, -14).Value
secAddr1 = ActiveCell.Offset(0, -12).Value
secAddr2 = ActiveCell.Offset(0, -11).Value
city1 = ActiveCell.Offset(0, -9).Value
city2 = ActiveCell.Offset(0, -8).Value
state1 = ActiveCell.Offset(0, -6).Value
state2 = ActiveCell.Offset(0, -5).Value
zip1 = ActiveCell.Offset(0, -3).Value
zip2 = ActiveCell.Offset(0, -2).Value
 
 
URL1 = "http://maps.google.com/"
URL2 = "http://maps.google.com/"
 
 
IE2.Navigate2 URL2
If Err.Number <> 0 Then
 Set IE2 = wscript.CreateObject("InternetExplorer.Application")
 IE2.Visible = True
 IE2.Navigate2 URL2
 IE2.Height = 432
 IE2.Width = 575
 IE2.Left = 575
 IE2.Top = 0
End If
 
 
IE1.Navigate2 URL1
If Err.Number <> 0 Then
 Do While IE2.Busy
 Loop
 Set IE1 = wscript.CreateObject("InternetExplorer.Application")
 IE1.Visible = True
 IE1.Navigate2 URL1
 IE1.Height = 432
 IE1.Width = 575
 IE1.Left = 0
 IE1.Top = 0
End If
 
 
GoogleLookup (IE1)
 
 
Set IE1 = Nothing
Set IE2 = Nothing
Set objShellWindows = Nothing
Set objShell = Nothing
 
End Sub
 
 
Private Sub GoogleLookup(ie)
 
Dim wshShell
Set wshShell = wscript.CreateObject("WScript.Shell")
 
wshShell.AppActivate ("Google Maps") 'Title of the window...
wscript.sleep (100)
 
wshShell.SendKeys "{TAB}"
wshShell.SendKeys "{TAB}"
wshShell.SendKeys "{TAB}"
wshShell.SendKeys "{TAB}"
wshShell.SendKeys "{TAB}"
wshShell.SendKeys "{TAB}"
wshShell.SendKeys "{TAB}"
wshShell.SendKeys "{TAB}"
ie.Document.All.Item("q").Value = primAddr1 & "," & secAddr1 & "," & city1 & "," & state1 & "," & zip1
wshShell.SendKeys "{ENTER}"
 
End Sub

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104: