Arkadaşlar ben aşağıdaki vba kodlarını kullanarak yaptığım excel çalışmamı ağ üzerindeki başka bir bilgisayarda bulunan paylaşıma açılmış yedekleme adlı klasöre kopyalamak suretiyle her kayıtta yedekleme alıyorum.Tabi bunun için ağdaki diğer bilgisayarda yedekleme klasörünü ağ sürücüsü olarak (z:\yedekleme) tanıtıyorum.Her iki bilgisayarda açıkken gayet güzel çalışıyor.Ama ağdaki bilgisayar kapatılıp yeniden açıldığında bağlantı kurulamıyor ve hata veriyor.Yeniden ağ sürücüsü tanıtılınca sorun çözülüyor.
Benim sorum bir buton aracılığı ile ağ sürücüsü bağlantısı oluşturabilirmiyim.Eğer oluşturulabilirse önce bu butonu sonra yedekleme butonunu kullanarak sanırım sorunumu çözebilirim.
Şimdiden teşekkürler.
KODLAMA :
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Dosya_Adı = Format(Now(), "dd.mm.yyyy - hh.mm.ss") & ".xls"
ActiveWorkbook.SaveAs Filename:="z:\yedekleme" & Application.PathSeparator & Dosya_Adı
Application.Quit
CreateObject("WScript.Shell").Popup _
" Dosyanız Başarıyla Kaydedildi " & vbCrLf & " Aynı Zamanda " & vbCrLf & " Yedekleme İşlemide Yapıldı ", 4, " BİLGİLENDİRME ", vbInformation
End Sub
Benim sorum bir buton aracılığı ile ağ sürücüsü bağlantısı oluşturabilirmiyim.Eğer oluşturulabilirse önce bu butonu sonra yedekleme butonunu kullanarak sanırım sorunumu çözebilirim.
Şimdiden teşekkürler.
KODLAMA :
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Dosya_Adı = Format(Now(), "dd.mm.yyyy - hh.mm.ss") & ".xls"
ActiveWorkbook.SaveAs Filename:="z:\yedekleme" & Application.PathSeparator & Dosya_Adı
Application.Quit
CreateObject("WScript.Shell").Popup _
" Dosyanız Başarıyla Kaydedildi " & vbCrLf & " Aynı Zamanda " & vbCrLf & " Yedekleme İşlemide Yapıldı ", 4, " BİLGİLENDİRME ", vbInformation
End Sub
