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/
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)
Ngon, mình đã làm được nhưng convert ra lỗi font tùm lum luôn 🙁
cảm ơn anh đã chia sẻ
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.
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 ạ?
Anh ơi em chuyển file xong lại ko đọc được làm thế nào để chuyển font chữ để đọc ạ
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é
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
Bạn có thể cho minh xin toàn bộ nội dung nhập ở module với
Bạn có thể viết code sử dụng phần mềm ABBYY để chuyển sang excel được không bạn?
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"
Sao em vẫn làm như anh mà không được nhỉ?
ad có lick fb ko cho em xin
em muốn hỏi nhiều điều về maccro ạ
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
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é
Anh có thể cho em xin file excel để tham khảo được ko anh?
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!
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.
Mình mới ủng hộ bạn , bạn ủng hộ lại mình với
Cảm ơn bạn!
em làm theo chuyển qua file excel sao bị lỗi font hết vậy anh?
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