Hur duplicerar Excel -filer med ett makro
Vill du kopiera en Excel -arbetsbok och ge den ett nytt namn? Naturligtvis kan du göra detta via Windows, men hur automatiserar du det i Excel? En möjlighet är att öppna lämplig arbetsbok och sedan spara den under ett nytt namn.
Detta tar dock mycket tid och är besvärligt eftersom Excel utför beräkningar, uppdaterar länkar och liknande när arbetsboken öppnas. Det är lättare att göra det direkt med kommandot VBA FileCopy. Följande makro kopierar en arbetsbok från en katalog till en annan med ett nytt namn:
Kopiera subarbetsbok ()
Dim källa som sträng, destination som sträng
Källa = "c: \ August.xls"
Destination = "c: \ data \ September.xls"
FileCopy -källa, destination
Avsluta Sub
Sätt in variabeln källa Ange namn och sökväg för filen som du vill kopiera. Spara i variabeln mål sökvägen och destinationen för filen. I programexemplet sparas filen August.xls från sökvägen C: \ under det nya namnet September.xls i sökvägen C: \ Daten. Källfilen August.xls förblir oförändrad.
Inte bara kan du kopiera Excel -arbetsböcker med kommandot, du kan också kopiera andra filer.