Säkerhetskopiering

I XL finns finns det ett tilläggsverktyg - Autospara - som sparar den aktiva arbetsboken med vissa tidsintervall, däremot inte att ta s k säkerhetskopior av viktiga XL-arbetsböcker.

Här demonstreras några tekniker för att skapa säkerhetskopior

I detta exempel erbjuds användaren inga alternativ:

Sub SakerhetsKopiaFila() ThisWorkbook.SaveAs Filename:="Sakkopia" & ThisWorkbook.Name End Sub

 

 

Här kan användaren både bestämma i vilken mapp och under vilket namn filen ska sparas:

Sub SakerhetsKopiaFil() '© 2002 Alla rättigheter XL-Dennis Dim stDir As String Dim vaSvar As Variant 'Här bestämmer vi vilken mapp som ska öppnas.  stDir = "G:\Temp" ChDrive stDir ChDir stDir 'Dialogrutan "Spara som" visas och öppnar den aktuella mappen 'samt föreslår ett namn under vilken filen ska sparas. vaSvar = Application.GetSaveAsFilename("Sakkopia" & _ ThisWorkbook.Name, "Microsoft Excel-arbetsbok (*.xls), *.xls", , _ "Spara denna fil: " & ThisWorkbook.Name & "?") 'Om dialogrutan stängs (avbryts) If vaSvar = False Then Exit Sub 'Här sparas arbetsboken ifråga ThisWorkbook.SaveAs Filename:=CStr(vaSvar) End Sub