dosyadan veri alma

[l_sezer]

ii günler arkadaşlar elimde 3 dosya var

1. dosya ana dosya
2. ve 3. dosya ise veriler var

yapmak istediğim ana dosyada veri al'a tıkladığımda
dosya ismini verdiğim yerden ana dosyaya verileri getirmesi

belki diyeceksiniz formda bu konu hakkında bir çok dosya var incele inceledim ama hepsi sabit dosya üzerinden veri alıyor benim yapmak istediğim istediğim adını verdiğim dosyadan verileri alması

bununla ilgili bir kaç soru sordum ama daha cevap gelmedi nasıl çözüleceği hakkında bayağı kafa patlattım ama olmuyor

amacım dosya şişkinliğini azaltmak ve word ve excelde nasıl verileri kaydedip saklıyabiliyorsak bunu excxelde yapabilmek bütün şıklar üzerinden denedim text denedim olmadı ado ile sordum 3 haftadan beri cevap yazan olmadı yardımcı olursanız çok sevinirim

SAYGILARIMLA

 

[Orion1]

Dosyaların ve ana dosyanın ayni klasörde olaması gerekiyor.:
Ekli dosyayı inceleyiniz.

Sub Disverial()
Dim MyArg As String
Dim i As Integer
For i = 1 To 6
MyArg = "'" & Application.ThisWorkbook.Path & "\[" & Range("I7").Value & ".xls]Sayfa1'!R" & i
Cells(i, 2).Value = ExecuteExcel4Macro(MyArg & "C2")
Next
For i = 12 To 18
MyArg = "'" & Application.ThisWorkbook.Path & "\[" & Range("I7").Value & ".xls]Sayfa1'!R" & i
Cells(i, 5).Value = ExecuteExcel4Macro(MyArg & "C5")
Next
End Sub

 

[l_sezer]

her seferinde dosya aç çıkması mecburimi çünkü bu çok zaman alıyor

 

[Orion1]

her seferinde dosya aç çıkması mecburimi çünkü bu çok zaman alıyor

Dosya aç çıkmaması lazım.
Hedef dosya ve kaynak dosyalar ayni klasörde değillerse bu dosya aç formu açılır, veya dosya ismi değişikse veya yoksa dosya aç formu açılır.
mesela bende dediğniz form açılmadan problemsiz bir şekilde kodlar çalışıyor.

 

[l_sezer]

yardımcı olduğunuz için çok teşekkür ederim bu işlem
bana çok yardımcı olacak

 

[Orion1]

yardımcı olduğunuz için çok teşekkür ederim bu işlem
bana çok yardımcı olacak

Rica ederim.
İyi çalışmalar.

 

[l_sezer]

Sub Disverial()
Dim MyArg As String
Dim i As Integer
For i = 1 To 6
MyArg = "'" & Application.ThisWorkbook.Path & "\[" & Range("I7").Value & ".xls]Sayfa1'!R" & i
Cells(i, 2).Value = ExecuteExcel4Macro(MyArg & "C2")
Next
For i = 12 To 18
MyArg = "'" & Application.ThisWorkbook.Path & "\[" & Range("I7").Value & ".xls]Sayfa1'!R" & i
Cells(i, 5).Value = ExecuteExcel4Macro(MyArg & "C5")
Next
Sheets("sayfa2").Select
For i = 1 To 8
For t = 2 To 6
MyArg = "'" & Application.ThisWorkbook.Path & "\[" & Range("I7").Value & ".xls]Sayfa2'!R" & t
Cells(i, t).Value = ExecuteExcel4Macro(MyArg & "C5")
Next t
Next i
End Sub

üstdaım kırmızı ile işaretli yer neden hep dosya açı açıyor

 

[Orion1]

Buradan ancak tahmin edebilirim.Oda buradan gözüktüğü kadarı ile Hedef dosyada Sayfa2 diye bir sayfa yok belkide sonunda yada başında boşluk vardır.Tam olarak bilemiycem.
Siz yine dosya adını ve sayfa adını kontrol edin.