|
Hallo liebe Experten :)
Ich würde gerne per getElementByID ein Feld in einem bereits geöffneten Internetexplorer befüllen. Ich habe bereits etwas gefunden, womit ich eine geöffnete IE-Instanz ansprechen kann. Allerdings ging es in dem Script nicht darum getElementByID anzuwenden, sondern die IE-Seite zu kopieren und in einem neuen Tabellenblatt einzufügen. Nun meine Frage... Wie ändere ich das Script so ab, dass ich ein Feld im bereits geöffneten IE ausfüllen kann?
Private Sub CommandButton1_Click()
Dim objShell As Object, neu As Worksheet
Dim win As Object, IEDoc As Object
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If InStr(1, UCase(win.FullName), "IEXPLORE.EXE") <> 0 Then
If win.Document.Title = "Test" Then 'Test anpassen
Set IEDoc = win.Document
Set neu = Worksheets.Add(After:=Worksheets(Worksheets.Count))
IEDoc.execCommand ("SelectAll")
IEDoc.execCommand ("Copy")
neu.Paste
End If
End If
Next
Set objShell = Nothing
End Sub
Vielen Dank für die Hilfe im Voraus und schöne Grüße
Nico
|