Datei auf USB-Stick speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Micha,
ich habe eine Lösung gefunden:

Option Explicit

Public Sub Kopieren()

    Dim FsyObjekt As Object, DrvObject As Object
    Dim DrvType As Object, USBPfad As String, strPath As String

    If MsgBox(" Sollen alle Eingaben auf Festplatte gespeichert werden?", vbYesNo, _
        " Titel") = vbYes Then

        Call ThisWorkbook.Save

        Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
        Set DrvObject = FsyObjekt.Drives

        For Each DrvType In DrvObject
            If DrvType.DriveType = 1 Then ' & " Removable"
                USBPfad = DrvType.Path
                Exit For
            End If
        Next DrvType

        Set DrvType = Nothing
        Set DrvObject = Nothing
        Set FsyObjekt = Nothing

        If USBPfad <> vbNullString Then
            strPath = USBPfad & "\ExcelTest" & "\Testspeicher.xlsm"
            If Dir$(strPath) <> vbNullString Then
                If MsgBox("Die Datei ist auf USB-Stick bereits vorhanden." & vbLf & vbLf & _
                    "Überschreiben?", vbQuestion Or vbYesNo, "Abfrage") = vbNo Then
                    Exit Sub
                Else
                    Call Kill(strPath)
                End If
            End If

            Call ThisWorkbook.SaveCopyAs(strPath)

        Else
            Call MsgBox("Kein USB-Stick gefunden", vbExclamation, "Hinweis")
        End If
    End If
End Sub

Gruß
Nepumuk

Hallo Nepumuk,
habe erst heute Deine Nachricht gesehen. Vielen, vielen Dank für Deine Löung. Passt prima:-)
Eine Frage hätte ich aber noch: In meinem Dokument werden in z.B. "A1" der Pfad und in "A2" der Dateinahme abgelegt. Nun ändert sich der Dateinahme mal in "Testspeicher 1" oder in "Testspeicher 2" usw. usw....
Nun meine Frage: Kann man in (strPath = USBPfad & "\ExcelTest" & "\Testspeicher.xlsm") nicht die Zielzellen (("A1") ("A2"))eingeben, damit jeweils die unterschiedliche Datei im dazugehörigen Zielordner des USB-Sticks gespeichert wird. Möchte verhindern, dass ich jedesmal in den VBA Editor gehen muss, um dies zu ändern. Es arbeiten auch Leute an dem Programm die sich mit VBA gar nicht auskennen. Falls es zu viel Aufwand ist, vergiss es einfach. Hast mir auch so schon sehr geholfen. Also bis dahin und bleib auf jeden Fall gesund. Wirst noch gebraucht! :-))
Gruß
Micha
https://www.herber.de/bbs/user/136978.xlsm

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

178 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei auf USB-Stick speichern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

178 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread