Herbers Excel-Forum - das Archiv

CSV Dateien aus markiertem Bereich

Bild

Betrifft: CSV Dateien aus markiertem Bereich
von: Stephan

Geschrieben am: 18.02.2005 08:06:36
Hallo liebe Leute.
Ich habe ein Buchhaltungsprogramm, das CSV-Dateien einlesen kann. Dann habe ich wechselnde Excel-Dateien, die unterschiedlich aufgebaut sind. Ich möchte in der Excel-Datei einen manuell markierten Bereich in eine zweite Datei kopieren und diese unter dem CSV-Format abspeichern. Soweit eigentlich kein Problem, wenn ich es manuell mache. Mit meinem Makro werden leider Beträge immer mit einem "." statt einem "," gespeichert, obwohl ich das Zahlformat bereits in ein Textformat geändert habe. So wird beim Import der CSV-Datei aus 4,40 dann 4.400. Schon schade. Hier meine Prozedur, vielen Dank für Eure Hilfe im voraus.
Sub Fibu_csv()
' Fibu_csv Makro
' Makro am 17.02.2005 von sweniger aufgezeichnet
Dim name As String
Dim text, stil, title As String
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.DisplayAlerts = False
Sheets(Array("Tabelle2", "Tabelle3")).Select
Sheets("Tabelle3").Activate
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Dim Selektion As Range
Set Selektion = Windows(1).RangeSelection
For Each cell In Selektion
If IsNumeric(cell.Value) Then
cell.NumberFormat = "@"
End If
Next
name = getname()
ChDir "O:\Fibuimport"
ActiveWorkbook.SaveAs Filename:=name, FileFormat:=xlCSV _
, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
title = "Hinweis"
text = "Die Buchungen wurden im Pfad O:\Fibuimport\ unter dem Namen " & name & " im CSV-Format gespeichert!"
stil = vbInformation + vbOKOnly
MsgBox text, stil, title
End Sub

Bild

Betrifft: AW: CSV Dateien aus markiertem Bereich
von: RALF

Geschrieben am: 18.02.2005 11:07:42
Moin,
kenne das Problem, habe mir geholfen, indem ich in die Datei reinschreibe (der markierte Bereich wird in die Datei geschrieben)
Formate werden dabei ignoriert
dat_neu = "C:\test1.csv"
Open dat_neu For Output As #1
alt_zeile = 0
schreibe = ""
For Each zelle In Selection
akt_zeile = zelle.Row
If akt_zeile = alt_zeile Then
schreibe = schreibe & zelle & ";"
Else
Print #1, schreibe
schreibe = zelle & ";"
alt_zeile = akt_zeile
End If
Next zelle
Print #1, schreibe
Close #1
Gruß RALF
 Bild
Excel-Beispiele zum Thema "CSV Dateien aus markiertem Bereich"
Alle Dateien im Verzeichnis öffnen Dateien listen
400 leere Textdateien anlegen XL-Dateien in UserForm listen
XL5/7-Dateien nach XL8 konvertieren Dateien aus Listbox auslesen und öffnen
Excel-Dateien eines Ordners listen Alle Dateien ab einem bestimmten Datum listen
Alle Dateien eines Verzeichnisses drucken Textdateien verbinden