- Katılım
- 5 Aralık 2007
- Mesajlar
- 635
- Excel Vers. ve Dili
- Office 2007
- Altın Üyelik Bitiş Tarihi
- 08-05-2021
Merhaba, Aşağıdaki kodla, APARTMAN klasörü içindeki bütün dosyaları YEDEK klasörü içine kopyalıyorum. Ancak dosya adı belirttiğim zaman yani, klasör içinden tek bir dosyayı kopyalamak istediğim zaman hata veriyor. (klasör adından sonra gelen * yerine dosya adını yazıyorum. )
Sub YEDEK_AL ()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile "D:\APARTMAN\*.xls", "C:\YEDEK"
End Sub
Aslında yapmak istediğim şu; APARTMAN klasörü içindeki APT-08 dosyasını yine aynı klasör içine, adını değiştirerek kopyalamak istiyorum.Dosya adını Örn:sayfa1 a1 hücresinden alacak. İlgilenen arkadaşlara teşekkür ederim..
Sub YEDEK_AL ()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile "D:\APARTMAN\*.xls", "C:\YEDEK"
End Sub
Aslında yapmak istediğim şu; APARTMAN klasörü içindeki APT-08 dosyasını yine aynı klasör içine, adını değiştirerek kopyalamak istiyorum.Dosya adını Örn:sayfa1 a1 hücresinden alacak. İlgilenen arkadaşlara teşekkür ederim..