Excel Tabellenblatt - CSV-Export | HERBERS Excel Forum

Sub Tabellenblatt_2_CSV() Dim Mappe As Workbook Dim Tabelle As Worksheet Dim DateiName As String DateiPfad = ThisWorkbook.Path DateiName = DateiPfad & "\" & Sheets("Hilfe").Range("G1").Value & Format(Now, "yyyymmdd") & _ _ _ _ "." & ".csv" Set Tabelle = ThisWorkbook.Sheets("Tabelle1") Set Mappe = Workbooks.Add Tabelle.Copy before:=Mappe.Worksheets(Worksheets.Count) Application.DisplayAlerts = False Sheets(2).Delete Application.DisplayAlerts = True Tabelle.SaveAs Filename:=DateiName, FileFormat:=xlCSV, CreateBackup:=True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub TabelleInNeueArbeitsmappeKopieren() Dim Mappe As Workbook Dim tabelle As Worksheet Set tabelle = ThisWorkbook.Sheets("Tabelle2") Set Mappe = Workbooks.Add tabelle.Copy before:=Mappe.Worksheets(Worksheets.Count) Application.DisplayAlerts = False Sheets(2).Delete Application.DisplayAlerts = True ActiveWorkbook.SaveAs "C:\Temp\Textcsv", FileFormat:=xlCSV End Sub

Dazu musst Du doch kein VBA-Profi sein, um einen Code in Deine Am zu kopieren, noch dazu habe ich es Dir genau beschrieben, wie Du es machen sollst. Also, hier noch einmal der Code und die Beschreibung:
" wenn Du diese csv-Datei anschließend über "Daten-Externe Daten abrufen-Aus Text" in Excel importierst, kannst Du das gewünschte Trennzeichen ("TAB") einstellen und Du hast das gewünschte Ergebnis."

Sub UniCode_CSV_erzeugen()
'** Dimensionierung der Variablen
Dim strFile As Variant
'** Dateiname + Pfad festlegen
'strFile = Application.GetSaveAsFilename("Unicode_CSV-Datei.csv", "CSV-Dateien,*.csv,Alle  _
Dateien,*.*")
strFile = ThisWorkbook.Path & "\Unicode-CSV-Datei.csv"
'** Beenden, wenn kein Dateiname vorhanden ist
If strFile = False Then Exit Sub
'** Speicher-Prozedur aufrufen
Code_CSV_speichern (strFile)
End Sub
Sub Code_CSV_speichern(strFile As String)
'** Dimensionierung der Variablen
Dim filenr, a, b, lngAnzSp As Integer
Dim strData As String '** CSV-Datenzeile
'** Vorgaben definieren
filenr = FreeFile
lngAnzSp = ThisWorkbook.Sheets("Tabelle1").Cells.SpecialCells(xlCellTypeLastCell).Column
'** Datei öffnen
Open strFile For Output As #filenr
'** Daten in CSV-Datei schreiben
Print #filenr, Chr(255); Chr(254);
For a = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
strData = ""
For b = 1 To lngAnzSp - 1
strData = strData & Cells(a, b).Text & ","
Next b
strData = strData & Cells(a, b).Text & vbCrLf
Print #filenr, GetUniCodeString(strData);
Next a
'** Datei schließen
Close #filenr
End Sub
Private Function GetUniCodeString(s As String) As String
'** Dimensionierung der Variablen
Dim a As Integer  ' Zähler über die einzelnen Bytes des Unicode-Strings
'** Umwanden in Unicode-Zeichen
GetUniCodeString = ""
For a = 1 To LenB(s)
GetUniCodeString = GetUniCodeString & Chr(AscB(MidB(s, a, 1)))
Next
End Function

Servus

Hallo,
ich glaube wir reden aneinander vorbei.
Ich habe bereits erwähnt, das ich genau diese Form der CSV brauche, denn (siehe Beispiel) ein drittes Programm kommt nur mit dieser Art der CSV und den darin enthaltenen 4-5 Informationen in den 4-5 Spalten klar. Die Trennung spaltenweise soll bestehen bleiben. Ich möchte mir bestimmte Daten aus einer Datenbank generieren, siehe Tabellenblatt "Hilfe" und diese Liste in das Tabellenblatt "Tabelle1" übernehmen und dann genau das und nur das in eine CSV umwandeln und ablegen an einem Speicherort X mit dem Dateinamen aus dem gewählten DropDown "G1".
Da es sich hier um viele Varianten handelt die ich rhytmusmäßig erzeugen muss, sollte immer aus dem Tabellenblatt "Tabelle1" eine CSV erzeugt und abgelegt werden.
ich hoffe ich konnte den Sachverhalt rüberbringen.
mfg der Schmecks

Beliebteste Forumthreads (12 Monate)

Excel Tabellenblatt - CSV-Export

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread