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.