Lỗi Expected function or variable khi Export Excel ra PDF

[xt_esq]

Trong trường hợp export lần đầu tiên hoặc ghi đè file pdf đã có thì không phát sinh lỗi, tuy nhiên khi export theo tên file pdf mới thì phát sinh lỗi "Expected function or variable".
Xin nhờ và cảm ơn các anh chị giúp đỡ.

(Nguồn: https://www.thespreadsheetguru.com/...a-pdf-document-from-selected-excel-worksheets)

 

[VetMini]

Bạn lấy code ở nơi nào thì vào đó mà hỏi.
Code diễn đàn này đem hỏi diễn đàn khác là kém lịch sự. Phải cho tác giả chính thức của code giải thích trước đã. Nếu tôi nói này nọ là nói sau lưng người ta.

 

[xt_esq]

Bạn lấy code ở nơi nào thì vào đó mà hỏi.
Code diễn đàn này đem hỏi diễn đàn khác là kém lịch sự. Phải cho tác giả chính thức của code giải thích trước đã. Nếu tôi nói này nọ là nói sau lưng người ta.

Cảm ơn anh VetMini đã trả lời câu hỏi.
Tác giả của code này chia sẻ trên trang web cá nhân mà không có mục bình luận nên em mới mạo muội gửi lên đây hỏi.

Cụ thể, anh chị nào biết xin giải thích giúp ý nghĩa của "ActiveWorkbook.TempPath" trong phần code sau:

'Determine Folder Where Temporary Files Are Stored
TempPath = Environ("TEMP")

'Create a Temporary XLS file (XLS in case there are macros)
On Error GoTo InvalidFileName
Set wb = ActiveWorkbook.SaveAs(ActiveWorkbook.TempPath & _
"\" & FileName & ".xls", xlExcel8)
On Error Resume Next

Phần báo lỗi phát sinh từ mục này. Xin cảm ơn.

 

[VetMini]

Workbook làm gì có thuộc tính TempPath.
Bạn cóp code kiểu này thánh cũng bó tay.

 

[xt_esq]

Workbook làm gì có thuộc tính TempPath.
Bạn cóp code kiểu này thánh cũng bó tay.

Em mới tìm hiểu phần liên quan đến xử lý file nên còn chưa hiểu. Cảm ơn anh.
Đã giúp thì giúp cho chót anh nhỉ, xin anh chỉ dẫn cụ thể nguyên nhân của lỗi này .

 

[thnghiachau]

Em mới tìm hiểu phần liên quan đến xử lý file nên còn chưa hiểu. Cảm ơn anh.
Đã giúp thì giúp cho chót anh nhỉ, xin anh chỉ dẫn cụ thể nguyên nhân của lỗi này .

đọc lại bài #4 của anh @VetMini nhá...

 

[xt_esq]

đọc lại bài #4 của anh @VetMini nhá...

Cảm ơn anh thnghiachau đã chỉ dẫn, tuy nhiên:
Trong ảnh gửi kèm TempPath đã được thay thế bằng Path ( và do yêu cầu của định dạng file Excel cần chuyển là .xlsm nên code đổi tương ứng), tuy nhiên vẫn còn lỗi. Anh có thể giải thích chi tiết được không?

 

[thnghiachau]

Cảm ơn anh thnghiachau đã chỉ dẫn, tuy nhiên:
Trong ảnh gửi kèm TempPath đã được thay thế bằng Path ( và do yêu cầu của định dạng file Excel cần chuyển là .xlsm nên code đổi tương ứng), tuy nhiên vẫn còn lỗi. Anh có thể giải thích chi tiết được không?

không thể set wb như thế này dc "Set wb = ActiveWorkbook.SaveAs(ActiveWorkbook.Path & "\" & FileName & ".xls", xlExcel8)"
chỉnh lại thènh "ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & FileName & ".xls", xlExcel8"
và cái này "Kill wb.FullName" hoàn toàn sai ah.
Bạn phải xóa cái file gốc ban đầu bằng cách gán tên file (đầy đủ path) vào biến public để kill nó.

chuyển "Dim myPath As String" ra ngoài sub và thành "Public myPath As String"
và "Kill wb.FullName" thành "Kill myPath"

 

[xt_esq]

không thể set wb như thế này dc "Set wb = ActiveWorkbook.SaveAs(ActiveWorkbook.Path & "\" & FileName & ".xls", xlExcel8)"
chỉnh lại thènh "ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & FileName & ".xls", xlExcel8"
và cái này "Kill wb.FullName" hoàn toàn sai ah.
Bạn phải xóa cái file gốc ban đầu bằng cách gán tên file (đầy đủ path) vào biến public để kill nó.

chuyển "Dim myPath As String" ra ngoài sub và thành "Public myPath As String"
và "Kill wb.FullName" thành "Kill myPath"

Cảm ơn anh thnghiachau.

Sau khi xem lại cách viết code của tác giả thì chỉ với thay đổi một chút ở phần sub, lược bỏ function không dùng đến đi thì file đã hoạt động tốt.

 

[thnghiachau]

Cảm ơn anh thnghiachau.

Sau khi xem lại cách viết code của tác giả thì chỉ với thay đổi một chút ở phần sub, lược bỏ function không dùng đến đi thì file đã hoạt động tốt.


View attachment 241056

mình xin nhắc lại câu cùa bác @VetMini nhá "Bạn lấy code ở nơi nào thì vào đó mà hỏi.Code diễn đàn này đem hỏi diễn đàn khác là kém lịch sự."