In tất cả các file trong cùng 1 thư mục (1 người xem)

[Emyeuexcel]

Chào anh chị em GPE,

Mình vô tình tìm thấy đoạn code sau để in nhiều file trong 1 thư mục, nhưng sao chạy code nó không in, và không báo gì
Mong anh chị em giúp mình sửa sao ah.
Rất cảm ơn anh chị!

Sub ListFilesInFolder()
Dim folderPath As String
Dim fileName As String
Dim fso As Object
Dim folder As Object
Dim file As Object


folderPath = "D:\TAM\IN\"

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FolderExists(folderPath) Then
Set folder = fso.GetFolder(folderPath)

For Each file In folder.Files
Debug.Print file.Name
Next file
Else
MsgBox "Folder does not exist!", vbExclamation
End If

Set file = Nothing
Set folder = Nothing
Set fso = Nothing
End Sub

 

[VetMini]

Công nhận quý vị làm việc đã thật.
Chi phí giấy mực in và khấu hao máy in được hạch toán vào đâu nhỉ?

 

[minhminh27]

câu lệnh "Debug.Print file.Name" này có phải để in đâu bạn.
mà dùng để xem trong cửa sổ immediate thôi.
Trong folder bạn muốn in thì các file trong đó là file gì, word, excel,...?
Mỗi 1 loại file cần 1 câu lệnh in khác nhau đó.