Sparer på flere steder

July 14  by Eliza

Du kan ha et behov for å rutinemessig kopiere en arbeidsbok til flere steder på systemet ditt. For eksempel kan det åpne arbeidsboken må kopieres til en lokal harddisk og til flere nettverksstasjoner som faktisk er på kontornettverket.

Excel ikke har en innebygd evne til å gjøre dette, men hvis de ulike stedene er godt definert, kan du lage en makro som vil gjøre besparelse for deg. Følgende makro er et eksempel på et slikt verktøy:

Sub SaveToLocations ()
Dim OrigName As String

OrigName = ActiveWorkbook.FullName
ActiveWorkbook.SaveAs "G: \" + ActiveWorkbook.Name
ActiveWorkbook.SaveAs "L: \" + ActiveWorkbook.Name
ActiveWorkbook.SaveAs "K: \" + ActiveWorkbook.Name
ActiveWorkbook.SaveAs "S: \" + ActiveWorkbook.Name
ActiveWorkbook.SaveAs OrigName
End Sub

Den spesielle eksempel på makro sparer den aktive arbeidsboken til fem forskjellige steder, alt ved hjelp av den samme arbeidsbok navn. Makroen bestemmer den aktuelle plasseringen av arbeidsboken, slik at det kan spare til det aktuelle stedet sist. Grunnen til dette er gjort er slik at du kan fortsette å bruke den vanlige Lagre verktøyet og få de forventede resultatene.

Hvis du vil bruke denne makroen på ditt eget system, er alt du trenger å gjøre for å være sikker på at du vil endre stasjonsbokstaver av hvor hver arbeidsbok vil bli lagret. Hvis en av stasjonene du angir er for et sted som bruker flyttbare medier, og det er ingen media i stasjonen, da makroen vil generere en feil og stopp. Du vil da nødt til å finne ut hvor arbeidsboken ble opprinnelig lagret slik at du kan manuelt resave det der (ved hjelp av Save As).

En annen eiendommelighet av makroen er at siden den bruker SaveAs metode, hvis det allerede finnes en arbeidsbok på hvert av målene med samme navn som den gjeldende arbeidsboken, vil Excel spørre om du vil den eksisterende versjonen av arbeidsboken skrevet. Dette vil alltid være tilfelle med den siste lagring, inn i den opprinnelige plasseringen.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2774) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Spare på flere steder.