ich habe eine Frage und hoffe Ihr könnt helfen.
Ich exportiere aus einem Excel in ein csv Format.
Spalte A & B habe ich Datum und Zeit.
In Excel so: 20.12.2018|06:51:02
nach Export in csv dann so: 20.12.2018|0,285439814814815|
was muss getan werden damit im csv auch die Zeit korrekt dargestellt wird?
Danke und Gruß
Sub AufCAblegen()
Dim A As Variant
Dim B() As String
Dim D() As String
Dim z As Long
Dim s As Byte
Dim r As Long
Dim C As Byte
Const Path As String = "C:\Test\"
Const Filename As String = "Test"
Const Extension As String = ".csv"
Const Separator As String = "|"
Const Wrapper As String = """"
'Here you can define your own Range, too
A = Sheets("Test").UsedRange
If Not IsEmpty(A) Then
z = UBound(A, 1)
s = UBound(A, 2)
ReDim D(z - 1)
For r = 1 To z
ReDim B(s - 1)
For C = 1 To s
If InStr(1, A(r, C), Separator) > 0 Then
'Rows whith cells including the Separator
'put in Wrapper
B(C - 1) = Wrapper & A(r, C) & Wrapper
Else
B(C - 1) = A(r, C)
End If
Next C
D(r - 1) = Join(B(), Separator)
Next r
Open Path & Filename & Extension For Output As #1
Print #1, Join(D(), vbCrLf)
Close #1
End If
End Sub