Başka bir excel dosyasından veri çekme

[semkay]

Mrb,

ben yazdığım makro ile ağda bulunan başka bir bilgisayara bağlanıp veri çekmek istiyorum. Forumdan edindiğim bilgilere göre sadece verinin tamamını çekebiliyoruz. Ben ise belli kriterlere göre arama yaparak çekmesini istiyorum. Bunun içinde aşağıdaki kodları yazdım ama diğer dosyaya bağlantı için yazdığım kod tam bir felaket. Yardımlarınızı bekliyorum arkadaşlar.

xlbook.cells... diye yazdığım kodlarda hata veriyor.


kodlar:

Const MyPath As String = "\\Fmc-kalite\osman ersİn erdoğan tezgah kartlari\"
Dim MyArg As String

Sub TezgahKartlari()
Dim MyFile As String
Dim i As Long, j As Integer
Dim sht As Worksheet
Application.ScreenUpdating = False

Set xlbook = Workbooks.Open("\\Fmc-kalite\osman ersİn erdoğan tezgah kartlari\CNC TEZGAH KARTI.xls")

For Each sht In xlbook.Worksheets
satir = 0


Do While xlbook.Cells(satir, 1) <> ""


satir = satir + 1
Loop
For i = 0 To satir - 1

If xlbook.Cells(i, 8) = TextBox14.Text Then

Sayfa4.Cells(i, 0) = xlbook.Cells(i, 8)
Sayfa4.Cells(i, 1) = xlbook.Cells(i, 7) & xlbook.Cells(i, 6)
Sayfa4.Cells(i, 2) = xlbook.Cells(i, 10)
End If
Next
Next
Application.ScreenUpdating = True

End Sub

 

[semkay]

Arkadaşlar yok mu cevap verecek bir kişi. En azından diğer dosya ile bağlantıyı sağlayan komutu söyleyebilirseniz sevinirim.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyalarınızı ekleyerek hangi verileri almak istediğinizi belirtirseniz cevap almanız kolaylaşacaktır.

 

[semkay]

dostum yollamasına yollarım ama hem yükleme gerektiren obje içeriyor hemde ağ üzerindeki dosyayı görmeye çalışıyor. bende de şu an o objenin dosyası yok. ama yine de koyuyorum. module 1 e bakarsan ilgili kodlar orada.