Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Sicherheitskopien für Excel-Dateien als Add-In
#1
Hallo liebe VBA Experten,

ich habe folgendes Problem. Ich habe ein kleines (funktionierendes) VBA Programm geschrieben, welches
Sicherheitskopien meiner jeweils gerade verwendeten Datei auf dem Laufwerk F ablegt und mit Datum und Uhrzeit versieht. So weit so gut, keine Probleme. Ich möchte aber dieses Programm als Add-In für Excel haben. So bald ich dies alles dann als Add-In installiert habe, bekomme ich als Sicherheitskopie aber nur die Kopie meiner installierten Add-In Datei. Wie muss ich den Code unten programmieren, damit ich über das Add-In für jede beliebige gerade verwendete Excel Datei die gewünschte Sicherheitskopie bekomme?

Vielen Dank im voraus für eure Bemühungen


Sub Sicherheitskopie()
On Error Resume Next
Dim myFSO As Object
Dim qFolder As String, tFolder As String

Set myFSO = CreateObject("Scripting.FileSystemObject")

ThisWorkbook.Save

'Verzeichnis anlegen falls nicht vorhanden
If Dir("F:\0000 Backup\") = "" Then MkDir ("F:\0000 Backup\")

tFolder = "F:\0000 Backup\"

qziel = Date & "-" & Replace(Time, ":", ".") & " " & ThisWorkbook.Name

myFSO.CopyFile ThisWorkbook.FullName, tFolder & qziel, True

End Sub
Antworten Top
#2
Hallo,

Du musst Dich auf das aktive Workbook beziehen:

Code:
Sub Sicherheitskopie()
  Dim tFolder As String
  
  On Error Resume Next
  'Verzeichnis anlegen falls nicht vorhanden
  tFolder = "F:\0000 Backup\"
  If Dir(tFolder) = "" Then MkDir tFolder
  
  ActiveWorkbook.Save
  ActiveWorkbook.SaveCopyAs tFolder & Format(Now, "dd.mm.yyyy-hh.nn.ss ") & ActiveWorkbook.Name
End Sub

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • sotaros
Antworten Top
#3
Hallo Uwe,

danke für die schnelle und tolle Hilfe. Funktioniert super!!
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste