TXT olarak kayıt, Aynısı Varsa Farklı Kaydet

[SAGULNET]

Bu kod txt kaydediyor. aynısı varsa üzerine yazıyor. Benim isteğim üzerine yazmasın uyarı versin üzerine yazayımmı yaz dersem yazsın. demezsem yine input ekranı geri gelsin yada hiç kaydetmesin.

Sub KAYDET_KPPT()
Dim i, sat As Integer
a = InputBox("Dosya Adını Giriniz. Bu isimden dosya varsa üzerine yazılır.", "Kamuproplus")
sat = ActiveSheet.UsedRange.Rows.Count
Open ThisWorkbook.Path & "\" & a & ".kppt" For Output As #1
    For i = 1 To sat
        Print #1, Cells(i, "a")
    Next i
Close

End Sub

 

[halit3]

kod:

Sub KAYDET_KPPT()
Dim i, sat As Integer
a = InputBox("Dosya Adını Giriniz. Bu isimden dosya varsa üzerine yazılır.", "Kamuproplus")
sat = ActiveSheet.UsedRange.Rows.Count
Dosya_adi = ThisWorkbook.Path & "\" & a & ".kppt"
If CreateObject("Scripting.FileSystemObject").FileExists(Dosya_adi) = True Then
MsgBox Dosya_adi & Chr(10) & "Bu isimde dosya var."
Else
Open Dosya_adi For Output As #1
For i = 1 To sat
Print #1, Cells(i, "a")
Next i
Close
End If
End Sub

 

[SAGULNET]

kod:

Sub KAYDET_KPPT()
Dim i, sat As Integer
a = InputBox("Dosya Adını Giriniz. Bu isimden dosya varsa üzerine yazılır.", "Kamuproplus")
sat = ActiveSheet.UsedRange.Rows.Count
Dosya_adi = ThisWorkbook.Path & "\" & a & ".kppt"
If CreateObject("Scripting.FileSystemObject").FileExists(Dosya_adi) = True Then
MsgBox Dosya_adi & Chr(10) & "Bu isimde dosya var."
Else
Open Dosya_adi For Output As #1
For i = 1 To sat
Print #1, Cells(i, "a")
Next i
Close
End If
End Sub

Mükemmelsin ya. Çok teşekkür ederim.

 

[halit3]

Mükemmelsin ya. Çok teşekkür ederim.

İyi çalışmalar