Excel'da program aracılığıyla bir ağ sürücüsüne dosya kaydetme

Özet

Microsoft Excel'de, bir dosyayı yazma ve silme ayrıcalıklarına sahip olduğunuz herhangi bir sürücüye kaydedebilirsiniz. Ayrıca, etkin çalışma kitabını kaydetmek ve dosya adı için bir değişken kullanmak için bir Microsoft Visual Basic for Applications makrosunu kullanabilirsiniz. ActiveWorkbook.Nameproperty'den, giriş kutusu verilerinden veya bir hücre başvurusundan değişkenleri kullanabilirsiniz.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dâhildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Örnek Makro 1

Etkin çalışma kitabını bir değişkenle belirtilen yola kaydetmek için aşağıdaki makroyu kullanın:

   Sub SaveWithVariable()
       Dim MyFile As String

       MyFile = ActiveWorkbook.Name
       ' Do not display the message about overwriting the existing file.
       Application.DisplayAlerts = False
       ' Save the active workbook with the name of the
       ' active workbook. Save it on the E drive to a folder called
       ' "User" with a subfolder called "JoeDoe."
       ActiveWorkbook.SaveAs Filename:="E:\User\JoeDoe\" & MyFile
       ' Close the workbook by using the following.
       ActiveWorkbook.Close
   End Sub

Örnek Makro 2

Bir hücrede depolanan bir dosya adını kullanın ve dosyayı ağ sunucusuna kaydedin. Bunu yapmak için aşağıdaki makroyu kullanın:

   Sub SaveWithVariableFromCell()
       Dim SaveName As String
       SaveName = ActiveSheet.Range("A1").Text
       ActiveWorkbook.SaveAs Filename:="E:\User\JoeDoe\" & _
           SaveName & ".xls"
   End Sub