Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema WebBrowser
BildScreenshot zu WebBrowser WebBrowser-Seite mit Beispielarbeitsmappe aufrufen

"an zielformatierung anpassen" beim einfügen?

Betrifft: "an zielformatierung anpassen" beim einfügen? von: Tommy
Geschrieben am: 19.09.2014 12:04:40

Hi,

gibt es eine Möglichkeit die Einfügemethode "An Zielformatierung anpassen" beim einfügen von Daten aus der Zwischenablage per VBA zu realisieren? Wenn ich das Testweise mit dem Makrorecorder aufzeichne kommt folgendes heraus:

Sheets("Tabelle1").Select
Worksheets("Tabelle1").Range("A3").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True

Allerdings hätte ich den Einfügebereich gern als Variable ala .cells (3,i) oder ähnliches gelöst. Hat da jemand eine Idee???

Danke

  

Betrifft: AW: "an zielformatierung anpassen" beim einfügen? von: Hajo_Zi
Geschrieben am: 19.09.2014 12:06:53

Sheets("Tabelle1").cells(3,i).PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True

GrußformelHomepage


  

Betrifft: AW: "an zielformatierung anpassen" beim einfügen? von: Tommy
Geschrieben am: 19.09.2014 12:12:50

das führt leider zu "Laufzeitfehler 1004: Anwendungs- oder Objektdefinierter Fehler" :(


  

Betrifft: AW: "an zielformatierung anpassen" beim einfügen? von: Hajo_Zi
Geschrieben am: 19.09.2014 12:24:13

ich kann das nicht nachvollziehen, was wohl daran liegt das ich nicht sehe was Du kopierst und das ich den letzten kompletten Code nicht sehe.

GrußformelHomepage


  

Betrifft: AW: "an zielformatierung anpassen" beim einfügen? von: Tommy
Geschrieben am: 19.09.2014 12:46:24

ich kopiere mit:

WebBrowser1.ExecWB 17, 0
WebBrowser1.ExecWB 12, 0

eine komplette webseite und möchte diese Zwischenablage dann einfügen.


Das ganze Codestückchen ist daher auch kaum mehr. Hier:

WebBrowser1.document.getElementById("vfilter").selectedindex = 0
WebBrowser1.document.getElementById("vfilter").FireEvent ("onchange")

While WebBrowser1.readyState <> 4
DoEvents
Wend

Do: Loop Until WebBrowser1.Busy = False
Do: Loop Until WebBrowser1.Busy = False

WebBrowser1.ExecWB 23, 0

WebBrowser1.ExecWB 17, 0 'Select All
Sleep 300
WebBrowser1.ExecWB 12, 0 'Copy
Sleep 100

Sheets("Tabelle2").Select
Worksheets("Tabelle2").Range("A3").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True


Thats it :)


  

Betrifft: AW: "an zielformatierung anpassen" beim einfügen? von: Hajo_Zi
Geschrieben am: 19.09.2014 12:48:49

gut Du möchtest meinen Code also nicht einarbeiten. Ich bin dann raus.

Gruß Hajo


  

Betrifft: AW: "an zielformatierung anpassen" beim einfügen? von: Tommy
Geschrieben am: 19.09.2014 13:12:01

doch, ich dachte du möchtest mein "original" sehen. Sorry. Ich habe deinen wie folgt eingebaut:


WebBrowser1.document.getElementById("vfilter").selectedindex = 0
WebBrowser1.document.getElementById("vfilter").FireEvent ("onchange")

While WebBrowser1.readyState <> 4
DoEvents
Wend

Do: Loop Until WebBrowser1.Busy = False
Do: Loop Until WebBrowser1.Busy = False

WebBrowser1.ExecWB 23, 0

WebBrowser1.ExecWB 17, 0 'Select All
Sleep 300
WebBrowser1.ExecWB 12, 0 'Copy
Sleep 100

Sheets("Tabelle2").cells(3,i).PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True



Und bekomme dann eben leider den Fehler :(


 

Beiträge aus den Excel-Beispielen zum Thema ""an zielformatierung anpassen" beim einfügen?"