Kopyalama hatası

[Nadir]

Merhaba,

Sub kopyala()
kaynak = ThisWorkbook.Path & Application.PathSeparator & "Giris.xls"
hedef = Application.DefaultFilePath & "\SABiT\Giris.xls"
FileCopy kaynak, hedef
End Sub

Burada yapılmak istenen "Giris.xls" dosyasının Belgelerimdeki SABiT klasörüne kopyalanması. "FileCopy kaynak, hedef" satırı işaretli hata veriyor. Path not found. Halbuki kopyalanmak istenen "Giris.xls" dosyası var. Path da (dosya yolu) da doğru. Hepsi aynı klasörün içinde.

 

[Haluk]

Bahsettiğiniz dosya açıksa hata verir.

Sanırım aşağıdaki sizin için daha uygun;

[vb:1:ecb9a845ea]Sub Test()
hedef = Application.DefaultFilePath & "\SABiT\Giris.xls"
ThisWorkbook.SaveAs hedef
End Sub
[/vb:1:ecb9a845ea]

Eğer kendi kodunuzu başka bir dosyaya yazıp da aynı dosya yolundaki Giris.xls dosyasını kopyalamaya çalışıyorsanız, koddaki SABit - SABİT veya Giris - Giriş gibi yazılım hatalarını kontrol edin.

 

[Nadir]

Sayın Raider, sorunun kodlarda olmadığı anlaşıldı. Problem evdeki bilgisayarımdaymış. Oysa işyerimdeki bilgisayarda aynı kodlar çalışıyor. Kopyalama haricinde, basit olarak klasörde oluşturulamıyor. Ne gibi bi sorun varsa, anlayamadım. Ofis2003'ü tekrar yükledim (onarım) ama değişen bişey olmadı. Halbuki evdeki ve işyerimdeki bilgisayarlarda aynı sistem kurulu... WinXP üzerinde Ofis2003. WinXP'yi tekrar kurmak gerekiyor gibi...