Microsoft Excel

Herbers Excel/VBA-Archiv

Externen Text mit Makro einfügen

Betrifft: Externen Text mit Makro einfügen von: Sebastian
Geschrieben am: 01.12.2007 23:53:09

Hallo Profis,

gibt es eine möglichkeit mittels einem Makro ein Stück text aus einem Externen Programm (z.B. Internet Explorer) zu kopieren und in einer Zelle einzufügen????

Das wäre mir eine super hilfe.

Ich möchte praktisch wenn ich den Button drücke.

1. Task wechseln zum Internet Explorer (ist also schon geöffnet)
2. Eine Ganz bestimmte Zeile Kopieren
3. diese dann in Excel einfügen.

Natürlich ändert sich der Text in Zeile ab und an.

Vielen Dank für eure Hilfe

Gruß

Sebastian

  

Betrifft: AW: Externen Text mit Makro einfügen von: anton
Geschrieben am: 02.12.2007 14:09:07


Hallo Sebastian,

so z.B.:

Sub deka()
  Dim IEApp, IEDocument As Object    
  Dim strBody, stri As String  
  Dim i As Long  
  Dim zeilen As Variant  
  Set IEApp = CreateObject("InternetExplorer.Application")  
 
 'Deka Fonds
  adresse = "www.deka.de/decontent/produkte/fonds/portrait/portraitLU0124427930.jsp?erweitert=aus&&kaufenbutton=aus"
  IEApp.Visible = False
  IEApp.Navigate adresse
  Do: Loop Until IEApp.Busy = False    
  Do: Loop Until IEApp.Busy = False    
  Set IEDocument = IEApp.Document  
  strBody = IEDocument.body.innerhtml
 'Debug.Print IEDocument.body.innerhtml
  zeilen = Split(strBody, vbCrLf, , vbTextCompare)
  For i = LBound(zeilen) To UBound(zeilen)  
    strZeile = zeilen(i)
    strZeile = Replace(strZeile, Chr(34), "")
    If InStr(1, strZeile, "Ausgabepreis:", vbTextCompare) > 0 Then  
      strAusgabe = Mid(zeilen(i + 1), InStr(1, zeilen(i + 1), ">", vbTextCompare) + 1)
      strAusgabe = Left(strAusgabe, InStr(1, strAusgabe, "<", vbTextCompare) - 1)
      strRuecknahme = Mid(zeilen(i + 3), InStr(1, zeilen(i + 1), ">", vbTextCompare) + 1)
      strRuecknahme = Left(strRuecknahme, InStr(1, strRuecknahme, "<", vbTextCompare) - 1)
'     ' Debug.Print strAusgabe & vbCr & strRuecknahme & vbCr
      Exit For  
    End If  
  Next
  Cells(1, 1).Value = CDbl(strAusgabe)
  Cells(1, 2).Value = CDbl(strRuecknahme)
  IEApp.Quit
End Sub  


mfg Anton


  

Betrifft: AW: Externen Text mit Makro einfügen von: Sebastian
Geschrieben am: 02.12.2007 16:08:26

ok das ist doch schonmal was.

geht das denn auch wenn es nicht der IE ist sondern auch der ein text in einem beliebigen programm???

Wie gesagt das Programm ist schon geöffnet , nur der Text, z.B. 2345H ändert sich immer. Kann ich immer genau die selbe Stelle auslesen und in Excel einfügen???????

gruß

Sebastian


 

Beiträge aus den Excel-Beispielen zum Thema "Externen Text mit Makro einfügen"