Kaydet butonu'nu ''button1'' olarak varsayalım
Kaydet butonu'nun click yordamına;
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
Private Sub button1_Click()
Dim Workbook1 As Workbook
Dim i As Integer
Dim FileName As String
Set Workbook1 = Workbooks.Add(Template:=ThisWorkbook.Path & "\book1.txt")
i = 0
Do
i = i + 1
FileName = ThisWorkbook.Path & "\book1.txt" & i & ".txt"
Loop While FileExists(FileName)
Workbook1.SaveAs FileName:=FileName