Makrolar ile Dosyaları Kopyalama isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Hazır Kod
VBA:
Sub Dosya_Kopyala()
Dim ED
Set ED = CreateObject("Scripting.FileSystemObject")
ED.CopyFile "D:ExcelDepo*.xls", "D:ExcelDestek"
End SubAçıklama
Üstteki kodları kullanarak bir klasörde bulunan dosyaları, diğer klasöre tek bir tıklamayla kolayca kopyalayabilirsiniz.Klasör yollarını kendinize göre düzeltmeniz gerekir.
Faydalanılması temennisiyle