frohe weihnachten und ein schönes neues jahr.
ich habe mal aus langerweile (hatte grad nix zu tun) ein bissl in dem forum in alten beiträgen rumgesucht und habe etwas extrem interessantes gefunden, was mir bei meinem versuch mein französisch zu lernen super weiterhelfen könnte.
wer mal unter /t/import-aus-internet-in-word-oder-excel/3045040
man kann offenbar (ich hab das skript dann auch mal auspobiert und es funktioniert) automatisch auf eine externe internetseite zugreifen und dort abfragen schalten, so z.B. bei gelbeseiten.de automatisch nach müller suchen zu lassen
hier der code von dem artikel:
Sub tt()
myUrl = „http://www.gelbeseiten.de“
Set IEApp = CreateObject(„InternetExplorer.Application“)
IEApp.Navigate myUrl
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
IEApp.Visible = True
IEApp.Document.all.Subject.Value = „Müller“
IEApp.Document.all.Location.Value = „Braunschweig“
IEApp.Document.all.Execute.Click
'IEApp.Quit
'Set IEApp = Nothing
End Sub
nun habe ich in einer excel tabelle ein paar deutsche wörter, die ich mir gern automatisch übersetzen lassen würde.
dazu müsste ich unter url einfach irgendeine translation seite eingeben,
aber leider klappt es ned, dass er das deutsche wort mit IEApp.Document.all.Subject.Value = „Apfel“
in das tranlation feld überträgt…
weiss jemand zufällig was man da machen muss?
die vba erklärung zu .subject und .location sind leider auch ned sehr hilfreich.
danke für tips
stefan