Code xuất pdf lưu ra tên theo thời gian

[vova2209]

Chào anh chị!
em muốn xuất ra file PDF lưu file ra đánh tên theo thời gian
VD: xuất ra lúc 9h 10p 10s >> 9-10-10.pdf
anh chị sửa giúp em đoạn code dưới. em xin cảm ơn

Sub In_MaChonLoc_PDF_CD()
Dim sRng As Range, Rng_In As Range
Dim ws As Worksheet

On Error GoTo Thoat
ActiveSheet.DisplayPageBreaks = False
Set sRng = Application.InputBox(Prompt:="Chon Du lieu IN (PDF Phu luc CD)", Title:="Vung Data", Type:=8)
For Each Rng_In In sRng
Set ws = ActiveSheet
With ws
If Rng_In = 0 Then GoTo DiTiep
.Range("AZ1").value = Rng_In.value
Call HidedongProCD
.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Range("AZ1")
ActiveSheet.DisplayPageBreaks = False
End With
DiTiep:
Next Rng_In
Thoat:
End Sub

 

[befaint]

'AZ1 = 'Vova'
.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Range("AZ1").value & vba.format$(Now(), "h-m-s") & ".pdf"

 

[vova2209]

'AZ1 = 'Vova'
.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Range("AZ1").value & vba.format$(Now(), "h-m-s") & ".pdf"

vâng! được rồi anh ạ. em cảm ơn anh.

 

[VetMini]

'AZ1 = 'Vova'
.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Range("AZ1").value & vba.format$(Now(), "h-m-s") & ".pdf"

"hh-mm-ss" chứ.
"h-m-s" sẽ cho ra chuỗi so le và hơi khó sort.

 

[vova2209]

"hh-mm-ss" chứ.
"h-m-s" sẽ cho ra chuỗi so le và hơi khó sort.

vâng! em chỉnh hh-mm-ss rồi, em xuất ra để nối pdf không hiểu sao cái phần mềm nối lại không theo thứ tự. đổi thành 1.2.3.4.5... làm như nào anh nhỉ