Dosya Taşıma

[mozdem]

Sitenizden yararlanarak aşağıdaki kodu uyarladım. ama hata veriyor. yardımlarınızı bekliyorum

Sub dosya_tasımak()

    Dim Dosya_Sistemi As Object, Taşı As Variant
    Dim dosya, Klasör_Yolu_1 As String, Klasör_Yolu_2 As String
    dosya = "mm20170317.zip"
       
    Klasör_Yolu_1 = "C:\Users\CTS02\Downloads\"
    Klasör_Yolu_2 = "D:\KAR\ZIP\"
    Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
    Taşı = Dosya_Sistemi.MoveFile(dosya, Klasör_Yolu_2)

End Sub

 

[PLİNT]

Merhaba
Kodların son bölümünü şöyle deneyiniz;

'....
'....kodlarınız

   Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
[COLOR="Red"]    Dosya_Sistemi.MoveFile Klasör_Yolu_1 & dosya, Klasör_Yolu_2[/COLOR]
End Sub

 

[mozdem]

Merhaba
Kodların son bölümünü şöyle deneyiniz;

'....
'....kodlarınız

   Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
[COLOR="Red"]    Dosya_Sistemi.MoveFile Klasör_Yolu_1 & dosya, Klasör_Yolu_2[/COLOR]
End Sub

Teşekkür ederim.

 

[arda41]

Teşekkür ederim.

Merhabalar,

Forumda daha önce kullanılmış olan dosya taşıma kodu ile ekte görülen hatayı almaktayım. Makronun çalıştırıldığı excel dosyasını, a klasöründen b klasörüne taşımak istemekteyim. Şimdiden yardımcı olabilecek herkese çok teşekkür ederim.

Saygılarımla
İyi günler

 

[arda41]

Merhabalar,

Forumda daha önce kullanılmış olan dosya taşıma kodu ile ekte görülen hatayı almaktayım. Makronun çalıştırıldığı excel dosyasını, a klasöründen b klasörüne taşımak istemekteyim. Şimdiden yardımcı olabilecek herkese çok teşekkür ederim.

Saygılarımla
İyi günler

Merhabalar,

Yardımcı olabilecek bir arkadaşımız var mıdır acaba? Çok teşekkürler.

İyi çalışmalar

 

[EmrExcel16]

Merhaba , Makronun çalıştığı dosyanın bir kopyasının mı oluşmasını istiyorsunuz , yok eğer taşınması ise isteğiniz, açık olan bir dosyanın , makroları bir yana bırakın , el ile bile taşınmasına izin vermiyor "Dosyayı kapatıp tekrar deneyin" diyor ,bu vba ile yapılabilir mi ,bilemedim açıkçası.
Eğer kopyası oluşturulması ise yardımcı olabilirim.

 

[arda41]

Merhaba , Makronun çalıştığı dosyanın bir kopyasının mı oluşmasını istiyorsunuz , yok eğer taşınması ise isteğiniz, açık olan bir dosyanın , makroları bir yana bırakın , el ile bile taşınmasına izin vermiyor "Dosyayı kapatıp tekrar deneyin" diyor ,bu vba ile yapılabilir mi ,bilemedim açıkçası.
Eğer kopyası oluşturulması ise yardımcı olabilirim.

Merhabalar,

Başta ilginize çok teşekkür ederim. Açık olan dosya içerisindeki makroyu çalıştırdığım zaman dosyanın bulunduğu konumdan başka bir konuma taşınmasını istiyorum. Yani makronun çalıştığı excel dosyasının kes yapıştır olması gerekiyor. Dosyayı makro ile başka bir konuma kopyalayabiliyorum.

Forumda "movefile" diye araştırırken ekteki kodları buldum ancak çalıştıramadım.

Yardımcı olabilecek herkese şimdiden çok teşekkür ederim.

Saygılarımla

 

[EmrExcel16]

Merhaba ,

Şöyle bir şeyler hazırladım , deneyiniz.

Sub Dosya_Tası()
   
    Dim Yeni_Klasör_Yolu As String, Dosya_Yol As String, Dosya_isim As String
   
    Yeni_Klasor_Yolu = "C:\Users\Desktop\deneme\b" ' hedef yolu kendinize göre belirleyin
   
    Dosya_Yol = ActiveWorkbook.Path
    Dosya_isim = ActiveWorkbook.Name
   
    ActiveWorkbook.SaveAs Yeni_Klasor_Yolu & "\" & Dosya_isim
    Kill Dosya_Yol & "\" & Dosya_isim
   
End Sub

 

[arda41]

Merhaba ,

Şöyle bir şeyler hazırladım , deneyiniz.

Sub Dosya_Tası()
  
    Dim Yeni_Klasör_Yolu As String, Dosya_Yol As String, Dosya_isim As String
  
    Yeni_Klasor_Yolu = "C:\Users\Desktop\deneme\b" ' hedef yolu kendinize göre belirleyin
  
    Dosya_Yol = ActiveWorkbook.Path
    Dosya_isim = ActiveWorkbook.Name
  
    ActiveWorkbook.SaveAs Yeni_Klasor_Yolu & "\" & Dosya_isim
    Kill Dosya_Yol & "\" & Dosya_isim
  
End Sub

Sayın EmrExcel16,

Çok teşekkür ederim. Kod istediğim şekilde çalışmaktadır. Elinize emeğinize sağlık.

Ayrıca iyi seneler dilerim.

Saygılarımla

 

[EmrExcel16]

Sayın EmrExcel16,

Çok teşekkür ederim. Kod istediğim şekilde çalışmaktadır. Elinize emeğinize sağlık.

Ayrıca iyi seneler dilerim.

Saygılarımla

Rica ederim , size de iyi seneler.