Semikolon statt Komma
08.11.2007 18:48:42
Norbert
ich habe diese Funktion zum Exportieren von Daten aus einer .XLS in ein CSV.
Nur trennt die Funktion die Einträge mit einem "Komma" Ich benötige aber eine
Trennung mit "Semikolon".
Kann mir jemand sagen was ich da anders machen muss? Bin echt am Verzeifeln.
Gruss Norbert
Public Sub Export()
'save the target DB file to the internal buffer
Dim ArchPath As String
Dim FileNumber
Dim i As Long
Dim DataLine As String
'initialisation
GoNext = False
'get path and archive name
ArchPath = InputBox("Please, give the path of the source file - e.g. 'C:\archiv.csv'", "Select _
_
a target Symbolic source file to save a new archiv")
If ArchPath "" Then GoNext = True
'load data
If GoNext = True Then
With Worksheets("Table")
FileNumber = FreeFile
Open ArchPath For Output Access Write Lock Write As FileNumber
i = 1
While i ""
Call LineMount(i, DataLine)
Print #FileNumber, DataLine
i = i + 1
Wend
Close FileNumber
End With
End If
End Sub