Giúp đỡ - Code in hàng loạt sheet trong các file Excel khác nhau.

[sinhthanh1984]

Em có một Thư mục Học bạ, trong Thư mục này chứa khoảng 40 tệp Excel. Trong mỗi tệp Excel đều có cấu trúc giống nhau. Bao gồm 6 sheet: “Trang điểm”, “Thông tin chung”, “6A2”, “7A2”, “8A2”, “9A2”. Em muốn nhờ các anh chị giúp em đoạn code để có thể in hết sheet “9A2” ở tất cả các File Excel trong Folder này.

 

[sinhthanh1984]

Mong anh chị giúp đỡ mình với.

 

[curet]

Bạn đổi lại tên từ 1-9 thành 01-09 rồi dùng code mình sưu tầm trên diễn đàn này xem thử. Lưu ý file chứa code phải nằm trong thư mục cần in nhé

Public Sub GPE(TMCha As String, DQ As Boolean)
Dim fFolder As Object, fFile As Object
With CreateObject("Scripting.FileSystemObject")
    For Each fFile In .GetFolder(TMCha).Files
        If .GetExtensionName(fFile) Like "xls*" Then
            If Left(fFile.Name, 1) <> "~" And fFile.Name <> ThisWorkbook.Name Then
            Application.DisplayAlerts = False
                With Workbooks.Open(fFile)
                    .Sheets("9A2").PrintOut
                    '.ActiveSheet.PrintOut
                    .Close False
                End With
            Application.DisplayAlerts = True
            End If
        End If
    Next
    If DQ Then
        For Each fFolder In .GetFolder(TMCha).subFolders
            GPE fFolder.Path, True
        Next
    End If
End With
End Sub

Public Sub InAll()
Dim Path As String
Path = ThisWorkbook.Path
    GPE Path, True
End Sub

 

[sinhthanh1984]

Bạn đổi lại tên từ 1-9 thành 01-09 rồi dùng code mình sưu tầm trên diễn đàn này xem thử. Lưu ý file chứa code phải nằm trong thư mục cần in nhé

Public Sub GPE(TMCha As String, DQ As Boolean)
Dim fFolder As Object, fFile As Object
With CreateObject("Scripting.FileSystemObject")
    For Each fFile In .GetFolder(TMCha).Files
        If .GetExtensionName(fFile) Like "xls*" Then
            If Left(fFile.Name, 1) <> "~" And fFile.Name <> ThisWorkbook.Name Then
            Application.DisplayAlerts = False
                With Workbooks.Open(fFile)
                    .Sheets("9A2").PrintOut
                    '.ActiveSheet.PrintOut
                    .Close False
                End With
            Application.DisplayAlerts = True
            End If
        End If
    Next
    If DQ Then
        For Each fFolder In .GetFolder(TMCha).subFolders
            GPE fFolder.Path, True
        Next
    End If
End With
End Sub

Public Sub InAll()
Dim Path As String
Path = ThisWorkbook.Path
    GPE Path, True
End Sub

Cảm ơn bạn nhưng cho mình hỏiCode để ở File nào bạn? Có cách nào để tên mặc định mà vẫn in được không bạn?