brauche DRINGEND hilfe

[c0rny]

Hallo an alle.

Folgende Aufgabe habe ich bekommen, da ich mich aber nicht in vb o.ä. ahnung habe bitte ich euch um hilfe. Nun das Problem.

Ich habe eine excel Tabelle. Die überschrift lautet: Solingen.

Danach folgen "unter" überschriften namens

Komponente

IP-Adresse

Subnetmask

PC 104

192.xxx.x.xx

255.255.255.xx

x

x

x

x

x

x

x

x

x

x

x

x

bis jetzt noch alles klar ? gut dann weiter

nun soll ich mit hilfe von makro und VB dies so programmieren das am ende eine XML Datei entsteht, die wie folgt aussieht:

<Projekte>

<Projekt>

<name>Solingen</name>

<standort>

<name>Solingen</name>

<Komponenten>

<Komponente>

<name>PC 104</name>

<ipadresse>192.xxx.x.xx</ipadresse>

x

x

x

usw

</Komponente>

</Komponenten>

</standort>

</projekt>

</projekte>

wäre cool wenn ihr mir helfen könnt. Danke im voraus

[-roTekuGeL-]

ich glaube (und hoffe) das ich für alle spreche wenn ich sage dass keiner hier das für dich machen wird...

mein tip wäre aber ein loop über die tabelle und den kram dann mit dem open befehl in ne datei rausschreiben... die datei dann noch *.xml nennen und fertig sollte das sein...

probier doch mal rum

[c0rny]

ich hab ja nicht gesagt das ihr das für mich machen sollt. Ich hab nur eben nich wirklich viel ahnung davon und hoffe das man mir hier evlt n bisschen auf die sprünge hilft

[-roTekuGeL-]

ich hab ja nicht gesagt das ihr das für mich machen sollt. Ich hab nur eben nich wirklich viel ahnung davon und hoffe das man mir hier evlt n bisschen auf die sprünge hilft

na dann...exel, Alt+F8, neues makro und mit der taste F1 so viel wie möglich über ein Do Loop, Tabelle1.cells und den open befehl rausbekommen

[Amstelchen]

bei codeproject.com gefunden: http://www.codeproject.com/useritems/xls2xml.asp, vielleicht hilfts dir ja.

s'Amstel

[Maulwurf_der_Schlaue]

hi,

also ich hab da folgendes zusammengesucht:

damit du einen bestimmten bereich von feldern durchlaufen kannst

Dim e 'Errorlevel

Dim c 'Enthält die Eigenschaften des Feldes

Dim bereich 'Enthält zu verarbeitenden bereich


' setzt den bereich in die variable bereich (enum)

Set bereich = Worksheets("Tabelle1").range("a1:c5")


' durchläuft jedes objekt in bereich

For Each c In bereich


    ' verarbeitung

    e = MsgBox(c.Value, vbInformation, "Feldinhalt", 0, 0)


Next


' bereich durchlaufen

e = MsgBox("Bereich durchlaufen...", vbInformation, "title", 0, 0)


End Sub

Tabelle sieht so aus:

   A  B  C  

1  a  b  c

2  d  e  f

3  g  h  i

[Maulwurf_der_Schlaue]

so nachdem ich vom Klo komm hab ich noch weiter gemacht...

Dim e        'Errorlevel

Dim c        'Enthält die Eigenschaften des Feldes

Dim currcell 'aktulle Zelle

Dim bereich  'Enthält zu verarbeitenden bereich

Dim count    'Zähler


' setzt den bereich in die variable bereich (enum)

Set bereich = Worksheets("Tabelle1").range("a3:c5")


' datei öffnen zum schreiben

Set fso = CreateObject("Scripting.FileSystemObject")

Set xmlfile = fso.CreateTextFile("c:\testfile.xml", True)


xmlfile.WriteLine ("<" + range("A1").Value + ">")


' zähler auf 1 setzen

count = 1


' durchläuft jedes objekt in bereich

For Each c In bereich

' verarbeitung

    If count = 1 Then

        xmlfile.WriteLine ("<name>" + c.Value + "</name>")

    End If


    If count = 2 Then

        xmlfile.WriteLine ("<text2>" + Str(c.Value) + "</text2>")

    End If


    If count = 3 Then

        xmlfile.WriteLine ("<hilfe3>" + Str(c.Value) + "</hilfe3>")

        count = 0

    End If


    count = count + 1


Next


' bereich durchlaufen

e = MsgBox("XML geschrieben...", vbInformation, "title", 0, 0)


' Puffer leeren und datei schließen

xmlfile.Close


End Sub

Tabelle sieht so aus:

      a           b        c

1  Überschrift		

2    Sub1       Sub2   Sub3

3 158.0.0.1      2       3

4 172.0.0.1      5       6

5 192.0.0.15     8       9

wenn du's jetzt nicht schaffst dann weiß ich auch nicht mehr....

ich glaube (und hoffe) das ich für alle spreche wenn ich sage dass keiner hier das für dich machen wird...

wäre es umfangreicher gewesen hätt ich dir recht gegeben, aber so....

[-roTekuGeL-]

wäre es umfangreicher gewesen hätt ich dir recht gegeben, aber so....

eben nicht... an so kleinen sachen kann man schneller und leichter was selbst lernen als an umfangreichen, aber wenn du so nen drang hast anderen leuten die arbeit abzunehmen - bitte

[Maulwurf_der_Schlaue]

<< meine meinung - begin >>

wenn man's nicht schaffen die hilfe zu verwenden dann wird das auch nichts mehr... also warum sollte ich dann nicht was einfaches machen und ICH lerne was??

die ganze aufgabe zu posten.. ist für mich ein zeichen das man nicht vorhat was zu tun... man hofft das jmd. ne link postet.. und dort die lösung zu finden ist.... oder gleich direkt

<< meine meinung - end >>

andererseits hast du recht, auf die idee bin ich gar nicht gekommen... LoOoL..

die arbeit is ja noch nicht ganz getan.. ermuss es ja noch auf seine bedürfnisse anpassen...

[teddy23]

ich habe ein neues Thema aufgemacht