Re: Speichern einer Exceltabelle als CSV
30.04.2003 15:31:23
Joachim W.
Hallo Silke,versuch's mal hiermit:
Sub exportcsv()
On Error GoTo err_exportcsv
Dim mysection As Object
Dim myrow As Object
Dim mycell As Object
Dim strseparator As String
Dim strfile As String
Dim strtemp As String
Const dlgmeldung = "Geben Sie bitte Pfad und Dateiname der Zieldatei ein!"
Const dlgtitel = "Eingabe der Zieldatei"
Const Trennzeichen As String = "§"
strfile = InputBox(dlgmeldung, dlgtitel, "")
strseparator = ""
Set mysection = ActiveSheet.UsedRange
Open strfile For Output As #1
For Each myrow In mysection.Rows
For Each mycell In myrow.Cells
If InStr(1, mycell.Text, "§") > 0 Then
strtemp = strtemp & strseparator & """" & CStr(mycell.Text) & """"
Else
strtemp = strtemp & strseparator & CStr(mycell.Text)
End If
strseparator = Trennzeichen
Next
Print #1, strtemp
strtemp = ""
strseparator = ""
Next
Close #1
Set mysection = Nothing
exit_exportcsv:
Exit Sub
err_exportcsv:
MsgBox Err.Description
Resume exit_exportcsv
End Sub
Gruß
Joachim
PS: Der Code ist nicht von mir, weiss aber auch nicht mehr woher ich ihn habe...