In tất cả các file excel trong 1 folder

[kirillivan]

Chào các bạn,
Mình cần in 2 trang đầu (in 2 mặt) của tất cả file excel đuôi .xls trong 1 folder.
Bạn PIC trước đó có xây dựng code VbA để in 1 trang đầu của tất cả file excel đuôi .xls trong 1 folder.
Nhưng không hiểu sau giờ VBA tự nhiên lại bị lỗi và không chạy được.

Nhờ các bạn xem giúp mình module này bị sai ở đâu và nếu được thì sửa lại để có thể in 2 trang (in 2 mặt) giúp mình.

Note: khi ấn debug thì VBA báo lỗi ở dòng
FileName = Dir(Path, vbNormal)

Note2: Mình ghi thêm link folder và form dạng tên file để các bạn dễ hình dung:
Folder: C:\Users\Admin\Desktop\tk\e62
Tên file theo dạng: 186_304639804100

Sub In_TK()
Dim wb, Twb As Workbook, ws As Worksheet
Dim FileName As String, Path As String
Set wb = ActiveWorkbook
Set ws = ActiveSheet
Set Twb = ThisWorkbook

On Error Resume Next
Dim strName As String
strName = InputBox("NHAP link file", "link file")
On Error GoTo 0
If strName = "" Then
MsgBox ("Blank")
Exit Sub
End If
Path = strName & "\*.xls"

FileName = Dir(Path, vbNormal)
Application.DisplayAlerts = False
Do Until FileName = ""
Workbooks.Open Left(Path, Len(Path) - 5) & FileName
Set wb = ActiveWorkbook
For Each ws In wb.Worksheets
ws.PrintOut From:=1, To:=1
Next

wb.Close
FileName = Dir()
Loop
Application.DisplayAlerts = True
End Sub

 

[befaint]

Code không làm sao cả.

Lỗi như thế mới chừa thói đặt tên File, tên Folder là chữ có dấu. hí hí

 

[kirillivan]

Code không làm sao cả.

Lỗi như thế mới chừa thói đặt tên File, tên Folder là chữ có dấu. hí hí

ủa, nhưng folder và file của mình ko có chữ có dấu.
Tên Folder C:\Users\Admin\Desktop\tk\e62
Tên file theo dạng 186_304639804100

 

[befaint]

ủa, nhưng folder và file của mình ko có chữ có dấu.
Tên Folder C:\Users\Admin\Desktop\tk\e62
Tên file theo dạng 186_304639804100

Ca ô có chữ có dấu thì đúng rồi còn gì nữa.

Mà có ai nhìn thấy cái folder đó đâu bạn? Làm thế nào để mọi người nhìn xuyên qua không gian tới màn hình máy tính của bạn nhỉ?

 

[kirillivan]

Ca ô có chữ có dấu thì đúng rồi còn gì nữa.

Mà có ai nhìn thấy cái folder đó đâu bạn? Làm thế nào để mọi người nhìn xuyên qua không gian tới màn hình máy tính của bạn nhỉ?

Xin lỗi vì mình đã viết tắt, ý mình là tên folder và tên file của mình không có dấu hay ký hiệu lạ gì cả.
mình có chụp lại ảnh folder của mình, nó chỉ có 43 file excel thôi, không có gì khác.

Mình gửi thêm ảnh chụp báo lỗi.

Trước đó mình có cố thử tìm các ví dụ tương tự trên GPE, nhưng mình vẫn không tìm được ra là lỗi gì.
Các câu lệnh trong file khá giống với các ví dụ tương tự.
Vì mình không biết gì nhiều về VBA, nên không chắc lỗi xảy ra ở đâu.

Ngoài ra, mình đang dùng excel 2016, windows 10.

 

[befaint]

Vì mình không biết gì nhiều về VBA, nên không chắc lỗi xảy ra ở đâu.

Có sheet không có dữ liệu gì nên không in được.

Bạn tìm và xóa bỏ dòng này đi là được.

On Error GoTo 0

 

[kirillivan]

Cảm ơn bạn, mình đã fix được theo hướng dẫn của bạn.