Ağdaki başka bilgisayardan veri çekmek

[numan şamil]

Merhaba Arkadaşlar
Ağda diğer bilgisayardaki kapalı bir excel dosyasından veri çekmek istiyorum
Veri çekeceğim bilgisayarın ismi pc.3
veri çekeceğim klosörü ben seçmeliyim

Örn:
veri çekeceğim dosyanın sayfa ismi Sayfa3
Sayfa3 "C3" ile "C30" aralığındaki veriler çekilecek
Bunun için kodları nasıl düzenleyebilirim
Bir örnek kodla
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim

 

[numan şamil]

Merhabalar
1. mesajımda istediğim gibi olmuyorsa en azından
masa üstündeki klosör içerisindeki örnek1 dosyamdan
kafkas = "C:\\Users\pc3\Desktop\ÖRNEKLER\"
kartalı = "örnek1.xls" '
Workbooks.Open (kafkas & kartalı)
Kodlarla veri çekebiliyorum
benim istediğim aynı ağ üzerinde çalışan diğer bilgisayardaki
deneme1adlı dosyama yukardaki veri yolunu yazdığım masa üstünde bulunan ÖRNEKLER adlı klosör içerisindeki örnek1 adlı kitabın Sayfa3 adlı sayfasındaki "C3" ile "C30" arasındaki verileri çekmek istiyorum
iyi çalışmalar

 

[numan şamil]

Ağda başka bilgisayardaki masa üstündeki ÖRNEKLER klosörü içerisindeki
örnek1 adlı dosyamdan veri çekmek için veri yolunu nasıl yazmalıyım

Not:veriyi çekeceğim bilgisayarın ismi pc3

 

[numan şamil]

Arkadaşlar konu güncel bir fikri olan yokmu?
Forumda bulduğum kodları uygulamaya çalıştım fakat

Set dosya = uygulama.Workbooks.Open("C:\pc3\Desktop\ÖRNEKLER

hata veriyor

Sub verial()
Set uygulama = CreateObject("Excel.Application")
Set dosya = uygulama.Workbooks.Open("C:\pc3\Desktop\ÖRNEKLER")
son = [a65536].End(3).Row
sonsat = dosya.Sheets("Sayfa1").[a65536].End(3).Row
If son = sonsat Then
MsgBox "Yeni veri mevcut olmadığından aktarma yapılmamıştır."
GoTo 10
End If
[a2:o65536].ClearContents
Range("a2:o" & sonsat) = dosya.Sheets("Sayfa1").Range("a2:o" & sonsat).Value
MsgBox "Veri alma işlemi tamamlandı."
10 dosya.Close
uygulama.Quit
End Sub

 

[numan şamil]

Konu güncel Arkadaşlar

 

[numan şamil]

Arkadaşlar konu hakkında bir yorumu olan yokmu?

 

[numan şamil]

Arkadaşlar konuyu son olarak güncelliyorum
Umarım bu konu hakkında bir yorum yapan bulunur