Kopyala - makro ile

[teksen]

Arkadaşlar merhaba,

C sürücüsünde DB isimli klasörde bulunan Data1.xls ve Data2.xls isimli excel dosyalarını CommandButton1 e bastığımda D sürücüsüne aynı isimle kaydetmesi için buton üzerinde nasıl bir kod kullanmamız gerekir acaba?

Şimdiden teşekkür ederim.

Herkese iyi çalışmalar.

 

[Ayhan Ercan]

Merhaba @teksen

Private Sub CommandButton1_Click()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
      For i = 1 To 2
          ds.CopyFile "c:\DB\data" & i & ".xls", "d:\"
      Next i
[COLOR=red]ds.CopyFile "c:\DB\d.mdb", "d:\"[/COLOR]
Set ds = Nothing
End Sub

 

[teksen]

Sn. Ayhan Ercan yardımlarınız için teşekkür ederim.

c:\DB\ klasöründe birde d.mdb isimli dosyam var. Bu kopyalamaya onuda dahil etmek istersem kodlarda nasıl bir değişiklik yapmam gerekir acaba?

 

[Ayhan Ercan]

Sn. Ayhan Ercan yardımlarınız için teşekkür ederim.

c:\DB\ klasöründe birde d.mdb isimli dosyam var. Bu kopyalamaya onuda dahil etmek istersem kodlarda nasıl bir değişiklik yapmam gerekir acaba?

Merhaba,
Bir önceki mesajıda kırmızı olarak ilave ettim...

 

[teksen]

Teşekkür ederim Sn. Ayhan Ercan fakat çalıştıramadım.Bir hata var sanırım.

 

[teksen]

Teşekkür ederim.

Kusura bakmayın Next i den önce yazmışım.

Yardımlarınız için tekrar teşekkür ederim.

İyi çalışmalar.