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 Ditambah > 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
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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!