Baufachhaus
Aktives Mitglied
Hallo zusammen,
leider stoße ich gerade an die Grenze meiner Kenntnisse in Sachen Excel.
Folgendes Problem:
Ich habe eine CSV bzw. Excel Tabelle mit Artikeldaten. Die Artikelbeschreibungen sind jedoch in einer Spalte nur als HTML Link vorhanden. Soll heißen, es gibt für jede Artikelbeschreibung eine eigene URL.
Da die Ameise keine wget () Funktion hat, muss also der HTML Code als Plaintext in der Datei stehen.
Das ganze sollte, so wie ich mich da jetzt belesen habe, über VBA bzw. ein Makro in Excel gehen. - Und genau da liegt das Problem.
Ich habe kein passendes Script für mein Problem gefunden, noch dazu habe ich Excel für Mac, was die Sache zwecks Zugriff auf IE bzw. andere Programme aus VBA raus nicht gerade vereinfacht.
Zur Not kann ich auch an einer Windows-Maschine die Datei bearbeiten, jedoch brauche ich erst einmal Hilfe bei dem Script.
Folgendes Script habe ich bisher, was aber natürlich nicht funktionier:
Ich hoffe mir kann hier jemand helfen. Vielleicht habt Ihr ja ähnliche Probleme und eine ganz andere Lösung gefunden.
Danke im Voraus.
Beste Grüße
Baufachhaus.de
leider stoße ich gerade an die Grenze meiner Kenntnisse in Sachen Excel.
Folgendes Problem:
Ich habe eine CSV bzw. Excel Tabelle mit Artikeldaten. Die Artikelbeschreibungen sind jedoch in einer Spalte nur als HTML Link vorhanden. Soll heißen, es gibt für jede Artikelbeschreibung eine eigene URL.
Da die Ameise keine wget () Funktion hat, muss also der HTML Code als Plaintext in der Datei stehen.
Das ganze sollte, so wie ich mich da jetzt belesen habe, über VBA bzw. ein Makro in Excel gehen. - Und genau da liegt das Problem.
Ich habe kein passendes Script für mein Problem gefunden, noch dazu habe ich Excel für Mac, was die Sache zwecks Zugriff auf IE bzw. andere Programme aus VBA raus nicht gerade vereinfacht.
Zur Not kann ich auch an einer Windows-Maschine die Datei bearbeiten, jedoch brauche ich erst einmal Hilfe bei dem Script.
Folgendes Script habe ich bisher, was aber natürlich nicht funktionier:
Code:
Sub wget()Const url = "L2"
Dim Sourcecode As String
Dim IE As Object
' Zugriff aufs Web
Set IE = CreateObject("ChromeApplication")
IE.Visible = False
IE.Navigate url
Do While IE.Busy = True
Loop
Sourcecode = IE.Document.Body.innerHTML
IE.Quit
End Sub
Ich hoffe mir kann hier jemand helfen. Vielleicht habt Ihr ja ähnliche Probleme und eine ganz andere Lösung gefunden.
Danke im Voraus.
Beste Grüße
Baufachhaus.de