เราเซฟไฟล์ pdf โดยให้เช็คไม่ซ้ำไฟล์เดิมได้มั้ยครับ

[tulkavin]

จากตามไฟล์แนบ ถ้าเราเซฟโดยกดปุ่มที่ Save PDF จะทำการเซฟเป็น pdf ให้ ทีนี้ในกรณีที่มีไฟล์เดิมอยู่แล้วจะทำการเซฟทับเลย

ตรงนี้ถ้าผมต้องการให้โปรแกรมเตือนว่ามีไฟล์เดิมชื่อเดียวกันอยู่ ไม่ทราบต้องทำอย่างไรร่อครับ

[snasui]

ตัวอยา่งการปรับ Code ครับ

Code: Select all

'Other code
If FileSaveName = "" Then
    MsgBox ("No filename , No Save")
Else
    Dim TitleForSave As String
    TitleForSave = "  Save as  " & FileSaveName & ".PDF" & Chr(13) + "  ·Õèá¿éÁ " & path  ' Chr(13) +  =is new row
    Dim iRet As Integer
    iRet = MsgBox(TitleForSave, vbYesNo, "Save PDF file at...")
    If iRet = vbNo Then
    
    Else
        Dim cf As Integer
        If Dir(path & "\" & FileSaveName & ".pdf") <> "" Then
            cf = MsgBox("This file is exists. Confirm to replace?", vbYesNo)
            If cf = vbNo Then Exit Sub
        End If
        Application.ActiveSheet.ExportAsFixedFormat Filename:=path & "\" & FileSaveName, _
            Type:=xlTypePDF
        MsgBox "Save PDF file complete"
    End If
End If
'Other code