Bagaimana cara mengimpor / menyalin data dari buku kerja tertutup ke buku kerja saat ini?
Mudah bagi kita untuk menyalin data dari lembar kerja yang terbuka dan menempelkannya ke buku kerja lain yang terbuka, tetapi, pernahkah Anda mencoba mengimpor data dari buku kerja yang tertutup ke dalam buku kerja yang terbuka? Artikel ini, saya akan berbicara tentang cara mengimpor data dari buku kerja tertutup.
Impor data dari buku kerja tertutup ke buku kerja saat ini dengan kode VBA
Impor data dari buku kerja tertutup ke buku kerja saat ini dengan Kutools for Excel
Impor data dari buku kerja tertutup ke buku kerja saat ini dengan kode VBA
Kode VBA berikut dapat membantu Anda menyalin data dari buku kerja tanpa membukanya ke buku kerja terbuka yang aktif, lakukan dengan langkah-langkah berikut:
1. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: Impor data dari buku kerja tertutup ke buku kerja saat ini
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan di File Terbuka jendela, pilih buku kerja yang ingin Anda impor datanya, lihat tangkapan layar:
4. Lalu klik Open tombol, dan KutoolsforExcel kotak dialog muncul untuk mengingatkan Anda memilih berbagai data yang ingin Anda impor ke buku kerja lain, lihat tangkapan layar:
5. Dan kemudian klik OK tombol, di kotak dialog yang muncul, pilih sel tempat Anda ingin meletakkan data, lihat tangkapan layar:
6. Dan klik OK, data di buku kerja tertutup telah diimpor ke buku kerja saat ini.
Impor data dari buku kerja tertutup ke buku kerja saat ini dengan Kutools for Excel
Kode VBA mungkin agak sulit untuk pemula Excel kami, jadi, di sini, saya akan merekomendasikan Anda alat yang berguna-Kutools untuk Excel, Dengan yang Sisipkan File di Cursor fitur, Anda dapat memasukkan seluruh konten lembar kerja dari buku kerja tertutup dengan cepat dan mudah.
| Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Setelah menginstal Kutools untuk Excel, lakukan hal berikut:
1. Klik Kutools Plus > Ekspor Impor > Sisipkan File di Cursor, lihat tangkapan layar:
2. di Sisipkan File di Cursor kotak dialog, lakukan operasi berikut:
(1.) Klik 
tombol untuk memilih sel tempat Anda ingin meletakkan data yang diimpor;
(2.) Klik 
tombol untuk memilih buku kerja yang ingin Anda impor datanya.
Catatan: Nilai saja (tanpa rumus): Jika Anda mencentang opsi ini, hanya nilai yang akan diimpor, dan rumus tidak akan diimpor.
Jangan mentransfer format: Mencentang opsi ini akan mengimpor data ke dalam lembar kerja tanpa pemformatan.
3. Lalu klik OK, jika ada lebih dari satu lembar kerja ke dalam buku kerja, a Pilih lembar kerja kotak dialog akan muncul, tentukan lembar kerja yang ingin Anda impor datanya, lihat tangkapan layar:
4. Dan kemudian klik OK tombol, data di lembar kerja yang dipilih telah diimpor ke buku kerja saat ini.
Klik untuk mengetahui detail selengkapnya tentang fitur Sisipkan File di Kursor.
Unduh dan uji coba gratis Kutools untuk Excel Sekarang!
Demo: Impor data dari buku kerja tertutup ke buku kerja saat ini dengan Kutools for 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 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!
