Excel Dosyasını Açmadan Başka bir Yere Kopyalamak

[baydeniro]

Merhaba Arkadaşlar. Örneğin: C:\Documents and Settings\Belgelerim\Dosya.xls adresinde bir dosyamız var. Bu dosyayı açmaksızın makro kodu ile C:\Documents and Settings\Yedek\Dosya.xls olarak kaydetmek mümkün mü ?

Bu dosyayı ilerleyen kayıtlarda "üstüne kayıt edeyim mi ?" diye sormaması münkün mü ?

 

[hamitcan]

Sub Dosya_Kopyala()
    Dim ds
    Set ds = CreateObject("Scripting.FileSystemObject")
    ds.CopyFile "C:\Documents and Settings\Belgelerim\Dosya.xls", "C:\Documents and Settings\Yedek\"
End Sub

 

[baydeniro]

Sayın hamitcan ilginiz ve yardımınız için çok teşekkürler. Allah sizden razı olsun. O kadar yararlı bir kod ki anlatamam. Sağlıcakla kalın. Allah sizlere uzun ömürler versin.

 

[ziya]

Merhaba,
Kopyaladığımız kitabı bulunduğu klasörün içine başka bir ad ile kopyalayacağız. Yeni kitabın adı textbox1 'deki metin olacak.
Yani klasörde 3 kitap var, kopyalayan, kopyalanan ve kopyadan üretilen yeni kitap. Yeni üretilen kitabın adı, kopyalayan kitabın textbox1 'e yazılan metin.
Sn hamitcan bu kodu bu şekilde uyarlayabilirmisiniz.
Selamlar,

 

[Korhan Ayhan]

Selamlar,

Sn. ziya,

Ekteki örnek dosyayı incelermisiniz.

 

[ziya]

Sn Ayhan
Teşekkür ederim.

 

[baydeniro]

Bu da güzel bir örnek çalışma olmuş Sayın Korhan Ayhan. Bu paylaşım için ayrıca teşekkür ederim.