PDA

Vollständige Version anzeigen : Sicherungskopien


Tosch
14.05.2001, 14:27
Hilfe, wer kann mir sagen, wie Sicherungsdateien automatisch in einen von mir gewünschten Ordner kopiert werden können?

jinx
24.06.2001, 21:26
<font size="2" face="Century Gothic">Moin, Tosch,

mit den „Bordmitteln“ gar nicht, aber mit dem folgenden Code schon: (http://www.herber.de/mailing/111900h.htm)

Text-Index: 111900
Thema: Datei
Betrifft: Sicherheitskopien von Arbeitsmappen speichern
Frage: Wie kann ich Sicherheitskopien von Arbeitsmappen anlegen, nachdem ich vorher über InputBox abgefragt habe, welche Arbeitsmappen gespeichert werden sollen?
Antwort: Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Sub</span> Speichern()
<span class="TOKEN">Dim</span> wkb <span class="TOKEN">As</span> Workbook
<span class="TOKEN">Dim</span> sSave <span class="TOKEN">As</span> String, sFile <span class="TOKEN">As</span> <span class="TOKEN">String</span>
<span class="TOKEN">Dim</span> sOld <span class="TOKEN">As</span> String, sPath <span class="TOKEN">As</span> <span class="TOKEN">String</span>
sSave = InputBox(&quot;Backup f&uuml;r &quot;&quot;alle&quot;&quot; oder &quot; &amp; _
&quot;&quot;&quot;aktive&quot;&quot; Arbeitsmappe(n)?&quot;, , &quot;aktive&quot;)
<span class="TOKEN">If</span> sSave = &quot;&quot; <span class="TOKEN">Then</span> <span class="TOKEN">Exit Sub</span>
sPath = Range(&quot;B1&quot;).Value
<span class="TOKEN">If</span> sSave = &quot;alle&quot; <span class="TOKEN">Then</span>
<span class="TOKEN">For</span> <span class="TOKEN">Each</span> wkb <span class="TOKEN">In</span> Workbooks
sFile = wkb.Name
sPath = wkb.FullName
wkb.SaveAs Range(&quot;B1&quot;).Value &amp; sFile
wkb.SaveAs sPath
<span class="TOKEN">Next</span> wkb
<span class="TOKEN">Else</span>
<span class="TOKEN">Set</span> wkb = ActiveWorkbook
sPath = wkb.FullName
wkb.SaveAs Range(&quot;B1&quot;).Value &amp; ActiveWorkbook.Name
wkb.SaveAs sPath
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span>
&nbsp;</pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

Dieser Code muss natürlich noch ein bisschen angepasst werden, aber was ist schon perfekt? ;)

HTH
<font color="#808080" size="3" face="Arial Black">jinx</font>

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurden in diesem Beitrag Links korrigiert, die auf falsche Adressen zeigten und die Signatur angepasst...</font>