Salah satu masalah umum yang dihadapi sebagian besar dari kita dalam kehidupan sehari-hari adalah bagaimana mengekstrak beberapa data spesifik dari suatu PDF ke lembar kerja Excel menggunakan VBA Dalam artikel ini, saya akan menunjukkan kepada Anda bagaimana Anda mencapai hal ini dengan nyaman dengan contoh dan ilustrasi yang tepat.

Ekstrak Data Spesifik dari PDF ke Excel Menggunakan VBA (Tampilan Cepat)

 Sub Extract_Data_from_PDF() Set MyWorksheet = ActiveWorkbook.Worksheets("Sheet1") Application_Path = "C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe" PDF_Path = "E:\ExcelWIKI\standardnormaltable.pdf" Shell_Path = Application_Path & " """ & PDF_Path & """" Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus) Application.Wait Now + TimeValue("0:00:03") SendKeys "%vpc"SendKeys "^a" SendKeys "^c" MyWorksheet.Range("A1").PasteSpecial Paste:=xlPasteAll Call Shell("TaskKill /F /IM Acrobat.exe", vbHide) End Sub 

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.

Ikhtisar untuk Mengekstrak Data Spesifik dari PDF ke Excel Menggunakan VBA (Analisis Langkah-demi-Langkah)

Jadi, tanpa penundaan lebih lanjut, mari kita lanjutkan ke pembahasan utama kita hari ini. Di sini kita punya PDF file yang disebut standardnormaltable.pdf yang berisi tabel distribusi normal.

Dan kita telah membuka lembar kerja bernama Sheet1 dalam buku kerja Excel di mana kita akan menyalin data dari PDF file.

Sekarang saya akan menunjukkan bahwa Anda bisa menyalin data dari PDF file ke lembar kerja Excel melalui analisis langkah demi langkah.

⧪ Langkah 1: Mendeklarasikan Input yang Diperlukan

Pertama-tama, Anda harus mendeklarasikan input yang diperlukan. Ini termasuk nama lembar kerja, rentang sel, lokasi aplikasi yang melaluinya PDF akan dibuka ( Adobe Reader dalam contoh ini), dan lokasi dari PDF file.

 Set MyWorksheet = ActiveWorkbook.Worksheets("Sheet1") Application_Path = "C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe" PDF_Path = "E:\ExcelWIKI\standardnormaltable" 

⧪ Langkah 2: Membuka File PDF (dengan Menggunakan Perintah VBA Shell)

Selanjutnya, kita harus memanggil VBA Fungsi cangkang untuk membuka PDF file.

 Shell_Path = Application_Path & " """ & PDF_Path & """" Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus) 

⧪ Langkah 3 (Opsional): Menunggu Beberapa Saat

Ini opsional, tetapi ketika Anda memiliki serangkaian tugas yang panjang, lebih baik menunggu beberapa saat untuk memungkinkan komputer Anda menyelesaikan tugas sebelumnya dengan sukses dan memulai tugas baru.

 Aplikasi.Wait Now + TimeValue("0:00:03") 

Di sini, kami menunggu selama 30 detik. Tetapi jika Anda mau, Anda bisa menunggu lebih lama.

⧪ Langkah 4: Menggunakan SendKeys untuk Menyalin Data dari File PDF

Ini mungkin tugas yang paling penting. Kita akan menggunakan 3 SendKeys:

• ALT + V, P, C: Hal ini terutama untuk mengaktifkan scrolling di dalam PDF Untuk file kecil, hal ini tidak diperlukan, tetapi untuk file yang lebih besar, hal ini menjadi penting untuk memilih seluruh file.
• CTRL + A: Ini untuk memilih seluruh file.
• CTRL + C Untuk menyalin file yang dipilih.

Oleh karena itu, baris-baris kodenya akan menjadi:

 SendKeys "%vpc" SendKeys "^a" SendKeys "^c" 

⧪ Langkah 5: Menempelkan Data dalam File Excel

Kami telah membuka secara spesifik PDF Sekarang kita harus menempelkan data itu ke dalam rentang lembar kerja yang diinginkan.

 MyWorksheet.Range ("A1").PasteSpecial Paste:=xlPasteAll 

Di sini, saya telah menempelkan di sel A1 Tentu saja, Anda dapat menempelkannya di tempat lain sesuai dengan keinginan Anda.

⧪ Langkah 6 (Opsional): Menutup File PDF (Mengakhiri Aplikasi)

Akhirnya, lebih baik menutup program yang sedang berjalan setelah Anda selesai dengan ekstraksi data.

 Panggil Shell("TaskKill /F /IM Acrobat.exe", vbHide) 

Baca selengkapnya: Cara Mengekstrak Data dari PDF ke Excel (4 Cara yang Cocok)

Bacaan Serupa

• Cara Mengekspor Data dari PDF yang Dapat Diisi ke Excel (dengan Langkah Cepat)
• Cara Mengekspor Komentar PDF ke dalam Spreadsheet Excel (3 Trik Cepat)

Contoh untuk Mengekstrak Data Spesifik dari PDF ke Excel Menggunakan VBA

Kita sudah melihat prosedur langkah demi langkah untuk mengekstrak data dari PDF ke lembar kerja Excel menggunakan VBA .

Oleh karena itu, lengkap VBA kode untuk mengekstrak data dari PDF file yang disebut standarnormaltable untuk Sheet1 akan menjadi:

⧭ Kode VBA:

 Sub Extract_Data_from_PDF() Set MyWorksheet = ActiveWorkbook.Worksheets("Sheet1") Application_Path = "C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe" PDF_Path = "E:\ExcelWIKI\standardnormaltable.pdf" Shell_Path = Application_Path & " """ & PDF_Path & """" Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus) Application.Wait Now + TimeValue("0:00:03") SendKeys "%vpc"SendKeys "^a" SendKeys "^c" MyWorksheet.Range("A1").PasteSpecial Paste:=xlPasteAll Call Shell("TaskKill /F /IM Acrobat.exe", vbHide) End Sub 

⧭ Keluaran:

Jalankan kode ini. Dan itu akan menyalin data dari PDF file yang disebut "standardnormaltable" ke lembar kerja yang disebut "Sheet1" di buku kerja yang aktif.

Baca selengkapnya: Cara Mengekstrak Data dari Beberapa File PDF ke Excel (3 Cara yang Cocok)

Hal-hal yang Perlu Diingat

• Buku kerja di mana Anda akan menyalin data dari PDF Jika tidak, Anda harus menggunakan nama buku kerja dalam kode.
• Nama aplikasi yang Anda gunakan di dalam kode ( Adobe Acrobat DC di sini) harus diinstal pada komputer Anda. Jika tidak, Anda akan menerima kesalahan.
• Untuk set data besar PDF Jadi bersabarlah dan tunggu sampai prosesnya selesai dengan sukses.

Kesimpulan

Oleh karena itu, ini adalah proses untuk mengekstrak beberapa data spesifik dari suatu PDF ke lembar kerja Excel menggunakan VBA Apakah Anda memiliki pertanyaan? Jangan ragu untuk bertanya kepada kami. Dan jangan lupa untuk mengunjungi situs kami ExcelWIKI untuk lebih banyak postingan dan pembaruan.