vba kodu ile uzak bilgisayardaki dosyaları kopyalamak istiyorum. Forumdaki örnekleri inceledim. Ama bir türlü yapamadım.

Uzak bilgisayar örnek verecek olursam;

\\192.168.42.175\Koordine\Görevliler\Kaynak\ içerisinde 48 adet klasör var ve klasörler içerisinde o birime ait *.xlsx dosyaları mevcut. ( Ben örnekte Birim (1).........Birim (48) adlandırdım ama isimler farklı) Klasörlerin hepsine ayrı ayrı girip kopyalama zaman almakta ben bu xlsx dosyalarını hedef klasöre nasıl aldırabilirim?

Acaba bir Vba kod hazırlanabilse koda çitf tıklayınca benim bilgisayarımdaki D:\Belgelerim\Haftalık\ içerisine getirmek istiyorum.

Yardımcı olabilecek arkadaşlara teşekkür ederim.

Merhaba Sayın @yyhy

Aşağıdaki kodu dener misiniz?

Sub RDPCopyToLocal()

  

  Dim FSO, Fldr, FSOFile, FSOFldr As Object

  Dim SourcePath, TargetPath As String

  

  SourcePath = "\\192.168.42.175\Koordine\Görevliler\Kaynak\"

  TargetPath = "D:\Belgelerim\Haftalık\"

  

  Set FSO = CreateObject("Scripting.FileSystemObject")

  Set Fldr = FSO.GetFolder(SourcePath)

  

  If FSO.FolderExists(Fldr) Then

    For Each FSOFldr In FSO.GetFolder(SourcePath).SubFolders

        For Each FSOFile In FSOFldr.Files

            If Right(FSOFile, 4) = "xlsx" Then

            FSOFile.Copy TargetPath

            End If

        Next

    Next

  End If



End Sub

Sayın atoykan deneyip bilgi vereceğim. Yalnız şuan ağ olmadığı için kaynak ve hedef olarak bilgisayarın D sürücüsü olarak değiştireceğim. İnşallah sorun olmaz.
Kodu denedim kod çalışıyor. Sayın atoykan acaba başlangıçta şu adresten veri aktarımı yapılacak onaylıyor musunuz. İşlem bittikten sonrada şu kadar sürede şu kadar dosya aktarımı yapıldı. Şeklinde mesaj verdirebilir miyiz. Dosya adedi fazla olduğu zaman dosyalardan kaçı gelip gelmediğini bilme açısından daha uygun olacaktır.

Teşekkürler. Gayet güzel bir şekilde çalıştı ancak Sayın atoykan acaba başlangıçta şu adresten veri aktarımı yapılacak onaylıyor musunuz. İşlem bittikten sonrada şu kadar sürede şu kadar dosya aktarımı yapıldı. Şeklinde mesaj verdirebilir miyiz. Dosya adedi fazla olduğu zaman dosyalardan kaçı gelip gelmediğini bilme açısından daha uygun olacaktır.

(30/04/2021, 01:27)yyhy yazdı: Teşekkürler. Gayet güzel bir şekilde çalıştı ancak Sayın atoykan acaba başlangıçta şu adresten veri aktarımı yapılacak onaylıyor musunuz. İşlem bittikten sonrada şu kadar sürede şu kadar dosya aktarımı yapıldı. Şeklinde mesaj verdirebilir miyiz. Dosya adedi fazla olduğu zaman dosyalardan kaçı gelip gelmediğini bilme açısından daha uygun olacaktır.

Rica ederim. Bahsettiğiniz şekilde denetimler eklenebilir, ancak Site Kurallarımız gereği ve benzer sorulara cevap arayan diğer arkadaşların da etkin fayda sağlamasını teminen bu sorunuzu cevaplanmışlara taşıyıp sonlandırıyorum. Diğer sorunuz için yeni bir başlık açıp iletirseniz yardımcı olmaya çalışırız.

İyi çalışmalar.