Veri yedekleme

[ridvan2111]

selam arkadaşlar şöyle bir sorum olacak
excel vba ile veri yedeklemesi yapılabilirmi?
örneğin aşağıda verdiyim dosya ve klasör adreslerinden kopyalayarak
harici disk F:\yedekler klasörüne yapıştıracak
yada F:\yedekler klasörü içine bugün tarihli klasör oluşturarak buraya yapıştıracak.


C:\Documents and Settings\xkullanıcı\Desktop\ÖRNEK(1).xls
C:\Documents and Settings\xkullanıcı\Desktop\ÖRNEK(2).xls
C:\Documents and Settings\xkullanıcı\Desktop\ÖRNEK(3).xls
C:\Documents and Settings\xkullanıcı\Desktop\Yeni Klasör
D:\archiv
D:\yedekler
C:\Program Files\ssag\EmStudio\Data\Jobs

 

[janveljan]

Aşağıdaki linkte işinize yarayacak bilgiler mevcut.
http://www.excel.web.tr/f60/file-system-object-t4488.html

 

[Erhan Köseoğlu]

Sayın janveljan,
Yukarıdaki linkte bulunan kodları çalıştırmak için izlenecek yolnasıl acaba, örneğin klasör aç kodunu bir commandbuttona mı macro olarak atayacağız.

 

[janveljan]

Önemli olan kodları yazmak. Kodları yazdıktan sonra kodların ne zaman çalışacağına karar vermek kolay. İster sadece makro olarak yazarsınız, makrolar menüsünden direk çalıştırırsınız, isterseniz sayfaya bir buton veya şekil ekleyip makroyu ona atarsınız, isterseniz form oluşturup form kontrollerinin olaylarına atarsınız, yada sayfanın olaylarına atarsınız. Bu konuda seçenek çok anlıyacağınız. Bence önce makrolar menüsünden direk çağırmakla başlayın, müteakiben yavaş yavaş diğer yöntemleri denersiniz.

 

[Erhan Köseoğlu]

tam olarak anlayamadım

 

[ridvan2111]

http://www.excel.web.tr/f60/file-system-object-t4488.html
2) Aşağıdaki kodlar ile adı geçen klasördeki tüm Excel dosyalarını SXS klasörüne kopyalıyoruz:


bedersu arkadaşın forma genel olarak yazdığı bu kod
"D:\Excelörnekleri\*.xls" yanlız xls dosyalarını kopyalıyor peki tüm dosyaları nasıl kopyalar?

Sub Dosya_Kopyala()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile "D:\Excelörnekleri\*.xls", "C:\SXS"
End Sub

 

[ridvan2111]

şimdi aklıma geldi aşağıdaki şekilde olacak
bedersu arkadaşa teşekkürler

ds.CopyFile "D:\Excelörnekleri\*.*", "C:\SXS"

peki sorumu şöyle değiştireyim

"C:\SXS" yerine excelde a1 hücresinden klasör ismi alabilirmi