ممکن است نیاز داشته باشید که به طور معمول یک ورک بوک را در چندین مکان در سیستم خود کپی کنید. به عنوان مثال، ورک بوک باز ممکن است نیاز به کپی شدن در یک هارد دیسک محلی و چندین درایو نقشه برداری شده باشد که در واقع در شبکه اداری شما هستند.
اکسل قابلیت داخلی برای انجام این کار ندارد، اما اگر مکان های مختلف به خوبی تعریف شده باشند، می توانید یک ماکرو ایجاد کنید که صرفه جویی را برای شما انجام دهد. ماکرو زیر نمونه ای از چنین ابزاری است:
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
مثال خاص ماکرو، ورک بوک فعال را در پنج مکان مختلف ذخیره می کند که همگی از یک نام ورک بوک استفاده می کنند. ماکرو مکان فعلی ورک بوک را تعیین می کند تا بتواند آخرین بار در مکان فعلی ذخیره شود. دلیل انجام این کار این است که بتوانید به استفاده از ابزار معمولی Save ادامه دهید و نتایج مورد انتظار را دریافت کنید.
اگر می خواهید از این ماکرو در سیستم خود استفاده کنید، تنها کاری که باید انجام دهید این است که مطمئن شوید حروف درایو محل ذخیره هر ورک بوک را تغییر داده اید. اگر یکی از درایوهایی که مشخص می کنید برای مکانی است که از رسانه قابل جابجایی استفاده می کند و هیچ رسانه ای در درایو وجود ندارد، ماکرو خطا ایجاد می کند و متوقف می شود. سپس باید بفهمید که ورک بوک در ابتدا در کجا ذخیره شده است تا بتوانید به صورت دستی آن را در آنجا ذخیره کنید (با استفاده از Save As).
یکی دیگر از ویژگی های ماکرو این است که از آنجایی که از روش SaveAs استفاده می کند، اگر قبلاً یک ورک بوک در هر یک از مقصدها با همان نام ورک بوک فعلی وجود داشته باشد، اکسل از شما می پرسد که آیا می خواهید نسخه موجود ورک بوک بازنویسی شود یا خیر. این همیشه در مورد آخرین ذخیره، در مکان اصلی، صادق خواهد بود.
