Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Export zu XML Probleme
12.05.2014 11:04:41 meinhana
NotSolved
13.05.2014 08:58:25 Gast7070
NotSolved

Ansicht des Beitrags:
Von:
meinhana		 Datum:
12.05.2014 11:04:41		 Views:
1343		 Rating:
     
Antwort:
  Ja
Thema:
Excel Export zu XML Probleme

Hallo Leute,

ich habe folgends Problem,

ich habe ein Programm geschreiben, welches aus einer Excel Datei, welche mehrere Tabellenseiten hat, die Daten in eine XML Datei schreibt.

Meine Tabellen sind so aufgebaut:

Tabellenseite 1:                                 Tabellenseite 2: (english)

Name  | ID | vorname | etc.|             Name | ID | firstname | etc.| 

Hans    | 1 | Peter  | etc.|                   Hans   | 1  |  Peter  | etc.| 

Jürgen | 2 | Wurst   | etc.|                 Jürgen | 2 | Wurst   | etc.| 

usw.

Mein Fehler dabei ist es, das wenn es in meiner Tabellenseite 1 eine Nummer 20 ((ID)welche an 20 bzw. 21 Stelle ist) gibt,

und diese (ID(20)) bei der Tabellenseite 3 an Erster Stelle kommt, schreibt er die ID 20 (und alles was dazu gehört)  auf die Stelle 19 in der XML Datei.

Ist alles ein bisschen schwer zu formulieren

Hiereinmal mein Quellcode

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Zeile = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
 
For currentNumber = 1 To Zeile
    found = False
    currentText = Worksheets(2).Cells(currentNumber, 1).Value
    For lRow = 2 To Zeile
        If Worksheets(2).Cells(lRow, 2) = currentNumber And currentText <> "" Then
            Print #1, "<Name=""" & Worksheets(2).Cells(lRow, 1) & """ID=""" & currentNumber & """> "
        End If
        For counter = 1 To ActiveWorkbook.Sheets.Count
            If Worksheets(counter).Cells(lRow, 2).Value = currentNumber And currentText <> "" And Worksheets(counter).Cells(lRow, 1) = currentText Then
                UTF8Code = GetUTF8String(Worksheets(counter).Cells(lRow, 4).Value)
                Print #1, vbTab; "<Vorname=""" & Worksheets(counter).Cells(lRow, 3) & """ Etc=""" & UTF8Code & """>"
                found = True
            ElseIf Worksheets(counter).Cells(lRow, 2).Value = currentNumber - 1 And currentText <> "" And Worksheets(counter).Cells(lRow, 1) = currentText Then
                UTF8Code = GetUTF8String(Worksheets(counter).Cells(lRow, 4).Value)
                Print #1, vbTab; "<Vorname=""" & Worksheets(counter).Cells(lRow, 3) & """ Etc=""" & UTF8Code & """>"
                found = True
            End If
        Next counter
        If found = True Then
            'Exit For
        End If
    Next lRow
Next currentNumber

Ich bitte um Hilfe ...

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Export zu XML Probleme
12.05.2014 11:04:41 meinhana
NotSolved
13.05.2014 08:58:25 Gast7070
NotSolved