Beim Speichern "" im Dateinamen
03.02.2007 10:01:57
Reinhard
Ich habe da ein kleines Problem. Ich versuche mit Hilfe von VBA meine Exceldateien zu speichern, indem sich das Makro den Speichernamen aus der Exceltabelle holt. Beim speichern allerdings habe ich immer "" am Dateinamen, so dass ich die Datei nicht als eine .xls Datei speichern kann...Wer kann mir helfen?
Hier der Code:
Private Sub cmd_speichern_Click()
Dim name As String
On Error Resume Next
name = Range("A6") & " " & Range("G9")
'MsgBox name
ChDir "C:\Dokumente und Einstellungen\Administrator\Desktop\Rechnungsarchiv"
strDateiName = Application.GetSaveAsFilename("C:\Dokumente und Einstellungen\Administrator\Desktop\Rechnungsarchiv\" & name, "Excel-Dateien (*.xls),*.xls")
ActiveWorkbook.SaveAs strDateiName
Exit Sub
End Sub