🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
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
19 Şubat 2010, 17:00
Benzer Konular 
Hybrid-Şeklinde
