Csv Formatierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Erich,
entschuldige bitte vielmals dass das Beispiel so ungenau rüberkommt, aber ich habe das Problem gerade auf der Arbeit und da ist es ziemlich stressig. Zur Sache:
1. Nein, ich habe nur vergessen diese auch zu löschen, da ich einige Daten entfernen musste.
2. Auch hier liegt es nur daran dass ich diese in dem Beispiel nur weggelassen habe.
3. Nein, hier soll sich nichts ändern.. der Fehler kommt einfach davon dass ich die Ziffern schnell manuell als Beispiel eingeben habe.
Im Prinzip geht es mir darum dass wir die Daten in einer Excel Tabelle so wie oben geliefert bekommen. Sprich Datum ist in einer seperaten Spalte, Uhrzeit ist in einer seperaten etc. ... Was allerdings nun von uns verlangt wird ist dass wir das alles so in CSV formatieren dass die Trennzeichen und alles so vorhanden sind wie im Beispiel. Ich hoffe du verstehst was ich meine?
Mit freundlichen Grüßen
Marcel

Public Sub prcCreateCSV() Dim intFileNumber As Integer Dim lngRow As Long Dim vntArray As Variant Dim intItem As Integer Dim strText As String Dim i As Integer Const strSep As String = "|" With Cells(1, 1).CurrentRegion For lngRow = 1 To .Rows.Count vntArray = .Cells(lngRow, 1).Resize(, .Columns.Count) vntArray = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntArray)) For intItem = LBound(vntArray) To UBound(vntArray) vntArray(intItem) = """" & vntArray(intItem) & """" Next If strText = "" Then strText = Join(vntArray, strSep) Else strText = strText & vbCrLf & Join(vntArray, strSep) End If Next End With intFileNumber = FreeFile With ActiveWorkbook Open _ .Path & "\" _ & Left$(.Name, Len(.Name) - 4) _ & "_" & ActiveSheet.Name _ & ".csv" _ For Output As #intFileNumber End With Print #intFileNumber, strText Close #intFileNumber End Sub

Hi Marcel,
hier werden beispielhaft die Spalten 2 und 3 bzw. 11 in Text umgewandelt,
der dann ins CSV geschrieben wird:


Option Explicit
Sub prcCreateCSV2()
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArr As Variant
Dim intItem As Integer
Dim strText As String
Const strSep As String = "|"
With Cells(1, 1).CurrentRegion
For lngRow = 1 To .Rows.Count
vntArr = .Cells(lngRow, 1).Resize(, .Columns.Count)
vntArr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntArr))
For intItem = 1 To UBound(vntArr)
Select Case intItem
Case 2
vntArr(intItem) = Format(vntArr(intItem), "dd.mm.yyyy")
Case 3, 11:
vntArr(intItem) = Format(vntArr(intItem), "hh:mm:ss")
End Select
vntArr(intItem) = """" & vntArr(intItem) & """"
Next
If strText = "" Then
strText = Join(vntArr, strSep)
Else
strText = strText & vbCrLf & Join(vntArr, strSep)
End If
Next
End With
intFileNumber = FreeFile
With ActiveWorkbook
Open .Path & "\" _
& Left$(.Name, InStrRev(.Name, ".") - 1) _
& "_" & ActiveSheet.Name & ".csv" _
For Output As #intFileNumber
End With
Print #intFileNumber, strText
Close #intFileNumber
End Sub

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Public Sub prcCreateCSV() Dim intFileNumber As Integer Dim lngRow As Long Dim vntArray, vntTmp() Dim intItem As Integer Dim strText As String Dim i As Integer Const strSep As String = "|" With Cells(1, 1).CurrentRegion ReDim vntTmp(.Columns.Count - 1) For lngRow = 1 To .Rows.Count For i = 1 To .Columns.Count vntTmp(i - 1) = .Cells(lngRow, i).Text Next vntArray = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntTmp)) For intItem = LBound(vntArray) To UBound(vntArray) vntArray(intItem) = """" & vntArray(intItem) & """" Next If strText = "" Then strText = Join(vntArray, strSep) Else strText = strText & vbCrLf & Join(vntArray, strSep) End If Next End With intFileNumber = FreeFile With ActiveWorkbook Open _ .Path & "\" _ & Left$(.Name, Len(.Name) - 4) _ & "_" & ActiveSheet.Name _ & ".csv" _ For Output As #intFileNumber End With Print #intFileNumber, strText Close #intFileNumber End Sub

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	0621/23345	24.11.2011	09:24	DE
2	0644/44789	25.11.2011	19:01	DE
3	06321/76523	28.11.2011	23:24	DE
4
5	in einem neuen Tabellenblatt:
6	"0621/23345"\|"24.00.2011"\|"09:24"\|"DE"
7	"0644/44789"\|"25.00.2011"\|"19:01"\|"DE"
8	"06321/76523"\|"28.00.2011"\|"23:24"\|"DE"

	A	B	C	D
1	X1	X2	X3	X4
2	0621/23345	24.11.2011	09:24	DE
3	0644/44789	25.11.2011	19:01	DE
4	06321/76523	28.11.2011	23:24	DE

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread