AW: Abspeichern in .csv Format
01.12.2004 15:17:44
Andreas
Probier'das mal. Mit Klick auf den Button wird die Datei gespeichert. ggf. nennst du dann das "workbook" in "worksheet" um.
Private Sub CommandButton1_Click()
Dim Vname As Variant
Dim NeuesVerz As Variant
Dim IndName As Integer
Dim Verzeichnis As String
Dim Dateiname As String
Verzeichnis = Range("A2")
Range("A1").Select
Dateiname = Range("A1")
If Dir(Verzeichnis, vbDirectory) <> "" Then
ActiveWorkbook.SaveAs Filename:=Dateiname, FileFormat:=csv, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'nachfolgender Code vermeidet die nochmalige Frage, ob die Datei gespeichert werden soll.
Application.DisplayAlerts = False
ActiveWindow.Close
'die nächste Zeile wird benötigt, dass überhaupt wieder nach Speichern gefragt wird
Application.DisplayAlerts = True
Else
'vb..ergibt ROTES X
MsgBox "Bitte Verzeichnis " & Chr(13) & Verzeichnis & Chr(13) & _
" anlegen!" & Chr(13) & Chr(13), vbDirectory
On Error GoTo mkd_Err
For IndName = 0 To UBound(Vname)
NeuesVerz = NeuesVerz & Vname(IndName) & "\"
MkDir NeuesVerz
Next IndName
mkd_Err:
If Err = 75 Then Resume Next
End If
End Sub
Viel Erfolg