Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menyimpan file Excel dengan nilai sel?

Saat menggunakan workbook, pernahkah terpikir untuk menyimpan file Excel berdasarkan konten sel? Misalnya, Anda memiliki "Harga obral" di sel A1, dan Anda ingin menyimpan buku kerja sebagai nama Harga obral. Tentu saja, Anda dapat mengetikkan nama ke dalam dialog Simpan Sebagai, lalu menyimpannya. Tetapi ini akan menjadi metode yang tidak efisien dalam jumlah pekerjaan Anda. Hari ini, saya akan berbicara tentang trik cepat untuk mengatasinya.

Simpan file Excel dengan nilai sel tertentu dengan menggunakan kode VBA

Tab Office Mengaktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Anda Lebih Mudah ...
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda dengan
80%
  • Gunakan Kembali Apa Pun: Tambahkan rumus, bagan, dan hal lain yang paling sering digunakan atau rumit ke favorit Anda, dan gunakan kembali dengan cepat di masa mendatang.
  • Lebih dari 20 fitur teks: Ekstrak Nomor dari String Teks; Ekstrak atau Hapus Bagian dari Teks; Ubah Angka dan Mata Uang ke Kata Bahasa Inggris.
  • Gabungkan Alat: Beberapa Buku Kerja dan Lembar menjadi Satu; Gabungkan Beberapa Sel / Baris / Kolom Tanpa Kehilangan Data; Gabungkan Baris dan Jumlah Duplikat.
  • Alat Pisah: Membagi Data Menjadi Beberapa Lembar Berdasarkan Nilai; Satu Buku Kerja ke Beberapa File Excel, PDF atau CSV; Satu Kolom ke Beberapa Kolom.
  • Tempel Melewati Baris Tersembunyi / Difilter; Hitung Dan Jumlah dengan Warna Latar Belakang; Kirim Email Hasil Personalisasi ke Beberapa Penerima secara Massal.
  • Filter Super: Buat skema filter tingkat lanjut dan terapkan ke setiap lembar; Jenis menurut minggu, hari, frekuensi, dan lainnya; SARING dengan tebal, rumus, komentar ...
  • Lebih dari 300 fitur canggih; Bekerja dengan Office 2007-2021 dan 365; Mendukung semua bahasa; Penerapan yang mudah di perusahaan atau organisasi Anda.

panah gelembung kanan biru Simpan file Excel dengan nilai sel tertentu dengan menggunakan kode VBA

Kode VBA berikut dapat membantu Anda menyimpan buku kerja Anda dengan nilai sel yang ditentukan, lakukan hal berikut:

1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Simpan file Excel dengan nilai sel tertentu

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Lalu tekan F5 kunci untuk mengeksekusi kode, dan buku kerja Anda telah dinamai sebagai konten sel dari sel A1. Lihat tangkapan layar:

doc-save-dengan-nilai-sel-1

Catatan:

1. Anda dapat menentukan nilai sel apa pun sebagai nama file dengan hanya memodifikasi A1 ke referensi sel lain pada kode di atas.

2. Buku kerja aktif Anda akan disimpan ke dalam folder C: \ Users \ dt \ Desktop \ informasi saya \ (garis miring terakhir harus tetap ada saat Anda menempelkan lokasi Anda ke lokasi alih-alih), Anda dapat mengubah jalur ke kebutuhan Anda.


Artikel terkait:

Bagaimana cara menyimpan file dengan tanggal dan waktu di Excel?

Bagaimana cara menampilkan jalur file di bilah judul atau bilah alat di Excel?


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (33)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
modul tidak disimpan di .XlsX ; pikir itu ada hubungannya dengan baris 7;; ".xls", FileFormat:=xlNormal; Juga bagaimana saya bisa memodifikasi untuk mengambil nilai dari 3 sel berbeda yang digabungkan? misalnya: nama depan, nama belakang, tanggal; di baris 6 kode?
Komentar ini diminimalkan oleh moderator di situs
Redupkan nama file As String
Redupkan nama file1 Sebagai String
Redupkan nama file2 Sebagai String

Path = "C:\Users\dt\Desktop\informasi saya\"
nama file = Range("A1")
namafile1 = Rentang("A2")
namafile2 = Rentang("A3")
ActiveWorkbook.SaveAs nama file:=Jalur & nama file & "-" & namafile1 & "-" & namafile2 ".xls", FileFormat:=xlNormal
Komentar ini diminimalkan oleh moderator di situs
Kris. Anda dapat menggabungkannya dalam sel terpisah dan kemudian merujuk sel itu menjadi nilai nama file Anda.
Komentar ini diminimalkan oleh moderator di situs
Hai, Milik saya hanya akan disimpan sebagai jalur dan nama file. Saya hanya ingin nama file yang dirujuk dari sel untuk disimpan saja. Bisakah kamu menolongku?
Komentar ini diminimalkan oleh moderator di situs
Ini cukup keren... tapi sepertinya ada bug yang saya tidak yakin bagaimana cara memperbaikinya. Saya menggunakan ini dalam templat yang mendukung makro. Saya membuka template, saya membuat perubahan/pembaruan, saya menekan F5 untuk menjalankan makro... dan... kotak dialog "Go To" muncul mengharapkan saya untuk memasukkan "referensi". Namun, jika saya menekan ALT F11, dan KEMUDIAN tekan F5, file .xls baru disimpan seperti yang diharapkan. Apakah saya harus selalu membuka modul Visual Basic untuk menjalankan prosedur "simpan" ini?
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki templat yang tidak ingin saya tulis sehingga pengguna diharuskan menyimpan file yang dinamai berdasarkan tanggal yang dimasukkan ke dalam salah satu bidang. Saya tidak ingin pengguna harus membuka alat lalu pilih/jalankan makro. Mereka mungkin juga memasukkan nama file.
Komentar ini diminimalkan oleh moderator di situs
Anda dapat menambahkan =NOW() sebagai parameter untuk nama file Anda di sel sebelum Anda mengekstraknya di Makro (dan juga menempatkan tombol standar di sudut halaman sehingga karyawan tidak perlu membuka alat apa pun
Komentar ini diminimalkan oleh moderator di situs
Kalian adalah penyelamat. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Saya perlu menyimpan sebagai file .csv. bagaimana saya mengubah ini untuk membuatnya disimpan sebagai file .csv? Private Sub filename_cellvalue() 'Update 20141112 Dim Path As String Redupkan nama file Sebagai String Path = "C:\Doorlister\import\DoorJob\" nama file = Range("AC2") ActiveWorkbook.SaveAs nama file:=Path & nama file & ".xls ", FileFormat:=xlNormal End Sub Terima kasih sebelumnya atas bantuan Anda!
Komentar ini diminimalkan oleh moderator di situs
Saya pikir saya melakukan sesuatu yang salah di sini ...

Ini memberi saya kesalahan di baris Sheets ("shitname"). Pilih

Mungkin saya melakukan sesuatu yang salah ketika saya menamai "shitname" seperti sel K10

saya ingin mengubah lembar ke lembar lain yang disebut persis seperti sel K10


' gicsel Macro
'
' Pintasan Keyboard: Ctrl+Shift+C
'
Seleksi.Salin
Sheets("debagat").Pilih
Baris("8:8").Pilih
ActiveSheet.Paste
Jalur Redup Sebagai String
Jalur = "C:\cgxml\"
Redupkan nama file As String
nama file = Range("A8")
Dim shitname As String
shitname = Rentang("K10")
Sheets("shitname").Pilih
Application.CutCopyMode = Salah
ActiveWorkbook.SaveAs nama file:=Path & nama file & ".xml", FileFormat:=xltxt, CreateBackup:=False
Sheets("TOTAL").Pilih
ActiveCell.Offset(1, 0).SeluruhRow.Pilih
End Sub
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi dengan baik... Terima kasih, tapi saya perlu menyimpannya sebagai PDF... Ada pendapat?

Terima kasih

chris
Komentar ini diminimalkan oleh moderator di situs
sama seperti di atas tapi ganti ActiveWorkbook.SaveAs dengan: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=Benar, AbaikanPrintAreas:=False, _
OpenAfterPublish:=Benar
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas tanggapan Anda, sangat membantu saya.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Apa yang harus saya tambahkan jika saya ingin menyimpan lembar kerja aktif tetapi menggunakan nilai sel lembar 1?
Komentar ini diminimalkan oleh moderator di situs
Tolong bantu ... Saya sudah berhasil melakukan segalanya. Tapi itu menyimpan dokumen ke dalam My Documents alih-alih server yang ditentukan ...



Sub CommandButton1_Click Pribadi ()
Jalur Redup Sebagai String
Redupkan FileName1 Sebagai String
Redupkan FileName2 Sebagai String
Redupkan FileName3 Sebagai String
Redupkan FileName4 Sebagai String
Redupkan FileName5 Sebagai String
Path = "J:\Protection Services\Documents\Booysendal security"
FileName1 = Rentang ("A2")
FileName2 = Rentang ("B2")
FileName3 = Rentang ("C2")
FileName4 = Rentang("D2")
FileName5 = Rentang("E2")
ActiveWorkbook.SaveAs Filename:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
End Sub
Komentar ini diminimalkan oleh moderator di situs
Tambahkan garis miring terbalik setelah keamanan dan sebelum kutipan... ...keamanan\"
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika Anda ingin Anda hanya ingin menentukan nama file tetapi memiliki opsi untuk memilih jalur file setiap kali Anda menyimpan?

Anda juga dapat menentukan beberapa sel untuk nama file. Sel-selnya juga digabung.

Simpan ke jalur file yang berbeda setiap kali

Gunakan beberapa sel untuk nama file
Komentar ini diminimalkan oleh moderator di situs
Ok jadi saya membuatnya berfungsi dengan baik menggunakan tombol in sheet. Sekarang saya ingin menyimpannya secara normal setelah penyimpanan awal sebagai. Bisakah ini dilakukan? Menggunakan tombol simpan yang sama?
Terima kasih Bruce
Komentar ini diminimalkan oleh moderator di situs
cara membuat makro untuk menyimpan beberapa lembar dengan nilai selnya sebagai nama file
Terima kasih,
Rajiv
Komentar ini diminimalkan oleh moderator di situs
Halo semua!

Bagaimana cara menyimpan input berulang di sel yang sama, di sel lain, dengan Makro?

Di sheet1, saya memasukkan data di A1, B1, C1, sebanyak n kali dalam sehari. Di sheet2, saya perlu menyimpan semua catatan ini, di A2, B2, C2, A3, B3, C3, dll. Tnx!
Komentar ini diminimalkan oleh moderator di situs
Hi teman-teman,
Saya memiliki masalah dan akan senang jika ada seseorang yang membantu saya
Saya memiliki file di drive "F" dan folder "ABS" - nama file saya adalah "Listdata"
Dalam file Excel di desktop saya, saya ingin sel (4,4) untuk mengambil data dari lembar "ABS" (1) dan sel (2,2)
Kode di bawah ini
Sub Makro1()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
tapi itu tidak bekerja dengan benar
Terima kasih teman-teman
Komentar ini diminimalkan oleh moderator di situs
Hai, saya mencoba menggunakan kode ini tetapi ketika saya mencoba mengeksekusi saya mendapatkan kesalahan runtime 1004 dan menyoroti baris 7 sebagai tidak valid: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
Bagaimana saya bisa menyelesaikan ini? Saya menggunakan office 365
Komentar ini diminimalkan oleh moderator di situs
Se a célula de referencia estiver em uma outra planilha já aberta? como faço?
Komentar ini diminimalkan oleh moderator di situs
Hai. Saya sangat senang itu bisa bekerja tetapi bagi saya di dalamnya mengatakan "kesalahan runtime BASIC. Sob-prosedur atau prosedur fungsi tidak ditentukan." dan panah yang menunjukkan garis 6. Apa yang harus saya lakukan?
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki tombol kontrol untuk menyimpan sebagai PDF dengan nama tertentu ke lokasi tertentu yang sudah berfungsi, tetapi saya ingin mengubah kode karena nama file adalah nama lembar aktif ditambah nilai sel tertentu dari lembar lain. Bagaimana aku melakukan itu? Inilah yang saya miliki untuk disimpan sebagai PDF:


Sub CommandButton1_Click Pribadi ()
Application.ScreenUpdating = Salah
Jenis ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
nama file:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish:=Salah
Application.ScreenUpdating = Benar
End Sub

Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
adakah yang bisa membantu dengan solusi, saya sudah berhasil mendapatkan output dengan benar jika sel tidak kosong

Sub Simpanan Pribadi()

Jalur redup Sebagai String

Redupkan nama file1 Sebagai String



path = "C:\User\Compwork\"



filename1 = path & Range("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTError "

Application.DisplayAlerts = Salah

ActiveWorkbook.Saveas nama file1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("report").ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = Benar

ActiveWorkbook.Tutup



End Sub



Namun, masalah saya adalah saya ingin menyimpan nama file tanpa meninggalkan spasi jika nilai sel NULL misalnya, jika nilai G6 kosong maka saya ingin output "G4-H7 VTError".
Adakah cara untuk mendekati ini?


Terima kasih.
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL