How to use the "shell" command?
Try the following. This will cycle through all the web pages like the
original but it will append the text data to the existing data rather than
overwrite........Steve
Sub ParseOpenWebPage()
Dim strDoc As String
Dim a As Integer
Dim b As Integer
a = Selection.Row
b = Selection.Column
Set objShell = CreateObject("Shell.Application")
Set objShellWindows = objShell.Windows
If objShellWindows.Count = 0 Then
Set objShellWindows = Nothing
Set objShell = Nothing
Exit Sub
End If
strDoc = ""
For i = 0 To objShellWindows.Count - 1
Set objIE = objShellWindows.Item(i)
If InStr(objIE.LocationURL, "http") Then
Set objSelection = objIE.Document.Selection.CreateRange()
strDoc = strDoc & objSelection.Text & ","
End If
Next i
If Len(strDoc) 0 Then
arrText = Split(strDoc, ",")
For r = 0 To UBound(arrText)
Cells(a + r, b).Value = arrText(r)
Next r
End If
Set objIE = Nothing
Set objShellWindows = Nothing
Set objShell = Nothing
End Sub
|