CSV Positionsweise Speichern

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Dksksm.

    CSV Positionsweise Speichern

    Hallo zusammen,
    ich möchte aus einer Excel-Tabelle mehrere CSV-Dateien speichern! ''Mit einem Klick''
    z.B in A2 steht eine Auftragsnummer "123456"
    Ab Zeile/Spalte A10 bis F10 stehen nun Werte..
    Zeilenanzahl = unbestimmt // Spaltenanzahl = 6
    PosSTMM1M2P1P2
    1A101002001010
    1A0830020054
    2A7750301015
    3A661005032

    Pro Position, sollte je eine CSV erstellt werden. Der Dateiname = Auftragsnummer + Pos "123456_001"

    So sollte der Inhalt für Pos 1 aussehen! Dateiname = 123456_001

    A10;100;200;10;10
    A08;300;200;5;4

    So sollte der Inhalt für Pos 2 aussehen! Dateiname = 123456_002

    A77;50;30;10;10

    usw.

    Sorry... ich bekomme es einfach nicht hin!!

    Du sagst, du bekommst es nicht hin. Daraus schließe ich, dass es bereits einen Code gibt, der nur noch nicht funktioniert. Poste den doch mal, dann kann man sagen, woran es hakt. Ansonsten schlage ich vor, konkrete Fragen zu stellen (dein jetziger Post enthält leider nicht eine einzige Frage), dann kommen bestimmt auch Antworten. ;)
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

    Visual Basic-Quellcode

    1. Option Explicit
    3. Sub test()
    4. Dim Datei$, Pfad$
    5. Dim Ze&, pos&, p&, FF%
    7. Ze = 10: p = 0
    8. Pfad = "D:\#1\" '<--- anpassen '\' am Ende
    10. If Len(Cells(2, 1)) Then
    11. Datei = Cells(2, 1)
    12. Else
    13. MsgBox "A2 ist leer"
    14. Exit Sub
    15. End If
    16. While Len(Cells(Ze, 1))
    17. pos = Cells(Ze, 1)
    19. If p <> pos Then
    20. Close
    22. FF = FreeFile
    23. Open Pfad & Datei & "_" & Format$(pos, "000") & ".csv" For Output As #FF
    24. Print #FF, Cells(Ze, 2) & ";" & Cells(Ze, 3) & ";" & Cells(Ze, 4) & ";" & _
    25. Cells(Ze, 5) & ";" & Cells(Ze, 6)
    26. p = pos
    27. Ze = Ze + 1
    28. Else
    29. Print #FF, Cells(Ze, 2) & ";" & Cells(Ze, 3) & ";" & Cells(Ze, 4) & ";" & _
    30. Cells(Ze, 5) & ";" & Cells(Ze, 6)
    31. Ze = Ze + 1
    32. End If
    34. Wend
    36. Close
    37. MsgBox "Fertig"
    39. End Sub