Chuyển file hàng loạt file Excel sang PDF với điều kiện không lấy sheet Chart1

[Hoàng Trọng Hữu]

Chào anh chị,

Em có đoạn code chuyển hàng Loạt file Excel sang PDF đã tương đối,
Nhưng giờ em lấy các sheet trừ sheet chart1 của từng file Excel

Mà em nghiên cứu hoài không ra.

Nhờ mọi người coi giúp em ạ,

Trân trọng!

Sub chuyendoipdf()
Dim Fso As New Scripting.FileSystemObject
Dim FolderRef As Folder
Dim FileRef As File
Dim wb As Workbook
Dim ExcelPath As String
Dim PdfPath As String



Application.ScreenUpdating = False
With ThisWorkbook.Sheets(1)
ExcelPath = .Range("B4").Value
PdfPath = .Range("B5").Value

Set FolderRef = Fso.Getfolder(ExcelPath)
For Each FileRef In FolderRef.Files
On Error Resume Next
  Set wb = Workbooks.Open(FileRef.Path, UpdateLinks:=False)
 
  wb.ExportAsFixedFormat xlTypePDF, PdfPath & "\" & FileRef.Name
  
  
  wb.Close SaveChanges:=True
 
  Next FileRef
 
End With
On Error GoTo 0

Application.ScreenUpdating = True


End Sub

 

[Hoàng Trọng Hữu]

Ko ai cứu em hết ạ, hix

 

[quick87]

Bạn thử thêm dòng này rồi chạy lại nhé:

Sub chuyendoipdf()
Dim Fso As New Scripting.FileSystemObject
Dim FolderRef As Folder
Dim FileRef As File
Dim wb As Workbook
Dim ExcelPath As String
Dim PdfPath As String



Application.ScreenUpdating = False
With ThisWorkbook.Sheets(1)
ExcelPath = .Range("B4").Value
PdfPath = .Range("B5").Value

Set FolderRef = Fso.Getfolder(ExcelPath)
For Each FileRef In FolderRef.Files
On Error Resume Next
  Set wb = Workbooks.Open(FileRef.Path, UpdateLinks:=False)
 
  'wb.ExportAsFixedFormat xlTypePDF, PdfPath & "\" & FileRef.Name
  wb.Sheets("Sheet1").ExportAsFixedFormat xlTypePDF, PdfPath & "\" & FileRef.Name
 
 
  wb.Close SaveChanges:=True
 
  Next FileRef
 
End With
On Error GoTo 0

Application.ScreenUpdating = True


End Sub

 

[Hoàng Trọng Hữu]

Bạn thử thêm dòng này rồi chạy lại nhé:

Cám ơn bạn rất nhiều ạ

Đoạn code: wb.Sheets("Sheet1").ExportAsFixedFormat xlTypePDF, PdfPath & "\" & FileRef.Name

Thêm cái sheets("Sheet1") mà mò ko ra. Bó tay em luôn