Excel vba mengekspor lembar aktif sebagai xlsx

Artikel ini akan menunjukkan cara menggunakan lembar penyimpanan Excel VBA sebagai buku kerja baru tanpa membukanya. Jika buku kerja Anda memiliki banyak lembar dan Anda ingin bekerja dengan satu atau beberapa lembar yang dipilih, akan lebih mudah bagi Anda untuk membuat buku kerja baru dengan lembar tersebut. Membuat buku kerja baru secara manual akan memakan waktu. Kami akan menerapkan beberapa kode VBA untuk mengatasi masalah ini yang akan menghemat banyak waktu

Kami memiliki informasi dan lembar berikut dalam kumpulan data kerja kami

Daftar isi

Download Buku Latihan

VBA untuk Menyimpan Lembar sebagai Buku Kerja Baru. xlsm

6 Contoh VBA Excel untuk Menyimpan Sheet sebagai Workbook Baru Tanpa Membuka

1. Mengganti Nama Lembar dan Menyimpannya sebagai buku kerja Baru tanpa Membuka

Anda dapat mengubah nama lembar buku kerja Anda saat ini dan menyimpannya di buku kerja baru tanpa membukanya. Mari kita pergi melalui proses di bawah ini

Langkah

• Pertama, buka Pengembang >> Visual Basic

• Editor VBA akan terbuka. Setelah itu, pilih Sisipkan >> Modul

• Setelah itu, ketikkan kode berikut di Module

Sub RenameAndSaveSheet[]
Application.EnableEvents = False
Application.DisplayAlerts = False
ActiveWorkbook.Sheets[2].Copy
ActiveWorkbook.Sheets[1].Name = "SalesInfo"
ActiveWorkbook.SaveAs "C:\Users\DELL\Desktop\Nahian\blog 54\Rename_Sheet", FileFormat:=51
ActiveWorkbook.Close False
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

Penjelasan Kode

• Pertama, kami menamai Sub Prosedur kami sebagai RenameAndSaveSheet
• Kemudian kami menetapkan Aplikasi EnableEvents dan DisplayAlerts sebagai False
• Kami ingin mengganti nama lembar ke-2 dari buku kerja kami saat ini dan menyimpannya sebagai buku kerja baru. Oleh karena itu, pertama-tama, kami menyalin lembar ke-2 dan kemudian menamakannya sebagai SalesInfo
• Kami menggunakan Metode VBA SaveAs untuk menyimpan buku kerja
• Setelah itu, kami menentukan lokasi file untuk lembar ini untuk disimpan sebagai buku kerja
• Terakhir, jalankan kodenya

• Kembali ke lembar Anda dan jalankan Makro bernama RenameAndSaveSheet karena ini adalah Makro Anda saat ini. Anda dapat menjalankan kode ini dari tombol Jalankan di Editor VBA

• Setelah itu, buka lokasi file Anda dan Anda akan melihat Rename_Sheet

• Buka dan Anda akan melihat bahwa lembar ke-2 dari buku kerja sebelumnya menjadi buku kerja baru itu sendiri. Anda juga dapat melihat bahwa nama lembar ke-2 berubah menjadi SalesInfo

Dengan demikian, Anda dapat mengganti nama lembar dan menyimpannya sebagai buku kerja baru tanpa membukanya dengan Excel VBA

Baca Selengkapnya. Excel VBA untuk Mencetak Sebagai PDF dan Menyimpan dengan Nama File Otomatis

2. Menyimpan Lembar Tunggal sebagai Buku Kerja Baru

Di bagian ini, saya akan menunjukkan cara menyimpan satu lembar sebagai buku kerja baru. Mari kita ikuti petunjuk di bawah ini

Langkah

• Ikuti untuk membuka Modul VBA
• Ketik kode berikut di Modul VBA

Sub SaveSheetInNewWorkbook[]
    Dim File_Name As String
    Dim File_Path As String
    File_Path = "C:\Users\DELL\Desktop\Nahian\blog 54\Save"
    File_Name = " Workbook Without Opening" & ".xlsx"
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets["dataset"].Copy
    If Dir[File_Path & "" & File_Name]  "" Then
    MsgBox "File " & File_Path & "" & File_Name & " already exists"
    Else
    ActiveWorkbook.SaveAs Filename:=File_Path & "" & File_Name
    Application.ActiveWorkbook.Close False
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Penjelasan Kode

• Pertama, kami menamai Sub Prosedur kami sebagai SaveSheetInNewWorkbook
• Kemudian kita mendeklarasikan variabel File_Name dan File_Path sebagai String
• Kami menetapkan lokasi file dan nama file untuk 2 variabel tersebut
• Kemudian kami mengatur Aplikasi DisplayAlerts dan ScreenUpdating sebagai False
• Kami ingin menyimpan lembar pertama dari buku kerja kami saat ini yang merupakan lembar dataset dan menyimpannya sebagai buku kerja baru. Oleh karena itu, pertama-tama, kami menyalin dataset
• Setelah itu, kami menggunakan Pernyataan If VBA untuk jalur direktori buku kerja kami
• Kami menetapkan tujuan untuk buku kerja ini dan menamakannya Simpan Buku Kerja Tanpa Membuka
• Akhirnya, kami menjalankan kode

• Kembali ke lembar Anda dan jalankan Makro bernama SaveSheetInNewWorkbook karena ini adalah Makro Anda saat ini. Anda dapat menjalankan kode ini dari tombol Jalankan di Editor VBA

• Setelah itu, buka lokasi file Anda dan Anda akan melihat buku kerja Save Workbook Without Opening

• Buka dan Anda akan melihat bahwa lembar dataset dari buku kerja sebelumnya menjadi buku kerja baru itu sendiri.  

Dengan demikian, Anda dapat mengganti nama lembar dan menyimpannya sebagai buku kerja baru tanpa membukanya dengan Excel VBA

Baca Selengkapnya. Cara Menyimpan Lembar Kerja Sebagai File Baru Menggunakan Excel VBA

3. Menyimpan Setiap Lembar sebagai Buku Kerja Baru

Jika Anda ingin menyimpan semua lembar buku kerja Anda sebagai buku kerja baru, Anda harus mengikuti langkah-langkah di bawah bagian ini

Langkah

• Ikuti untuk membuka Modul VBA
• Ketik kode berikut di Modul

Sub SaveMultipleSheets[]
Dim location As String
location = "C:\Users\DELL\Desktop\Nahian\blog 54\Multiple Sheets\sheet_"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Sheet In ThisWorkbook.Sheets
    Sheet.Copy
    Application.ActiveWorkbook.SaveAs location & Sheet.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.ScreenUpdating = True
End Sub

Penjelasan Kode

• Pertama, kami menamai Sub Prosedur kami sebagai SaveMultipleSheets
• Kemudian kami mendeklarasikan lokasi sebagai String
• Kami mengatur lokasi file dengan variabel ini
• Kemudian kami mengatur Aplikasi DisplayAlerts dan ScreenUpdating sebagai False
• Setelah itu, kami menggunakan For Loop untuk menyalin semua lembar buku kerja ini dan menyimpannya di lokasi
• Kami menggunakan Metode VBA SaveAs untuk menyimpan buku kerja
• Akhirnya, kami menjalankan kode

• Kembali ke sheet Anda dan jalankan Makro bernama SaveMultipleSheets seperti Makro Anda saat ini. Anda dapat menjalankan kode ini dari tombol Jalankan di Editor VBA

• Setelah itu, buka lokasi file Anda dan Anda akan melihat bahwa setiap lembar telah menjadi buku kerja

• Saya akan membuka buku kerja pertama untuk menunjukkan kepada Anda bahwa ini benar-benar terjadi

.

Dengan demikian, Anda dapat menyimpan setiap lembar sebagai buku kerja baru tanpa membukanya dengan Excel VBA

Baca Selengkapnya. Cara Menyimpan Lembar Kerja di Excel [2 Pendekatan Praktis]

Bacaan Serupa

• Cara Menyimpan Macro di Excel Secara Permanen [2 Cara yang Cocok]
• Simpan Excel sebagai PDF Fit to Page [5 Cara Mudah]
• Cara Membatalkan Penyimpanan di Excel [4 Metode Cepat]
• VBA Excel. Simpan dan Tutup Buku Kerja [5 Contoh yang Cocok]
• [Tetap. ] Dokumen Tidak Tersimpan Drive Jaringan Excel [5 Kemungkinan Solusi]

4. Menyimpan Setiap Lembar sebagai Buku Kerja Baru Berdasarkan Kata atau Teks

Jika Anda ingin menyimpan semua lembar buku kerja Anda sebagai buku kerja baru berdasarkan kata atau teks yang ada di nama lembar, Anda harus mengikuti langkah-langkah di bawah bagian ini

Langkah

• Ikuti untuk membuka Modul VBA
• Ketik kode berikut di Modul

Sub SaveSheetBasedOnWord[]
Dim Target_Path As String
Dim Target_Text As String
Target_Text = "3"
Target_Path = "C:\Users\DELL\Desktop\Nahian\blog 54\Save Sheet Based on Word"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Sheet In ThisWorkbook.Sheets
If InStr[1, Sheet.Name, Target_Text, vbBinaryCompare]  0 Then
Sheet.Copy
Application.ActiveWorkbook.SaveAs _
Filename:=Target_Path & "\" & Sheet.Name & ".xlsx"
Application.ActiveWorkbook.Close False
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Penjelasan Kode

• Pertama, kami menamai Sub Prosedur kami sebagai SaveSheetBasedOnWord
• Kemudian kita mendeklarasikan variabel Target_Path dan Target_Text sebagai String
• Setelah itu, kami mengatur lokasi file dengan variabel ini
• Kami ingin menyimpan lembar ke-3 sebagai buku kerja baru. Lembaran itu memiliki '3' dalam namanya. Karena kami ingin menyimpan lembar berdasarkan teks yang ada di namanya, kami menetapkan Target_Text sebagai 3
• Nanti, kami menetapkan Target_Path sebagai lokasi folder
• Kemudian kami menggunakan For Loop untuk membagi sheet berdasarkan teksnya
• Setelah itu, kami menggunakan metode Salin untuk menyalin lembar tertentu ke buku kerja baru
• Metode SaveAs digunakan untuk menyimpan lembar yang memiliki 3 namanya sebagai buku kerja baru
• Akhirnya, kami menjalankan kode

• Kembali ke lembar Anda dan jalankan Makro bernama SaveSheetBasedOnWord karena ini adalah Makro Anda saat ini. Anda dapat menjalankan kode ini dari tombol Jalankan di Editor VBA

• Setelah itu, buka lokasi file Anda dan Anda akan melihat buku kerja dataset3

• Buka dan Anda akan melihat bahwa lembar dataset3 dari buku kerja sebelumnya menjadi buku kerja baru itu sendiri. Buka untuk melihat konten buku kerja ini

Dengan demikian, Anda dapat menyimpan lembar sebagai buku kerja baru berdasarkan kata atau teks

Baca Selengkapnya. Simpan Berkas Excel sebagai Teks Tanpa Tanda Petik [4 Metode]

5. Menyimpan Banyak Lembar ke dalam Buku Kerja Baru

Anda juga bisa membuat buku kerja baru dengan beberapa lembar buku kerja Anda saat ini. Mari kita melalui proses di bawah ini untuk pemahaman yang lebih baik

Langkah

• Ikuti  untuk membuka Modul VBA
• Ketik kode berikut di Modul

Option Explicit

Sub SaveSelectedSheets[]
Dim Workbook_Source As Workbook, Target_Workbook As Workbook
Dim Sheet_List As String
Dim Sheet_Array As Variant
Dim Array_Index As Long
On Error GoTo errHandle
Sheet_List = "dataset1:dataset2"
Sheet_Array = Split[Sheet_List, ":"]
If UBound[Sheet_Array] = -1 Then Exit Sub
Set Workbook_Source = ThisWorkbook
Set Target_Workbook = Workbooks.Add
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Array_Index = LBound[Sheet_Array] To UBound[Sheet_Array]
ThisWorkbook.Worksheets[Sheet_Array[Array_Index]].Copy Target_Workbook.Worksheets[Target_Workbook.Worksheets.Count]
Next Array_Index
ChDir "C:\Users\DELL\Desktop\Nahian\blog 54"
ActiveWorkbook.SaveAs Filename:="C:\Users\DELL\Desktop\Nahian\blog 54\Save Specified Sheets with VBA.xlsx", CreateBackup:=False
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
CleanObjects:
Set Target_Workbook = Nothing
Set Workbook_Source = Nothing
Exit Sub
errHandle:
MsgBox "Error: " & Err.Description, vbExclamation
GoTo CleanObjects
End Sub

Penjelasan Kode

• Pertama, kami menamai Sub Prosedur kami sebagai SaveSelectedSheets
• Kemudian kita mendeklarasikan variabel Workbook_Source dan Target_Workbook sebagai Workbook
• Setelah itu, kita mendeklarasikan Sheet_List Sebagai String, Sheet_Array Sebagai Variant dan Array_Index As Long
• Kami ingin menyimpan lembar ke-3 sebagai buku kerja baru. Lembaran itu memiliki '3' dalam namanya. Karena kami ingin menyimpan lembar berdasarkan teks yang ada di namanya, kami menetapkan Target_Text sebagai 3
• Nanti, kami menetapkan Error Handler
• Kemudian kami menentukan lembar mana yang akan disatukan sebagai buku kerja. Di sini, kami ingin menyimpan lembar dataset1 dan dataset2 di buku kerja baru. Jadi kami menempatkannya di variabel Sheet_List
• Setelah itu, kita atur Workbook_Source sebagai ThisWorkbook dan Target_Workbook sebagaiAdd untuk membuat workbook baru di lokasi hard drive yang diinginkan
• A For Loop digunakan untuk menghitung berapa banyak lembar yang akan kami transfer di buku kerja baru yang disimpan dan menyalinnya
• Setelah itu, kami menggunakan pernyataan ChDir untuk mengubah direktori default lembar buku kerja saat ini. Kami juga menetapkan nama buku kerja baru dan lokasi penyimpanannya
• Kami memberikan beberapa pernyataan lain yang diperlukan
• Akhirnya, kami menjalankan kode

• Kembali ke lembar Anda dan jalankan Makro bernama SaveSelectedSheets karena ini adalah Makro Anda saat ini. Anda dapat menjalankan kode ini dari tombol Jalankan di Editor VBA

• Setelah itu, buka lokasi file Anda dan Anda akan melihat Save Specified Sheets with VBA

• Buka dan Anda akan melihat lembar dataset1 dan dataset2 dari buku kerja sebelumnya di buku kerja baru itu sendiri

Dengan demikian, Anda dapat menyimpan banyak lembar sebagai buku kerja baru tanpa membukanya

Baca Selengkapnya. Bagaimana Cara Menyimpan Makro ke Buku Kerja Makro Pribadi?

6. Menggunakan VBA untuk Menyimpan Lembar yang Dipilih sebagai Buku Kerja Baru tanpa Membuka

Anda dapat menggunakan Properti Pilihan VBA dan Variabel Array untuk menyimpan lembar yang Anda inginkan di buku kerja baru. Silakan ikuti langkah-langkah di bawah ini

Langkah

• Ikuti untuk membuka Modul VBA
• Ketik kode berikut di Modul

Sub SaveSheetByArrayVariable[]
    Sheets[Array["dataset1", "dataset2", "dataset3"]].Select
    Sheets["dataset1"].Activate
    Sheets[Array["dataset1", "dataset2", "dataset3"]].Copy
    ChDir "C:\Users\DELL\Desktop\Nahian\blog 54"
    ActiveWorkbook.SaveAs Filename:="C:\Users\DELL\Desktop\Nahian\blog 54\Save Sheets by VBA_2.xlsx", _
    CreateBackup:=False
    ActiveWorkbook.Close False
End Sub

Penjelasan Kode

• Pertama, kami menggunakan Properti Pilihan untuk memilih lembar dataset1, dataset2 dan dataset3 sebagai variabel Array
• Kemudian kita aktifkan dataset1. Anda dapat mengaktifkan salah satu dari 3 itu
• Kami menggunakan pernyataan ChDir untuk mengubah direktori default lembar buku kerja saat ini. Kami juga menetapkan nama buku kerja baru dan lokasi penyimpanannya
• Kami menggunakan Metode VBA SaveAs untuk menyimpan buku kerja
• Akhirnya, kami menjalankan kode

• Kembali ke lembar Anda dan jalankan Makro bernama SaveSheetByArrayVariable karena ini adalah Makro Anda saat ini. Anda dapat menjalankan kode ini dari tombol Jalankan di Editor VBA

• Setelah itu, buka lokasi file Anda dan Anda akan melihat buku kerja Save Sheets by VBA_2

• Buka dan Anda akan melihat lembar dataset1, dataset2 dan dataset3 dari buku kerja sebelumnya di buku kerja baru

Dengan demikian, Anda dapat mengganti nama lembar dan menyimpannya sebagai buku kerja baru tanpa membukanya dengan Excel VBA

Baca Selengkapnya. Cara Menyimpan Beberapa Lembar Excel sebagai Satu File [5 Metode Mudah]

Bagian Praktek

Di sini saya memberi Anda dataset dari file ini sehingga Anda dapat mempraktikkan metode ini sendiri

Kesimpulan

Cukuplah untuk mengatakan, Anda akan mempelajari metode terbaik tentang cara menyimpan lembar sebagai buku kerja baru tanpa membukanya di Excel. Jika buku kerja Anda berisi terlalu banyak lembar, penerapan metode ini dapat membuat situasi rumit menjadi lebih sederhana. Jika Anda memiliki pertanyaan atau ide atau umpan balik mengenai artikel ini, silakan bagikan di kotak komentar. Ini akan membantu saya memperkaya artikel saya yang akan datang

Artikel Terkait

• Cara Menyimpan Kode VBA di Excel [3 Metode yang Cocok]
• Perbaiki Excel Tidak Menanggapi dan Simpan Pekerjaan Anda
• Cara Membuka Dokumen Word dan Menyimpannya Sebagai PDF atau Docx dengan VBA Excel
• [Memperbaiki]. Microsoft Excel Tidak Dapat Membuka atau Menyimpan Dokumen Lagi Karena Memori yang Tersedia Tidak Cukup

  Bagaimana cara menyimpan lembar kerja aktif di Excel VBA?

  Untuk menyimpan buku kerja Excel menggunakan VBA, Anda perlu menggunakan metode SAVE untuk menulis makro . Dan di makro itu, Anda perlu menentukan buku kerja yang ingin Anda simpan lalu gunakan metode SAVE. Saat Anda menjalankan kode ini, ini berfungsi seperti pintasan keyboard [Control + S]. Tentukan topi buku kerja yang ingin Anda simpan.

  Bagaimana cara menyimpan hanya lembar aktif di Excel?

  Simpan satu lembar kerja .

  Klik kanan tab nama lembar kerja

  Klik pilih Pindahkan atau Salin

  Klik pada menu tarik-turun Pindahkan lembar yang dipilih ke Buku. Pilih [buku baru]

  Klik Oke. Buku kerja baru Anda terbuka dengan lembar kerja yang dipindahkan. .

  Klik File > Simpan di buku kerja baru Anda

  Bagaimana cara menyimpan lembar kerja sebagai buku kerja baru di VBA?

  Buat Buku Kerja Excel Baru dan Simpan .

  Pertama, gunakan buku kerja. tambahkan untuk membuat buku kerja baru

  Selanjutnya, lihat buku kerja yang aktif dan gunakan metode SaveAs

  Dalam metode SaveAs, gunakan jalur tempat Anda ingin menyimpan buku kerja beserta nama filenya

  Pada akhirnya, jalankan kodenya

  Bagaimana Anda menjadikan buku kerja sebagai buku kerja aktif di VBA?

  Langkah-Langkah Mengaktifkan Buku Kerja .

  Ketik "Buku Kerja" untuk menggunakan objek buku kerja

  Tentukan nama buku kerja dalam tanda kutip ganda

  Masukkan titik [. ] untuk mendapatkan daftar properti dan metode

  Pilih metode Aktifkan dari daftar atau Anda juga dapat mengetiknya

  Terakhir, jalankan kode untuk mengaktifkan buku kerja