Dostlarıma iyi çalışmalar dilerim.
Excel Dershanesi-FILE SYSTEM OBJECT Başlığı altında bulunan
kodları bir türlü çalıştıramadım. Farkettim ki;
"C:\SXS" yerine
"C:\SXS\" yazınca çalışıyor. Başlık altındaki diğer örnekler de aynı şekilde.
Küçük bir ayrıntı.
Yapanların ellerine sağlık. Bu kodlar çok işe yarıyor.
Excel Dershanesi-FILE SYSTEM OBJECT Başlığı altında bulunan
Kod:
2) Aşağıdaki kodlar ile adı geçen klasördeki tüm Excel dosyalarını SXS klasörüne kopyalıyoruz:
Sub Dosya_Kopyala()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile "D:\Excelörnekleri\*.xls", "C:\SXS"
End Sub"C:\SXS" yerine
"C:\SXS\" yazınca çalışıyor. Başlık altındaki diğer örnekler de aynı şekilde.
Küçük bir ayrıntı.
Yapanların ellerine sağlık. Bu kodlar çok işe yarıyor.