Ich brauche für ein anderes Programm unbedingt die Daten aus Excel in csv Standard.
Also die eingegebene Werte als Komma getrennt und ohne Leerfeld.
Ich weiss auch das ich das ganze als csv Speichern kann und dann das Ergebnis habe. Ist aber zu umständlich. Ebenfalls bekannt ist die Möglichkeit, die Daten nach Word zu kopieren und dort umwandeln.
Müsste ja dann auch in Excel möglich sein.
Excel soll gleich, die Daten Komma mäßig trennen.
Nach Möglichkeit auch kein Makro. wird in der Firma teilweise gesperrt.
Hintergrund Excel soll ein Gruppe von Zahlen erstellen die Fortlaufend sind, diese müssen Komma getrennt sein, weil sie danach in einem anderem Programm (Datenbank) genutzt werden müssen.
Aus 1410 1411 1412
muss
1410,1411,1412 usw werden.
Seite 1 von 1
Excel Soll Daten Als Csv Umwandeln
Anzeige
#3
geschrieben 28. Oktober 2004 - 17:43
Nein leider nicht. Da das Programm ja nur ein csv Datei ablegt. Ich es aber über die Zwischenablage in das neue Programm kopieren will bzw. muss.
Excel kann das auch schon durch speichern unter.
Aber danke für den Link. Den kannte ich noch nicht habe bestimmt schon an die 150 angesehen. :-)
Excel kann das auch schon durch speichern unter.
Aber danke für den Link. Den kannte ich noch nicht habe bestimmt schon an die 150 angesehen. :-)
#4
geschrieben 29. Oktober 2004 - 08:37
hier mal ein Beispiel, vielleicht ist es das was du ungefähr einbinden kannst.
1. CSV-Datei schreiben
Sub Write_Csv()
F = FreeFile(0)
fname = InputBox("Enter the filename with Path:", _
"Please Enter Output File Name:")
MsgBox "File Selected is: " & fname
If fname <> False Then
Open fname For Output As #F
Set Rng = ActiveCell.CurrentRegion
Debug.Print Rng.Address
FCol = Rng.Columns(1).Column
LCol = Rng.Columns(Rng.Columns.Count).Column
Frow = Rng.Rows(1).Row
Lrow = Rng.Rows(Rng.Rows.Count).Row
For i = Frow To Lrow
outputLine = ""
For j = FCol To LCol
If j <> LCol Then
'Semikolon als Texttrennzeichen, kann geändert werden
outputLine = outputLine & Cells(i, j) & ";"
Else
outputLine = outputLine & Cells(i, j)
End If
Next j
Print #F, outputLine
Next i
Close #F
End If
End Sub
hoffe das es dir hilft!
1. CSV-Datei schreiben
Sub Write_Csv()
F = FreeFile(0)
fname = InputBox("Enter the filename with Path:", _
"Please Enter Output File Name:")
MsgBox "File Selected is: " & fname
If fname <> False Then
Open fname For Output As #F
Set Rng = ActiveCell.CurrentRegion
Debug.Print Rng.Address
FCol = Rng.Columns(1).Column
LCol = Rng.Columns(Rng.Columns.Count).Column
Frow = Rng.Rows(1).Row
Lrow = Rng.Rows(Rng.Rows.Count).Row
For i = Frow To Lrow
outputLine = ""
For j = FCol To LCol
If j <> LCol Then
'Semikolon als Texttrennzeichen, kann geändert werden
outputLine = outputLine & Cells(i, j) & ";"
Else
outputLine = outputLine & Cells(i, j)
End If
Next j
Print #F, outputLine
Next i
Close #F
End If
End Sub
hoffe das es dir hilft!
#5
geschrieben 30. Oktober 2004 - 10:24
Der schreibt mir das ja dann wieder in eine Datei.
Das könnte ich ja dann auch mit speichern unter erledigen.
Ist aber ansonsten der richtige Schritt in die Richtung wie wir es brauchen.
Tausend Dank ersteinmal für dies Lösung
Kann mann das auch so konstruieren, dass er das Ergebnis in die Zwischenablage schreibt. Dann kann ich das in der anderen Anwendung in das Feld einfach einfügen.
Das könnte ich ja dann auch mit speichern unter erledigen.
Ist aber ansonsten der richtige Schritt in die Richtung wie wir es brauchen.
Tausend Dank ersteinmal für dies Lösung
Kann mann das auch so konstruieren, dass er das Ergebnis in die Zwischenablage schreibt. Dann kann ich das in der anderen Anwendung in das Feld einfach einfügen.
Dieser Beitrag wurde von Stern1900 bearbeitet: 30. Oktober 2004 - 11:15
Thema verteilen:
Seite 1 von 1