bir klasördeki Excel dosyasını başka klasöre taşımak

[snskutlu]

Merhaba arkadaşlar!

Bir klasörde bulunan excel dosyasını başka klasöre taşıma işlemi için gerekli makro nedir?
Teşekkür ederim. İyi Çalışmalar

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=25768&highlight=filecopy

 

[Orion1]

Merhaba.
Aşağıdaki kodları kendinize göre uyarlayarak deneyiniz.

Sub Dosya_Tasi()
Set fs = CreateObject("Scripting.FileSystemObject")
fs.movefile "C:\Bos.xls", "C:\Evren\"
End Sub

 

[snskutlu]

İlginiz için teşekkür ederim. Leventm

Yalnız benim isteğim bir klasördeki dosyayı kes - yapıştır şeklinde başka klasöre
aktarmak. Bu işlemi excel makrosu ile gerçekleştirmek.
Aslında ben bu işlemi şu şekilde yaptım.
Önce ilgili dosyayı Open yapıyorum. Sonra başka klasörü hedefleyerek SaveAs yaptım. Bu şekilde dosyanın kopyasını oluşturuyoruz.

Benim isteğim dosyayı hiç açmadan taşımak.
Gönderdiğiniz adresten tam bir cevap alamadım. Teşekkürler

 

[snskutlu]

Sezar
Teşekkürler.
Gönderdiğiniz makroyu deneyeceğim...

 

[Zeki Gürsoy]

Sn leventm verdiği örnekte FileCopy metodunu kullanmış,
bu metot ile dosya kaynak klasörde halen durmaktadır.

Ek olarak dosyayı kopyalamak değil de, taşımak istersek Name kullanmamız gerekir.

Örneğin C:\ sürücündeki "test.xls" yi D:\ sürücüsüne taşıyalım.

Name C:\test.xls As D:\test.xls

Aynı şekilde FileSystemObject ile de yapılabilir.

CreateObject("Scripting.FileSystemObject").MoveFile "C:\test.xls", "D:\test.xls"

 

[mrt]

Selamlar,

Dosya ismini textbox tan alabilir miyiz?

Textboxta yazılı dosyayı taşıtmak itiyorum.

 

[belinay42]

Arkadaşım

Senin işini görürmü bilmem ama bir bak

Saygılar