Code Convert File Excel Sang PDF (1 người xem)

[letinnghia]

Chào Cả Nhà GPE!
Mình có 1 file excel muốn chuyển vùng dữ liệu từ A1:I30 sang PDF. vị trí lưu file chung với vị trí file excel, tên file giống với tên file excel và thêm"_2016"
VD: Quan ly_2016(Convert năm 2016)
nếu Convert năm 2017 sẽ là Quan ly_2017
tương tư như vạy cho năm 2018,2019.......
chân thành cảm ơn.

 

[giaiphap]

Chào Cả Nhà GPE!
Mình có 1 file excel muốn chuyển vùng dữ liệu từ A1:I30 sang PDF. vị trí lưu file chung với vị trí file excel, tên file giống với tên file excel và thêm"_2016"
VD: Quan ly_2016(Convert năm 2016)
nếu Convert năm 2017 sẽ là Quan ly_2017
tương tư như vạy cho năm 2018,2019.......
chân thành cảm ơn.

Giữa câu hỏi và file của bạn hơi bị khác nhau. Bạn có thể tham khảo code này và ứng dụng vào file của bạn.

Sub AttachActiveSheetPDF()
  Dim IsCreated As Boolean
  Dim i As Long
  Dim PdfFile As String, Title As String
 
  ' Define PDF filename
  PdfFile = ActiveWorkbook.FullName
  i = InStrRev(PdfFile, ".")
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = PdfFile & "_" & ActiveSheet.Name & ".pdf"
 
  ' Export activesheet as PDF
  With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With
 
End Sub

 

[letinnghia]

Giữa câu hỏi và file của bạn hơi bị khác nhau. Bạn có thể tham khảo code này và ứng dụng vào file của bạn.

Sub AttachActiveSheetPDF()
  Dim IsCreated As Boolean
  Dim i As Long
  Dim PdfFile As String, Title As String
 
  ' Define PDF filename
  PdfFile = ActiveWorkbook.FullName
  i = InStrRev(PdfFile, ".")
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = PdfFile & "_" & ActiveSheet.Name & ".pdf"
 
  ' Export activesheet as PDF
  With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With
 
End Sub

Cảm ơn bạn mình đã làm được rồi. nhưng tên file Export ra chưa đúng bạn ơi, bạn chỉnh tên PDF gồm có: tên file và ngày tháng năm export như mình ví dụ vậy
VD: Quan ly_20160417(lấy theo ngày tháng năm của hệ thống)
Nếu Export file trùng tên thì thay thế luôn.
Cảm ơn bạn

 

[giaiphap]

Cảm ơn bạn mình đã làm được rồi. nhưng tên file Export ra chưa đúng bạn ơi, bạn chỉnh tên PDF gồm có: tên file và ngày tháng năm export như mình ví dụ vậy
VD: Quan ly_20160417(lấy theo ngày tháng năm của hệ thống)
Nếu Export file trùng tên thì thay thế luôn.
Cảm ơn bạn

Mình tính bạn tự mò ra được, vậy bạn thay bằng code này.

Sub AttachActiveSheetPDF()
  Dim IsCreated As Boolean
  Dim i As Long
  Dim PdfFile As String, Title As String
 Title = Left(Now(), 10)
 Title = Right(Title, 4) & Mid(Title, 4, 2) & Left(Title, 2)


  ' Define PDF filename
  PdfFile = ActiveWorkbook.FullName
  i = InStrRev(PdfFile, ".")
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = PdfFile & "_" & Title & ".pdf"
 
  ' Export activesheet as PDF
  With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With 
End Sub

 

[letinnghia]

Mình tính bạn tự mò ra được, vậy bạn thay bằng code này.

Sub AttachActiveSheetPDF()
  Dim IsCreated As Boolean
  Dim i As Long
  Dim PdfFile As String, Title As String
 Title = Left(Now(), 10)
 Title = Right(Title, 4) & Mid(Title, 4, 2) & Left(Title, 2)


  ' Define PDF filename
  PdfFile = ActiveWorkbook.FullName
  i = InStrRev(PdfFile, ".")
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = PdfFile & "_" & Title & ".pdf"
 
  ' Export activesheet as PDF
  With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With 
End Sub

Cảm ơn bạn, Export ra PDF vẫn chưa đầy đủ tên file.
Tên file hiện tại mới được như vầy nè: Quan ly_
Mình thêm code vào như sau: PdfFile = PdfFile & "_" & Format(Now, "ddmmyyyy") & ".pdf" thì tên file khi Export ra là: Quan Ly_17042016. Kết quả đã đúng nhu ý mình rồi.
Cảm ơn bạn nhé.

 

[giaiphap]

Cảm ơn bạn, Export ra PDF vẫn chưa đầy đủ tên file.
Tên file hiện tại mới được như vầy nè: Quan ly_
Mình thêm code vào như sau: PdfFile = PdfFile & "_" & Format(Now, "ddmmyyyy") & ".pdf" thì tên file khi Export ra là: Quan Ly_17042016. Kết quả đã đúng nhu ý mình rồi.
Cảm ơn bạn nhé.

Ồ thì ra là vậy! Bạn đang mâu thuẫn giữa #3 và #5 ở chổ tên file. Ở bài 3 tên file là VD: Quan ly_20160417(lấy theo ngày tháng năm của hệ thống), còn ở bài 5 tên file lại là Quan Ly_17042016 dễ gây hiểu nhầm quá.