Ứng Dụng VBA Excel | Bài 06 chuyển file PDF sang file Excel



Link tải file thực hành:
Đăng ký Để nhận video mới:
Facebook hỗ trợ:

Bài giảng này mình sẽ hướng dẫn các bạn một trong những ứng dụng VBA Excel là chuyển file từ PDF sang file Excel.

Chúc các bạn học tốt Excel!!!
#Gaexcel #ExcelChicken #CungHocExcel #ExcelCoBan #ExcelNangCao

Xem thêm video học và các thủ thuật excel: https://mindovermetal.org/thu-thuat-excel/

5/5 - (7 votes)

Bài viết liên quan

Subscribe
Notify of
guest
22 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
Adc

Anh ơi anh có thể hướng dẫn xuất excel sang pdf được không anh, hiện tại em có file excel em cần xuất sang pdf để lưu (phiếu xuất kho công cụ hàng ngày)

Bình Quốc

Ngon, mình đã làm được nhưng convert ra lỗi font tùm lum luôn 🙁

ATP TV

cảm ơn anh đã chia sẻ

Điệp Trương

hi Ad, lệnh wr.sheets(1).Paste của mình báo lỗi. Mình nhìn ko ra, bạn fix dùm mình nha.

Tracy Nguyen

a ơi cho em hỏi bình thường thì mở PDF trong word thì mở như thế nào anh, ý là không dùng VBA thì chuyển 1 file PDF sang Excel thì làm thế nào ạ?

Khu Nguyễn

Anh ơi em chuyển file xong lại ko đọc được làm thế nào để chuyển font chữ để đọc ạ

Linh Giang

Bạn ơi, mình code chạy ra hoàn thành và ra file excel rồi nhưng file excel bị phông lỗi thì fix ntn nhỉ> Mình cảm ơn nhé

Quangbsg Vinh

Anh cho em hỏi trong File Word có các số liệu vd: 75.500 nhưng khi chạy qua Excel chỉ còn 75.5 mình có các nào khác phục lỗi này không anh

Diamond vo

Bạn có thể cho minh xin toàn bộ nội dung nhập ở module với

Lạc Lối Kẻ

Bạn có thể viết code sử dụng phần mềm ABBYY để chuyển sang excel được không bạn?

DONA DONI

Bạn Gà excel ơi, mình bắt chước cấu trúc của bạn, để làm pdf chuyển qua word nhưng bị báo lỗi phong chữ. Bạn có thể hướng dẫn mình hướng xử lý không. Mình đã ráp câu lệnh thế này. Không biết có sai chỗ nào không. Thank you.

Sub pdf2word()

Dim pdf_path As String 'duong dan file pdf

Dim word_path As String 'duong dan file word

'Cac bien de thao tac voi file va folder

Dim fso As New FileSystemObject

Dim Fo As Folder

Dim Fi As File

'Cac bien lien quan den word

Dim wa As Object

Dim doc As Object

'Duong dan pdf va word

pdf_path = ThisWorkbook.Sheets(1).Cells(11, 4).Value

word_path = ThisWorkbook.Sheets(1).Cells(12, 4).Value

Set Fo = fso.GetFolder(pdf_path)

'Mo ung dung word ra

Set wa = CreateObject("word.application")

wa.Visible = True

For Each Fi In Fo.Files

'Buoc 1: mo file pdf trong word

Set doc = wa.Documents.Open(Fi.Path, False, Format:="PDF File")

'Buoc 2: Paste du lieu vu copy

doc.SaveAs (word_path & "" & Replace(Fi.Name, ".pdf", ".doc"))

doc.Close False

Next

wa.Quit

MsgBox "Hoan thanh"

Ngọc Tuấn

Sao em vẫn làm như anh mà không được nhỉ?

Góc Nhìn mới

ad có lick fb ko cho em xin
em muốn hỏi nhiều điều về maccro ạ

minhphuong nguyen

ad cho hỏi ô 11d, 12d là mình viết bình thường hay sao vậy, cảm ơn ad và lỗi path not found là sao vậy ad

Trương Hoài Ân

Mình tải file về test thử nhưng dòng Set wa = CreateObject("work.application").Value báo bị Debug, mình kiểm tra đúng cú pháp rồi mà không hiểu tại sao, những dòng khai báo biến mình cũng sao chép đầy đủ, bạn biết lỗi nằm chỗ nào thì giúp mình với nhé

phong dang

Anh có thể cho em xin file excel để tham khảo được ko anh?

khoiminh dao

Chao ban, cam on ban da chia se ve bai hoc tren rat hay. Nhung neu chung ta can chuyen file dang Notepad sang excel thi ko biet ban co the lam video de share cho moi nguoi cung xem ko. Cam on ban!

Phú Lương

Cảm ơn anh nhièu, tool rất hay. Anh ơi, có cách nào tự động hoá việc tải file (pdf) khi truy cập web bằng cách click một đường dẫn hyperlink không anh? Nếu được anh chia sẻ nha.

Hữu Đại TV

Mình mới ủng hộ bạn , bạn ủng hộ lại mình với

Cuong Thao

Cảm ơn bạn!

Jose Mourison

em làm theo chuyển qua file excel sao bị lỗi font hết vậy anh?

Thao Đoàn

Bạn nhiệt tình quá. Ai cũng như bạn thì Việt Nam đuổi kịp Nhật Bản rồi