Ứ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/

22 Comement tại “Ứng Dụng VBA Excel | Bài 06 chuyển file PDF sang file Excel”

  1. 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)

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

  3. cảm ơn anh đã chia sẻ

  4. 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.

  5. 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 ạ?

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

  7. 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é

  8. 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

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

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

  11. 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"

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

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

  14. 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

  15. 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é

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

  17. 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!

  18. 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.

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

  20. Cảm ơn bạn!

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

  22. 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

Để lại ý kiến của bạn:

Your email address will not be published. Required fields are marked *