VBA Farklı Kaydet | VBA Excel'de Farklı Kaydet Yöntemi nasıl kullanılır?

Excel VBA Farklı Kaydet

Excel dosyasını belirli bir konuma kaydetmek için VBA Farklı Kaydet yöntemi kullanılır. Çalışma kitabını vba kodunu kullanarak kaydetmek için Çalışma Kitabı nesnesini SaveAs işleviyle birlikte kullanırız.

Çalışma kitabında yaptığımız onca zor işten sonra onu kaydediyoruz, değil mi? Üzerinde çalıştığımız verileri kaybetmek acı verici. Excel'de veya herhangi bir dosyada iki tür kaydetme yöntemimiz var, biri "Kaydet" ve diğeri "Farklı Kaydet". Ctrl + S , dünya çapında Ctrl + C ve Ctrl + V gibi popüler kısayol tuşudur . Ancak "Farklı Kaydet" kavramı o kadar tanıdık gelmiyor . Normal çalışma sayfasında , Dosya Farklı Kaydet için kısayol tuşu F12 tuşudur. VBA'da da dosyayı “ Farklı Kaydet ” olarak kaydedebiliriz .

VBA Farklı Kaydet İşlevi ne işe yarar?

Otomasyon sürecinde işten tasarruf etmek genel bir görevdir. Tüm çalışmalardan sonra dosyayı kaydetmek istiyoruz.

Çalışma kitapları ("Satış 2019.xlsx"). Kaydet

Bu kod kaydetmek için "Satış 2019.xlsx" adlı Çalışma Kitabını okur.

Aynı şekilde, üzerinde çalıştığımız çalışma kitabını çoğaltmak için "Farklı Kaydet" yöntemi kullanılarak oluşturulabilir.

  • Dosya Adı: Vermek istediğiniz dosyanın adı nedir. Bu, dosya klasörü yolu ile birleştirilmelidir.
  • Dosya Formatı: Kaydetmekte olduğunuz dosyanın formatı ne olmalıdır.
  • Şifre: Kaydedilen dosya için bir şifre vermek ister misiniz?
  • Res Password Yazma: Çalışma kitabı için ayrılmış paroladan bahsedin.

Farklı Kaydet yöntemini anlamak için bu parametrelerin yeterli olduğunu düşünüyorum.

Farklı Kaydet İşlevi nasıl kullanılır?

Bu VBA Excel Şablonu Olarak Kaydet'i buradan indirebilirsiniz - VBA Excel Şablonu Olarak Kaydet

Örnek 1

Çalışma kitabını doğru kaydediyoruz, bu nedenle Farklı Kaydet yöntemini kullanmak için çalışma kitabının adını ve uzantısını belirtmek önemlidir. Bu yüzden kaydettiğiniz çalışma kitabından bahsedin.

Kod:

Alt SaveAs_Example1 () Çalışma Kitapları ("Sales 2019.xlsx"). Sub

Şimdi Farklı Kaydet yöntemini kullanın.

Kod:

 Alt SaveAs_Example1 () Çalışma Kitapları ("Sales 2019.xlsx"). SaveAs End Sub

Şimdi nereye kaydetmek istediğinizi belirleyin.

Kod:

 Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 End Sub

Şimdi ters eğik çizgi koyun ve bir dosya uzantısı ile isteğinize göre dosya adını girin.

Kod:

 Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx" End Sub

Şimdi dosya formatından "xlWorkbok" olarak bahsedin.

Kod:

 Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx", FileFormat: = xlWorkbook End Sub

Tamam, dosyayı D sürücüsüne kaydedeceğiz> Klasör Adı (Makaleler)> Alt Klasör Adı (2019).

Örnek 2

Tüm Açılmış Çalışma Kitaplarını Kaydet

Bilgisayarınızda 10 çalışma kitabıyla çalıştığınızı varsayın. Bu çalışma kitaplarını bilgisayara kopyalardan biri olarak kaydederek yedeklemek istiyorsunuz. Birden fazla çalışma kitabıyla çalışmak istediğinizde döngüleri kullanmanız gerekir.

Aşağıdaki kod, tüm çalışma kitaplarını kopya olarak kaydetmenize yardımcı olacaktır.

Kod:

 Sub SaveAs_Example2 () Dim Wb As Workbook As Workbooks ActiveWorkbook.SaveAs "D: \ Articles \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Dosya yolunu değiştirin Next Wb End Sub

Kendi klasör yolunuzu seçmek isterseniz, bu kodu kullanabilirsiniz.

Kod:

 Sub SaveAs_Example3() Dim FilePath As String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Filename:=FilePath & ".xlsx", FileFormat:=xlOpenXMLWorkbook End Sub

As soon as you run this code using F5 key or manually, it will ask you to select the destination folder path, select and click on OK, it will save the file.