Excel Dosyalarını Taşıma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub Dosya_Tasi()
Dim ds, f
Set ds = CreateObject("Scripting.FileSystemObject")
f = ds.MoveFile("D:ExcelOrnekleriMove.xls", "C:")
End SubAçıklama
"D:ExcelOrnekleriMove.xls", "C:" bilgilerini kendinize göre uyarlamanız gerekir. D ile başlayan klasör, taşınacak dosyaların, C olan yeni taşınacak olan klasörün adı olarak örneklendirilmiştir.Faydalanılması temennisiyle