Yedekleme makrosunda hata

Katılım
20 Ekim 2005
Mesajlar
476
önceden office 2000 kullanırken dosyamı aşağıdaki kodlarla hatasıs bir şekilde yedekliyordum.

Private Sub CommandButton2_Click()
DizinAdi = "C:\Demirbaş\DemirbaşYedekleri"
CreateDirectoryEx "C:\Windows", DizinAdi, ByVal 0
cevap = MsgBox("C:\Demirbaş\DemirbaşYedekleri Klasörüne Yedeklenecektir. " & yedekyolu & " Devam etmek istiyor musunuz..?", vbYesNo, "Yedek Alma...")
If cevap = vbNo Then
ElseIf cevap = vbCancel Then
Exit Sub
GoTo son
End If
Application.StatusBar = " Belgeniz: C:\DemirbaşYedekleri\Demirbaş Yedek-" & Date & " olarak kaydediliyor... Lutfen Bekleyiniz..!"
dosyaadi = "c:\Demirbaş\DemirbaşYedekleri\Demirbaş Yedek-" & Str(Date)
ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"
son:
End Sub

ama şimdi office 2003 kullanmaya başlayandan beri

ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"

satırında hata veriyor ve yedekleme yapmıyor. sebebini çözemedim
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
CreateDirectoryEx "C:\Windows", DizinAdi, ByVal 0

yukarıdaki satırı komple silin.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Kodların en üstündeki api tanımlamalarınıda silin. (Bu işlem için api kullanmaya hiç gerek yok)
 
Üst