SaveAs-Funktion
12.05.2019 10:12:13
Anja
ich möchte eine Datei auf einen USB-Stick speichern. Da je nach Computer sich das Laufwerk ändert, muss ich vorher das Laufwerk ausfindig machen.
Alles funktioniert soweit, allerdings wenn die Datei bereits vorhanden ist und Excel die Abfrage stellt:
....Datei vorhanden. Soll sie ersetzt werden? und ich auf "Nein" klicke, kommt folgende Fehlermeldung:
Laufzeitfehler 1004
Die Methode "SaveAs" für das Objekt "Worksheet" ist fehlgeschlagen.
Wie kann ich diesen Fehler umgehen?
Vielen Dank schon mal.
VG
Anja (VBA-Anfänger:-)
Hier der Code:
Private Sub CommandButton12_Click()
Dim FsyObjekt As Object, DrvObject As Object, Drv As Object
Dim DrvType As Object, USBPfad As String
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
Set DrvObject = FsyObjekt.Drives
For Each Drv In DrvObject
Set DrvType = FsyObjekt.GetDrive(Drv.Path)
Select Case DrvType.DriveType
Case 1: USBPfad = Drv.Path ' & " Removable"
End Select
Next Drv
ActiveWorkbook.SaveAs (USBPfad & "\Judo" & "\Waage U10w.xlsm")
End Sub