VBA Simpan Sebagai

Excel VBA Simpan Sebagai

Kaedah VBA Save As digunakan untuk menyimpan fail excel ke lokasi tertentu. Untuk menyimpan buku kerja menggunakan kod vba kami menggunakan objek Buku Kerja dengan fungsi SaveAs.

Setelah semua kerja keras yang kita lakukan dalam buku kerja kita menyimpannya, bukan? Sangat menyakitkan apabila kehilangan data yang telah kami kerjakan. Kami mempunyai dua jenis simpanan di excel atau fail apa pun, satu adalah "Simpan" dan satu lagi adalah "Simpan Sebagai". Ctrl + S adalah kunci pintasan yang popular sebagai Ctrl + C & Ctrl + V di seluruh dunia. Tetapi tidak begitu biasa konsep "Save As" . Dalam kekunci pintasan lembaran kerja biasa untuk Simpan Sebagai fail adalah kunci F12 . Di VBA juga kita dapat menyimpan fail sebagai " Save As ".

Apa yang dilakukan oleh VBA Save As Function?

Ini adalah tugas umum untuk menyelamatkan pekerjaan dalam proses automasi. Selepas semua kerja, kami ingin menyimpan failnya.

Buku Kerja ("Jualan 2019.xlsx"). Jimat

Kod ini membaca Buku Kerja yang dinamakan sebagai "Sales 2019.xlsx" untuk disimpan.

Begitu juga untuk meniru buku kerja yang sedang kita kerjakan dapat dibuat dengan menggunakan kaedah "Save As".

  • Nama Fail: Apakah nama fail yang ingin anda berikan. Ini harus digabungkan dengan laluan folder fail.
  • Format Fail: Apakah format fail yang anda simpan.
  • Kata Laluan: Adakah anda ingin memberikan kata laluan untuk menyimpan fail.
  • Tulis Kata Laluan Res: Sebutkan kata laluan yang disediakan untuk buku kerja.

Saya rasa parameter ini sudah cukup untuk memahami kaedah Save As.

Bagaimana cara menggunakan Fungsi Save As?

Anda boleh memuat turun Templat Simpan Sebagai Excel VBA ini di sini - Templat Simpan Sebagai Excel VBA

Contoh # 1

Kami menyimpan buku kerja dengan betul, jadi penting untuk menyebut nama buku kerja dan pelanjutannya untuk menggunakan kaedah Simpan Sebagai. Oleh itu, sebutkan buku kerja yang anda simpan.

Kod:

Sub SaveAs_Example1 () Buku Kerja ("Jualan 2019.xlsx"). Sub Akhir

Sekarang gunakan kaedah Simpan Sebagai.

Kod:

 Sub SaveAs_Example1 () Buku Kerja ("Sales 2019.xlsx"). SaveAs End Sub

Sekarang kenal pasti tempat yang ingin anda simpan.

Kod:

 Sub SaveAs_Example1 () Buku Kerja ("Jualan 2019.xlsx"). SaveAs "D: \ Artikel \ 2019 Akhir Sub

Sekarang letakkan garis miring balik dan masukkan nama fail mengikut kehendak anda dengan peluasan fail.

Kod:

 Sub SaveAs_Example1 () Buku Kerja ("Jualan 2019.xlsx"). SaveAs "D: \ Artikel \ 2019 \ Fail Saya.xlsx" Sub Akhir

Sekarang sebutkan format fail sebagai "xlWorkbok".

Kod:

 Sub SaveAs_Example1 () Buku Kerja ("Penjualan 2019.xlsx"). SaveAs "D: \ Artikel \ 2019 \ Fail Saya.xlsx", FileFormat: = xlWork Work End Sub

Ok, kita sudah selesai akan menyimpan fail dalam pemacu D> Folder Name (Artikel)> Sub Folder Name (2019).

Contoh # 2

Simpan Semua Buku Kerja yang Dibuka

Andaikan anda bekerja dengan 10 buku kerja di komputer anda. Anda ingin membuat sandaran buku kerja ini dengan menyimpannya di komputer sebagai salah satu salinannya. Apabila anda ingin bekerja dengan lebih daripada satu buku kerja, perlu menggunakan gelung.

Kod di bawah ini akan membantu anda menyimpan semua buku kerja sebagai salinan.

Kod:

 Sub SaveAs_Example2 () Dim Wb Sebagai Buku Kerja Untuk Setiap Wb Dalam Buku Kerja ActiveWorkbook.SaveAs "D: \ Artikel \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Tukar laluan fail Selanjutnya Subb Akhir Wb

Sekiranya anda ingin memilih jalan folder anda sendiri, anda boleh menggunakan kod ini.

Kod:

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

Sebaik sahaja anda menjalankan kod ini menggunakan kunci F5 atau secara manual, ia akan meminta anda memilih jalur folder tujuan, pilih dan klik OK, ia akan menyimpan fail.