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

[@trandaisy5814]

Cám ơn bạn Gà Excel. Cách làm này có chuyển được sang Word không, nếu được thì sửa code như thế nào. nhờ bạn Gà Excel chỉ giúp

[@thanhtung8690]

Thêm lệnh application.screenupdateting =False nữa là ok

[@atptv2789]

cảm ơn anh đã chia sẻ

OK ạ. Gà chúc bạn học tốt nha

[@khoiminhdao6072]

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!

OK bạn, để lúc nào rảnh mình làm sau nha

[@cuongthao5186]

Cảm ơn bạn!

[@thanhnhiinh9601]

Bạn Gà Excel ơi cho mình hỏi, mình có 1 thư mục các file (xml) có định dạng và cấu trúc giống nhau, có cách nào để mình lấy tự động 1 chỉ tiêu cụ thể trên các file không ạ? Ví dụ như file Báo cáo Tài chính theo Thông tư 133 (01a), lấy chỉ tiêu Hàng tồn kho ấy ạ?

[@tracynguyen1305]

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

[@onovan5801]

em hỏi vs ạ em cũng soạn marco như anh, nhưng khi chuyển sang thì nó về hết dạng ảnh chứ không giống như a, thì lỗi ở đâu ạ

[@thanhthuyviolet]

Giúp mình làm file chuyển pdf sang word nhé! Mà nếu là bản vẽ thì chuyển xong có bị mất định dạng không vậy?

[@duytahuy2090]

@ Gà Excel ơi em khai báo biến Fo As Folder và Fi As File máy báo lỗi là sao ah?

[@ThuyNguyen-yf6lv]

gà Excel cho hỏi mình dowload file thực hành về khi convert báo lỗi là sao?

[@khanhtranvanmai9825]

anh ơi cho em hỏi muốn chuyển 1 vùng dữ liệu nào đó trong File PDF sang File Excel thôi được không anh

[@hoccungpiT4763]

chào anh, anh cho em hỏi 1 file pdf có 10 câu hỏi, mình có thể tạo 10 ảnh, mỗi ảnh là 1 câu không ạ !

[@buikhacduong]

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

Hic hic. Gà còn chưa dùng phần mềm ABBYY j đó ạ

[@MrDBA1989]

được bạn nhé, ABBYY hỗ trợ cmd nên bạn code để gọi cmd là được. Nhưng chạy bằng ABBYY sẽ lâu nhé.

[@user-qo8hi9is7d]

@@MrDBA1989 code viết sao ạ

[@minhphuongnguyen2321]

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

Hic hic, Bạn viết như video nhé. Path not found là đường dẫn ko tìm thấy. bạn xem có dấu đủ dấu đến folder chưa nhé

[@hongptx5638]

Thầy oi e bị báo lỗi set fo=fso.getfolder(pdf_path). Mong thầy chỉ dẫn ạ. Thanks

[@duytahuy2090]

anh ơi cho em hỏi em khai báo biến Fi và Fo máy báo lỗi

[@ThuyNguyen-yf6lv]

'Mo ung dung word ra Set wa = CreateObject("Word.application") wa.Visible = True (lỗi ở đây)

[@phuc0079]

chào anh Gà excell. em có bài toán như này: mở 1 file pdf nằm trong 1 folder cụ thể( folder gồm nhiều file pdf đặt tên khác nhau) rồi in file pdf đó. a chỉ giúp e dòng code này với ạ. cảm ơn anh nhiều.

[@phamthuhuong5366]

Anh Gà Excel ơi, cho em hỏi chút ạ. Em đã chạy dc marco rồi nhưng bị lỗi font,ko ra theo đúng các ô thì có cách khắc phục nào không ạ? File pdf của em là từ excel( hoặc word) chuyển sang pdf và giờ e muốn đổi ngược lại từ pdf sang excel mà lỗi font hết :(

[@hhteam7148]

ANh ơi chỉ em cách lưu file excel thành pdf của 1 sheet bằng vba có nút nhấn và nơi lưu là mặc định theo file excel gốc mà mình đang muốn chuyển, ví dụ file excel mình đang ở desktop thì nhấn nút có code vba sẽ tự động ở desktop luôn, em ngu excel lắm, mong anh hỗ trợ

[@diepit8x]

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.

Hic, bạn xem có xót bước nào ko nha.

[@phuluong1915]

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.

Cái này chắc ko được bạn ạ.

[@phuluong1915]

Gà Excel em cảm ơn anh và chúc anh thật nhiều sức khoẻ!

[@quangbsgvinh4775]

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

Vì trong Excel nó hiểu . là ngăn cách số nguyên với thập phân ạ

[@quangbsgvinh4775]

@ có cách nào xử lý không anh

[@truonghoaian1373]

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é

Bạn thử check lại kỹ từng dòng 1 xem ạ. :(

[@f5sudoku]

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)

[@huynhhuynh6070]

Ctrl + P chọn export là được bạn nhe

[@diamondvo9742]

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

Hic hic, mình ko lưu ạ. Bạn vừa làm thì sẽ học tốt hơn ạ

[@diamondvo9742]

@ Sao mình chạy không được cứ báo lỗi, bạn xem giúp mình với, mình gửi qua tin nhăn fb cho bạn đó

[@daothanhk7cntt]

Mình lm theo hướng dẫn mà ko tạo file excel mới, trong thư mục excel vẫn file pdf

[@ThaoNguyenThi-nt9km]

Anh ơi cho em hỏi sao em convert xong nó lại ra file excel là file Ảnh dán trong excel ạ.mong Anh giúp đỡ

Hic hic. Bạn xem kỹ lại xem sao nha

[@ThaoNguyenThi-nt9km]

@ cám ơn Anh Gà ib

[@thanhdo6906]

Chào bạn, Sao khi mình chuyển thì có 1 file bị nhảy hàng á.

[@nguyenqt99]

Mình gặp lỗi 91 ' object variable or with block variable not set" tại dòng code 'Buoc 3...... nwb.Sheets(1).Paste

Hic hic, bạn thử xem kỹ lại xem có gì sai khác với video hướng dẫn ko nha.

[@QuocBinh2025]

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

[@khunguyen7772]

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

Cũng tùy file thôi ạ, có những file ko thể chuyển về excel hoặc word vì bị lỗi font rất nhiều ạ.

[@khunguyen7772]

Vâng e cảm ơn ạ

[@DidierMRS]

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

[@hoavuong7073]

Jose Mourison mình cũng bị lỗi font. Phải làm sao nhỉ

Những file scan thì hay bị vỡ chữ hoặc lỗi font. Kể cả phần mềm chuyển đổi pro cũng ko xử lý được những file kiểu scan đâu ạ

[@donadoni2828]

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"

Ok bạn, để lúc nào rảnh Gà làm video hướng dẫn sau ạ.

[@thanhdo6906]

có 1 file thì nó không chia hàng cột , mà gán giá trị vào 1 ô thôi

[@dongthidiep9204]

sao mình làm bước set Fo luôn báo lỗi debug, mình đã xem kỹ các bước trên rồi. help me

Hic hic, bạn thử xem kỹ lại xem có gì sai khác với video hướng dẫn ko nha.

[@dcmvnch]

Cho xin excell file này đi anh Gà

Bạn cố gắng học, thực hành để còn hiểu và tùy chỉnh theo nhu cầu công việc của bạn nha

[@dcmvnch]

@ năn nỉ bác cho em xin file này đi. Gmail: [e-mail]

[@phongdang5851]

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

[@phongdang5851]

em tải về nhưng báo marcro ko dùng được a

[@phongdang5851]

Nếu được anh gửi vào mail [e-mail] nhé. Em cảm ơn

Mình ko lưu file ạ. Có vài dòng lệnh thôi mà. Bạn làm như hướng dẫn là được ạ

[@tuanngoc4403]

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

Hic hic, Vậy ạ. Bạn xem có sót bước nào ko nhé

[@linhgiang3786]

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é

Vâng, có những file gốc chuyển sẽ bị lỗi font ngay cả phần mềm cũng bị ạ. Cái nào dùng được bạn sẽ tận dụng, cái nào ko mình phải làm tay thôi. chúc bạn thành công nha

[@linhgiang3786]

@ mình làm 3 file đều k đc, có phải đúng pdf thì đc, scan pdf thì ko đc?

@@linhgiang3786 Đúng rồi ạ, file pdf scan thì hầu hết là vỡ chữ ngay cả phần mềm ạ

[@Ngocnhan88]

cho xin code đi banh gà

Bạn cố gắng theo dõi và thực hành để học VBA nha.