Lưu tự động dữ liệu Excel thành PDF (1 người xem)

[Juki Pham]

Em có dữ liệu, ở sheet capnhat, khi nhập từ lệnh số ở ô C1 và đến lệnh số ô E1, chọn nút lưu pdf thì sẽ tự động lưu sheet lenhdieu1 thành từng file pdf theo tên ô C1 đến ô E1. Xin anh chị giúp đỡ hướng dẫn em viết code, em cám ơn ạ.

 

[befaint]

hướng dẫn

Bạn gõ vào Google: #PrintExportPDF là thấy.

 

[UltraExcel]

Em có dữ liệu, ở sheet capnhat, khi nhập từ lệnh số ở ô C1 và đến lệnh số ô E1, chọn nút lưu pdf thì sẽ tự động lưu sheet lenhdieu1 thành từng file pdf theo tên ô C1 đến ô E1. Xin anh chị giúp đỡ hướng dẫn em viết code, em cám ơn ạ.

Mình lấy code bạn đã làm ở nút In và sửa để xuất PDF

Sub XuatPDF()
    Dim nStart As Integer
    Dim nEnd As Integer
    Dim ws, Worksheet As Worksheet
    Set ws = Worksheets("capnhat")
    Set Worksheet = Worksheets("lenhdieu1")
    nStart = ws.Range("c1").Value
    nEnd = ws.Range("e1").Value
  
    If nStart = 0 Or nEnd = 0 Then
        MsgBox "Ban chua ghi STT", , "Thong Bao"
        Exit Sub
   End If
    If nStar > nEnd Then
        MsgBox "So truoc khong duoc lon hon so sau", , "Thong Bao"
        Exit Sub
    End If
    Worksheet.Select
    For i = nStart To nEnd
        SoSeri = i
        Worksheet.Range("a4").Value = SoSeri
        Worksheet.ExportAsFixedFormat xlTypePDF, "C:\Exports\PDF\" & SoSeri & ".pdf"
    Next
End Sub

Bạn tự sửa lại đường dẫn "C:\Exports\PDF" theo đúng cái bạn cần nhé. MÌnh chưa test.

 

[Juki Pham]

Mình lấy code bạn đã làm ở nút In và sửa để xuất PDF

Sub XuatPDF()
    Dim nStart As Integer
    Dim nEnd As Integer
    Dim ws, Worksheet As Worksheet
    Set ws = Worksheets("capnhat")
    Set Worksheet = Worksheets("lenhdieu1")
    nStart = ws.Range("c1").Value
    nEnd = ws.Range("e1").Value
 
    If nStart = 0 Or nEnd = 0 Then
        MsgBox "Ban chua ghi STT", , "Thong Bao"
        Exit Sub
   End If
    If nStar > nEnd Then
        MsgBox "So truoc khong duoc lon hon so sau", , "Thong Bao"
        Exit Sub
    End If
    Worksheet.Select
    For i = nStart To nEnd
        SoSeri = i
        Worksheet.Range("a4").Value = SoSeri
        Worksheet.ExportAsFixedFormat xlTypePDF, "C:\Exports\PDF\" & SoSeri & ".pdf"
    Next
End Sub

Bạn tự sửa lại đường dẫn "C:\Exports\PDF" theo đúng cái bạn cần nhé. MÌnh chưa test.

Dạ để em thử, do bữa giờ bận quá em chưa làm lại nữa, cám ơn ạ