Speichern einer CSV-Datei mit VBA

Hallo
Ich habe eine CSV-Datei ("LA_test2.csv") mit Personaldaten, die ich im Snapform-Viewer für "Daten importieren" brauche.
Das klappt bestens, wenn ich die CSV-Datei nach Aenderungen manuell speichere. Ich erhalte dann die Meldung/Frage: "Einige Features gehen möglicherweise verloren - Möchten Sie das Format trotzdem verwenden?" Ich bestätige mit "Ja".
Ich möchte diese CSV-Datei aber mit VBA speichern und habe es mit folgendem Makro in der PERSONAL.XLSB versucht:

    Windows("LA_test2.csv").Activate
Sheets("LA_alle").Select   ' Wenn diese Zeile deaktiviert ist, ändert sich am Ergebnis  _
nichts.
ActiveWorkbook.Save

Die Datei wird ohne Meldung und Frage gespeichert. Aber jetzt streikt der Snapform-Viewer: Er gibt mir nach dem importieren nur ein leeres Formular zurück.
Wenn ich dann die Datei von Hand speichere (mit Meldung und Frage), verarbeitet der Snapform-Viewer die Daten wieder richtig.
Weiss jemand, wie ich die CSV-Datei mit Makro speichern könnte? Vielen Dank und viele Grüsse Niclaus
Falls es jemand interessiert: Ich brauche den Snapform-Viewer für Lohnausweise. Er wird angeboten von der Eidgenössischen Steuerverwaltung.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Niclaus,
ich hab deine Befehle mit einer Bsp-CSV-Datei getestet, und DAS hier kommt dabei raus:
vor dem Speichern mit deinem Code
Userbild

nach dem Speichern mit deinem Code
Userbild

Das Problem könnte sein (so interpretiere ich das Ergebnis), dass Excel nur mit dem Befehl ActiveWorkbook.Save "vergisst", dass die ausgewählte Datei eine CSV-Datei ist.
Funktioniert hat es dann mit diesem Code:


Windows("a - kopie.csv").Activate
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\b.csv", _
FileFormat:=xlCSV, CreateBackup:=False, local:=True

Ok, es wurde "nur" eine Datei unter einem anderen Namen gespeichert. Aber diese Kopie behält das verwendete CSV-Format.
Jetzt müsstest du mit Code nur noch die eigentliche CSV-Datei löschen und den Namen der "neuen" CSV-Datei umbenennen.
Hilfts?
Ciao
Thorsten

Windows("yyy.csv").Activate ' Hier folgen verschiedene Befehle ' Dann am Ende: Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="D:\yyy.csv", FileFormat:=xlCSV, CreateBackup:=False, local:= _ True Application.DisplayAlerts = True

Sub SaveCSV() '* mit dem Trennzeichen ";" wird die csv spaltenweise erzeugt Dim Bereich As Object, Zeile As Object, Zelle As Object Dim sSammelString$, sDateiname$, sTrennzeichen$ sDateiname = "D:\xxx.csv" sTrennzeichen = ";" Set Bereich = Tab_7_CSV.UsedRange Open sDateiname For Output As #1 For Each Zeile In Bereich.Rows For Each Zelle In Zeile.Cells sSammelString = sSammelString & """" & CStr(Zelle.Text) & """" & sTrennzeichen Next If Right(sSammelString, 1) = sTrennzeichen Then sSammelString = Left(sSammelString, Len(sSammelString) - 1) End If Print #1, sSammelString sSammelString = "" Next Close #1 Set Bereich = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Speichern einer CSV-Datei mit VBA

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

149 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Speichern einer CSV-Datei mit VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

149 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread