Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


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
to 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 Benutzer sagt Danke an Kuwer für diesen Beitrag:
sotaros
to top
#3
Hallo Uwe,

danke für die schnelle und tolle Hilfe. Funktioniert super!!
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Excel-Dateien anhand von Werten aussortieren Fluchty 3 59 02.12.2016, 16:00
Letzter Beitrag: Fennek
  Excel Dateien konsolidieren Peter121 1 33 30.11.2016, 15:49
Letzter Beitrag: User17330
  Excel Dateien mit VBA automatisieren Paklu001 5 128 05.11.2016, 14:34
Letzter Beitrag: schauan
  Aus mehreren Excel-Dateien bestimmte Zellen auslesen Günti 5 275 12.09.2016, 09:19
Letzter Beitrag: Günti
  2 Excel Dateien miteinander vergleichen (Beding. Format.) Spike87 1 280 12.07.2016, 15:03
Letzter Beitrag: Rabe
  Mehrere Excel-Dateien zusammenführen mort92 5 753 02.06.2016, 11:24
Letzter Beitrag: mort92
  Excel VBA: Dateien löschen sharky51 3 592 25.05.2016, 19:55
Letzter Beitrag: sharky51
  Übernahme des Inhalts von IFC-Dateien in Excel Tabelle sunny01 54 2.921 09.05.2016, 17:43
Letzter Beitrag: schauan
  Excel Werte aus anderen Excel Dateien auslesen Sebo 3 643 05.05.2016, 21:40
Letzter Beitrag: schauan
  Excel 2016 öffnet keine Dateien Monkee 2 1.050 23.01.2016, 08:26
Letzter Beitrag: Monkee

Gehe zu:


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