VBA: XML Datei in Excel öffnen, Wert suchen und kopieren

Forumthread: VBA: XML Datei in Excel öffnen, Wert suchen und kopieren

23.05.2024 18:30:58

MarC

Guten Abend zusammen,

könnte mir bitte jemand bei meinem Problem weiterhelfen?

Ich möchte per Button eine XML Datei öffnen und in dieser nach Begriffen die in B10:B30 stehen suchen lassen und das daneben stehende Ergebnis aus der XML Datei in meine Excel Datei von C10:C30 kopieren. Aktuell konnte ich nur in Erfahrung bringen wie ich per VBA eine XML Datei öffne aber ich weiß nicht wie nach Begriffen suchen kann die in meiner Excel Datei stehen und in der XML gefunden werden sollen. Kann mir bitte jemand helfen?

Grüße
MarC

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA: XML Datei in Excel öffnen, Wert suchen und kopieren

23.05.2024 19:51:51

JoWE

Hallo,
versuche den Prozess mit dem Makrorekorder aufzuzeichnen (Menü Ansicht, Makro aufzeichnen)
dann so weiter:
> Daten > Daten abrufen > Aus Datei > Aus XML. ...
>Wechseln zum Laufwerk/ Speicherplatz > Datei auswählen > auf Öffnen klicken
usw., danach kannst/musst Du das Makro bearbeiten oder wenn Du nicht weiter weißt, hier einstellen mit dem Hinweis was nicht oder nicht so klappt wie Du es Dir vorstellst.
Gruß
Jochen

AW: VBA: XML Datei in Excel öffnen, Wert suchen und kopieren

23.05.2024 23:14:18

JoWE

Hallo,

ich habe mal ein Beispiel gmacht, hier meine Tabelle

Userbild

In der von Dir geposteten XML-Datei hat mein Makro den Suchbegriff aus A2 gefunden!
Der Makrocode dazu sieht so aus:

Option Explicit



Sub xmlFile_durchsuchen()

  Dim myPAth As String

  myPAth = Range("B2").Text

  Dim myFile As String

  myFile = Range("C2").Text

  Dim mySb As String

  mySb = Range("A2").Text

  

  Dim myTab As String

  Dim myTreffer As String

  

  Application.DisplayAlerts = False

  

  On Error GoTo Fehlerbehandlung

  

  Workbooks.OpenXML Filename:=myPAth & myFile, LoadOption:=xlXmlLoadImportToList

  myTab = ActiveSheet.Name

  myTreffer = Cells.Find(What:=mySb, After:=ActiveCell, LookIn:= _

        xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _

        xlNext, MatchCase:=False, SearchFormat:=False).Address

  ActiveWorkbook.Close savechanges:=False

  ActiveSheet.Range("D2") = myTab

  ActiveSheet.Range("E2") = myTreffer

  

  MsgBox "Treffer in Tabelle ''" & myTab & "''" & vbCr & "in Range ''" & myTreffer & "''", vbOKOnly

  

Fehlerbehandlung:

  If Err = 1004 Then MsgBox "Fehler! File nicht gefunden!", vbOKOnly, "Fehlersituation"

  If Err = 438 Then MsgBox "Fehler! Suchbegriff nicht gefunden!", vbOKOnly, "Fehlersituation"

 

 Application.DisplayAlerts = True



End Sub

Gruß
Jochen

Beliebteste Forumthreads (12 Monate)

VBA: XML Datei in Excel öffnen, Wert suchen und kopieren

Forumthread: VBA: XML Datei in Excel öffnen, Wert suchen und kopieren

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA: XML Datei in Excel öffnen, Wert suchen und kopieren

Forumthread: VBA: XML Datei in Excel öffnen, Wert suchen und kopieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread