path tanımlamak

[ercanbrisa]

Yapmakta olduğum bir çalışamada aşağıdaki konuda takıldım yardımcı olursanız sevinirim

Amaç: a.xls dosyasında bir sayfaya ocak.xls dosyasındaki bir sayfadan bir tablodaki bilgileri almak istiyorum aylara göre bilgi alınacak dosyanın adı değişecek e bunu a.xls dosyasındaki bir hücreden belirteceğim.
Bunun için başlangıçta ne olacağını göremek için aşağıdaki kodu yazdım

Sub formac()
Dim ay
Dim path

'dosya yolu
Sheets("setup").Select
path = Cells(1, 1)
'dosya adı
Sheets("bd1").Select
ay = Cells(2, 1)
' tam dosya yolu, adı ve sayfsı
pathb = "='[" & path & ay & ".xls]1'!"

satıra = 76
sutuna = 7
satıry = 10
sutuny = 1

For sutuna = 7 To 37

sutuny = sutuny + 1
paths1 = pathb & "R" & satıra & "c" & sutuna
Cells(satıry + 0, sutuny) = paths1

Next sutuna


End Sub

Hücrelerde ise aşağıdaki formül oluşuyor. OCAK.XLS dosyası neden iki defa görülüyor anlayamadım

Bunun başka bir yolu var mı
Yardımcı olanalara şimdiden teşekkürler

İsteyenlere daha ayrıntılı bilgi verebilirim
='[I:\MIXER2008\SUNUŞ\[Ocak.xls]1]Ocak.xls]1'!$J$76

 

[Levent Menteşoğlu]

pathb = "='[" & path & ay & ".xls]1'!"

Yukarıdaki satırı aşağıdaki ile değiştirin.

pathb = "='" & path & "[" & ay & ".xls]1'!"

 

[ercanbrisa]

teşekkür

Önerdiğiniz değişikliği yaptım ve normal çalışıyor
teşekkür ederim

 

[ercanbrisa]

Daha iyi bir yolu var mı ?

yukarıdaki kod işimi gördü fakat öğrenmek isteğim başka bir şey daha var

İçinden veri alacağım ay isimleri verilmiş xls dosyalarının hepsi aynı sayfa yapısına sahip yani hepsinde 1 den 8 e kadar sayfalar var ve hapsinde aynı satır ve sütunlardaki verileri alıyorum

Sorum şu içinden veri alacağım xls dosyasını ms. programlarındaki open dediğimizde çıkan ekran benzeri bir ekrandan seçebilirmiyiz yani dosya başka bir pathde veya tamamen başka bir sürücüde olsa dahi aktarma işlemi için gerekli dosya yolunu bu şekilde tanımlayabilirmiyiz

Şimdiden teşekkürler