Lưu tự động dữ liệu Excel thành PDF

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:ExportsPDF" & SoSeri & ".pdf"
    Next
End Sub

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

www.giaiphapexcel.com/diendan/threads/l%C6%B0u-t%E1%BB%B1-%C4%91%E1%BB%99ng-d%E1%BB%AF-li%E1%BB%87u-excel-th%C3%A0nh-pdf.163707/post-1092124

Khóa học SprinGO phù hợp

Khoá học Trưởng phòng nhân sự

Nguồn nhân lực là một trong Tứ trụ kinh doanh của doanh nghiệp, có tác động tới sự tồn tại và phát triển bền...

Xem khóa học