Export những sheet được chọn sang pdf (1 người xem)

[diemngoc.ts]

Hi all,

Mình thử một đoạn code để có thể xuất tất cả các sheet có tên khác tên là "Name" và "Dia chi" sang PDF như bên dưới, nhưng lại gặp lỗi 400, mong mọi người giúp đỡ ạ. Cảm ơn mọi người.

Sub Print_Report()
Dim Sh As Worksheet, Check As Boolean
Check = True
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Name" And (Sh.Name <> "Dia chi) Then Sh.Select Check: Check = False
Next
MsgBox ActiveWindow.SelectedSheets.Count
If Sh Then
Sh.ExportAsFixedFormat xlTypePDF, ThisWorkbook.FullName
End If

End Sub

 

[giaiphap]

Hi all,

Mình thử một đoạn code để có thể xuất tất cả các sheet có tên khác tên là "Name" và "Dia chi" sang PDF như bên dưới, nhưng lại gặp lỗi 400, mong mọi người giúp đỡ ạ. Cảm ơn mọi người.

Sub Print_Report()
Dim Sh As Worksheet, Check As Boolean
Check = True
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Name" And (Sh.Name <> "Dia chi) Then Sh.Select Check: Check = False
Next
MsgBox ActiveWindow.SelectedSheets.Count
If Sh Then
Sh.ExportAsFixedFormat xlTypePDF, ThisWorkbook.FullName
End If

End Sub

Thử lại code này.

Sub Print_Report()
Dim Sh As Worksheet, Check As Boolean
Check = True
For Each Sh In ThisWorkbook.Worksheets
    If (Sh.Name <> "Name") And (Sh.Name <> "Dia chi") Then
        Sh.Select Check: Check = False
    End If
Next

If Not Check Then
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\GPE.pdf"
    MsgBox "Da thuc hien xong"
End If
End Sub

 

[diemngoc.ts]

Cảm ơn bạn đã pản hồi,

Nhưng mình chạy code vẫn báo lỗi như thế này, bạn có thể giúp mình fix được không. Cảm ơn bạn.

 

[BuiQuangThuan]

,.....,...............

 

[Mutants Men]

Cảm ơn bạn đã pản hồi,

Nhưng mình chạy code vẫn báo lỗi như thế này, bạn có thể giúp mình fix được không. Cảm ơn bạn.
View attachment 269873
View attachment 269874

thử này xem sao bạn

Sub Print_Report()
Dim Sh As Worksheet, Check As Boolean
Check = True
For Each Sh In ActiveWorkbook.Worksheets
    If (Sh.Name <> "Name") And (Sh.Name <> "Dia chi") Then
        Sh.Select Check: Check = False
    End If
Next

If Not Check Then
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=ThisWorkbook.path & "\GPE.pdf"
    MsgBox "Da thuc hien xong"
End If
End Sub

 

[diemngoc.ts]

Cảm ơn hai bạn đã giúp, nhưng sao mình vẫn bị lỗi ở chỗ Sh.Select (dù có xóa hay không xóa chứ Check)nhỉ, mặc dù tất cả các sheet khác tên "Name" và "Dia chi" đã được chọn, nhưng không export được.

 

[befaint]

if sh.Visible=xlSheetVisible then
Sh.Select Check: Check = False
end if

 

[diemngoc.ts]

if sh.Visible=xlSheetVisible then
Sh.Select Check: Check = False
end if

Thanks bạn mình làm theo bạn và đã thành công.

Mọi người cho mình hỏi thêm: làm sao để mình lấy tên file pdf được export ra là tên của file excel nhỉ?

 

[Mutants Men]

Thanks bạn mình làm theo bạn và đã thành công.

Mọi người cho mình hỏi thêm: làm sao để mình lấy tên file pdf được export ra là tên của file excel nhỉ?

activeworkbook.name đó bạn

 

[diemngoc.ts]

activeworkbook.name đó bạn

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & ActiveWorkbook.Name
MsgBox "Done!!!"
Mình thêm vào nhưng không in ra tên file được, bạn có thể hướng dẫn thêm cho mình không?

 

[BuiQuangThuan]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & ActiveWorkbook.Name
MsgBox "Done!!!"
Mình thêm vào nhưng không in ra tên file được, bạn có thể hướng dẫn thêm cho mình không?

Thử code này coi:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path &"\" & ActiveWorkbook.Name & ".pdf"

 

[diemngoc.ts]

Cảm ơn mọi người rất nhiều. Mình đã làm được rồi ạ.

 

[Mutants Men]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & ActiveWorkbook.Name
MsgBox "Done!!!"
Mình thêm vào nhưng không in ra tên file được, bạn có thể hướng dẫn thêm cho mình không?

đây bạn nhé

ThisWorkbook.Path & "\" & left(ThisWorkbook.Name,instr(1,ThisWorkbook.Name,".")-1)

đâu phải người ta cho cái gì ráp vô cũng đúng đâu.
code này

ThisWorkbook.Name

nó ra kết quả là <tên file>.<đuôi mở rộng>, cần cắt bỏ cái đuôi mở rộng đó, không cần &".PDF" ở phía sau nữa , cái này

Type:=xlTypePDF

nó đã định dạng file là pdf rồi