CSV Dateien aus markiertem Bereich

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "CSV Dateien aus markiertem Bereich"