CSV Trennvorgabe "," auf ";" ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk,
also dein gemachter Vorschlag mit
Call Tabelle1.SaveAs(Filename:="H:\Test.csv", FileFormat:=xlCSV, Local:=True)
hat bis jetzt bei mir am besten funktioniert, es kam zwar auch einmal vor das als Trennzeichen ein Komma statt ;verwendet wurde, Ursache dafür leider nicht gefunden.
Nur habe ich noch andere Probleme damit, und zwar, "Tabelle1.SaveAs" funktioniert bei mir nicht richtig, da mein Tabellenblatt zwar in der Reihung an dritter Stelle liegt (daher mit Tabelle3.SaveAs(Filename.. versucht) aber von der Tabellennummer her es die 7 hat, wie ich dann feststellte.
Müsste ich dann ein jedesmal nachsehen welche Tabellenblattnummer vergeben ist, dass kann es ja doch auch nicht sein.
Da dieses Tabellenblatt den Namen Export hat könnte ich es ja mit Sheets(Export).nnnnn ansprechen nur mit SaveAs funktioniert mir das leider wieder nicht.
Wahrscheinlich muss man das anders schreiben, aber wie? Ich finde leider nicht die Lösung dazu.
Das nächste Problem, beim schrittweise Durchlaufen des Makros habe ich festgestellt das der CSV-File zwar mit dem gewünschten Namen erstellt wurde aber fast keine Inhalte hat, erst mit dem ActiveWorkbook.Close wird er mit dem gewünschten Inhalt geschrieben, aber eben die Exceltabelle komplett geschlossen.
Mit welchem Befehl würde sie wieder im vorhergehenden Zustand geöffnet, fehlt mir leider der Plan dazu.
DANKE für weitere Hilfe, Gruß Siegfried

Sub Export() Dim TabPfad, TabName, selName, selNameTab, ZielName, ExportName As Variant Dim lngSheets, i As Long 'Sheets sind alle Register TabName = ActiveWorkbook.Name TabPfad = ActiveWorkbook.Path selName = "Export" ZielName = "F:\ReSi_SiDiary_NEU.csv" lngSheets = ThisWorkbook.Worksheets.Count For i = 1 To lngSheets If ThisWorkbook.Worksheets(i).Name = selName Then selNameTab = Replace(ThisWorkbook.Worksheets(i).CodeName, "Tabelle", "") ExportName = ThisWorkbook.Worksheets(i).CodeName & ".SaveAs(Filename:=" & ZielName & ", _ FileFormat:=xlCSV, Local:=True)" Exit For End If Next i Sheets(selName).Select Range("A1").Select Application.DisplayAlerts = False Rem Call ExportName Application.Run ExportName ' Call "Tabelle"&(selNameTab)&".SaveAs(Filename:="ZielName", FileFormat:=xlCSV, Local:=True) ' ActiveWorkbook.Save Application.DisplayAlerts = True ' ActiveWorkbook.Close Workbooks.Open Filename:=TabPfad & "\" & TabName End Sub

Hi Nepumuk,
JA, das mit ActiveSheet.SaveAs( funktioniert bestens, erspare mir daher die FOR NEXT Schlaufe.
Nur nun ein neuer Schönheitsfehler, er nennt mir das Tabellenblatt auf den Namen des Exports um, OK muss es ja nicht unbedingt speichern. Dachte mit CreateBackup:=False würde das unterbunden.
Wenn ich Workbook aber nun schließe und möchte das original wieder öffnen führt das Marko natürlich nicht aus durch das Schließen, wie könnte ich das lösen?
Gruß Siegfried


Sub Export()
Dim TabPfad, TabName, selName, selNameTab, ZielName, ExportName As Variant
Dim lngSheets, i  As Long 'Sheets sind alle Register
TabName = ActiveWorkbook.Name
TabPfad = ActiveWorkbook.Path
Rem selName = "Export"
selName = "Werte_INR"
Rem ZielName = "F:\ReSi_SiDiary_NEU.csv"
ZielName = "F:\ReSi_SiDiary_INR.csv"
Rem lngSheets = ThisWorkbook.Worksheets.Count
Rem For i = 1 To lngSheets
Rem    If ThisWorkbook.Worksheets(i).Name = selName Then
Rem        selNameTab = Replace(ThisWorkbook.Worksheets(i).CodeName, "Tabelle", "")
Rem        ExportName = ThisWorkbook.Worksheets(i).CodeName & ".SaveAs(Filename:=" & Chr(34) &  _
ZielName & Chr(34) & ", FileFormat:=xlCSV, CreateBackup:=False,Local:=True)"
Rem        Exit For
Rem    End If
Rem Next i
Sheets(selName).Select
Range("A1").Select
Application.DisplayAlerts = False
Call ActiveSheet.SaveAs(Filename:=ZielName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True) _
Application.DisplayAlerts = True
'    ActiveWorkbook.Close
'    Workbooks.Open Filename:=TabPfad & "\" & TabName
End Sub

Beliebteste Forumthreads (12 Monate)

CSV Trennvorgabe "," auf ";" ändern

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CSV Trennvorgabe "," auf ";" ändern

29 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread