Daten aus tmp-Datei importieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
Teste mal ob es so funktioniert.
Modul Modul1

Option Explicit 
'Pfad zur Datei 
Const strPFAD = "C:\Dokumente und Einstellungen\ts\Eigene Dateien\Forum\" 
 
Sub XMLLesen() 
  Dim F As Integer 
  Dim sInhalt As String 
  Dim sFilename As String 
  Dim tempText() As String 
  Dim A As Long 
  'Datei Pfad + Name 
  sFilename = strPFAD & "Wolfgang.xml" 
 
Application.ScreenUpdating = False 
On Error GoTo Fehler: 
  'Überschrift 
    Range("A1") = "Vorname" 
    Range("B1") = "Nachname" 
    Range("A1:B2").Font.Bold = True 
   
  'Datei in String einlesen 
    F = FreeFile 
    Open sFilename For Binary As #F 
    sInhalt = Space$(LOF(F)) 
    Get #F, , sInhalt 
    Close #F 
  
 'String aufteilen nach Vorname 
    tempText = Split(sInhalt, "MitarbeiterVorname"">") 
    For A = 1 To Ubound(tempText) 
     Cells(A + 1, 1) = Left$(tempText(A), InStr(tempText(A), "<") - 1) 
    Next A 
 Erase tempText 
  
 'String aufteilen nach Nachname 
 tempText = Split(sInhalt, "MitarbeiterNachname"">") 
    For A = 1 To Ubound(tempText) 
     Cells(A + 1, 2) = Left$(tempText(A), InStr(tempText(A), "<") - 1) 
    Next A 
 Erase tempText 
 Application.ScreenUpdating = True 
Exit Sub 
'Fehlerbeandlung 
Fehler: 
Application.ScreenUpdating = True 
If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, "Fehler" 
On Error Resume Next 
Close #F 
 
End Sub

Gruß Tino

www.VBA-Excel.de

Hallo Tino,
herzlichen Dank für die Rückmeldung und Ausarbeitungen. Ich habe sie soeben sofort getestet, leider aber ohne Erfolg. Muß die "Herkunftsdatei" einen bestimmten Namen haben - Du hast z.B. an einer Stelle einen Dateinamen "Wolfgang.xml" verwandt - ist damit evtl. die Herkunftsdatei gemeint? - Ich habe diese zwar auch so umbenannt - es tut sich aber nichts. In VBA erfolgt die Meldung, dass sich da etwas außerhalb des Index befindet - Left$(tempText(A), - was mache ich da evtl. verkehrt? - Ich habe überlegt, ob es zunächst der Einfachheit halber auch gehen mag, wenn die gesamte Datei von oben nach unten also A1 bis A* "eingespeist" wird (in eine Hilfstabelle") so dass man dann evtl. schneller aus der Hilfstabelle die notwendigen Daten 'rausholen könnte. Wäre das evtl. sinnvoller und schneller? Danke schon jetzt wieder für Deine Rückmeldung.
Herzliche Grüße
Wolfgang

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus tmp-Datei importieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread