Kapalı bir excel dosyasına makro ile bağlantı kurmak

[olymposss]

sn hocalarım herkese hayırlı günler

takıldığım bir nokta var acaba yardımcı olabilir misiniz?
şu kod ile;
Range("c4") = "=[urun.xls]toplam!B1*A4/100"
ana.xls kitabında sayfa1 C4 hücresine bu formülü yazdırıyorum.ancak formülde [urun.xls] olduğu için doğal olarak bu çalışma kitabının nerede olduğunu soruyor.bende buna karşılık şöyle bi şey yaptım( kontrol etmesi için);
Workbooks.CanCheckOut ThisWorkbook.Path & "\" & Label5 & "\urun.xls"
ancak boyle de aynı şey devam ediyor.yine çalışma kitabının nerde olduğunu soruyor.istediğim bunu otomatik yapması.

şimdiden teşekkür ederim saygılar.:yardim:

 

[Recep İpek]

Sub VeriAl()
Range("c4").Value = ExecuteExcel4Macro("'F:\Aktar\[veri.xls]toplam'!R1C2") * [a4] / 100
End Sub

kodunu deneyiniz.

 

[olymposss]

sn ripek çok teşekkür ederim ilginize
kodunuzla hücreye doğru sonuç alabiliyorum ama yapmaya çalıştığım şu formülü;
=[urun.xls]toplam!B1*A4/100 aynen hücreye işlemek.
sizin kod ile de sürücü ve konumu yazmak zorundayım.urun.xls kitabı programın çalıştığı klasörün içindeki 2007 klasöründe bulunuyor.
engin bilginizden bu konuya çözüm bekliyorum.çok teşekkürler saygılar

 

[Recep İpek]

'F:\Aktar\[veri.xls] dosya yolunu kendinize göre uyarlayabilirsiniz.

Ama ortada anlaşamadığımız bir nokta var gibi... :dusun:

Siz en iyisi dosyalarınızı örnek olarak buraya ekleyiniz.Onun üzerinden gidelim.

 

[olymposss]

dosya ekte

sn ripek ilginize tekrar teşekkür ederim.
örnek dosya ektedir.sadece 1.xls dosyasını açınız ve düğme1 e basınız.a1 e formülü yazmak isterken size 2.xls nin nerede olduğunu soracak.istediğim sormadan (zaten dosyanın yeri belli aslında) düğmeye basınca direkt formülü işlemesi.yani 2.xls nin aynı klasörde olduğunu bilmesini istiyorum.
teşekkürler
saygılar:yardim:

 

[Recep İpek]

Kapalı dosyadan veri alırken mutlaka tam dosya yolunu yazmanız gerekmektedir.Dikkat ederseniz bu şekilde yaptığınız bir formülde dosyayı kapatıp açtığınızda formül tam yol olarak görünecektir.


Kodları aşağıdaki şekilde değiştirirseniz sanırım uygun olacaktır.

Sub Düğme1_Tıklat()
Range("A1") = "='E:\deneme\[2.xls]sayfa1'!A1*A2/100"
End Sub

 

[olymposss]

çok doğru sn ripek yolu bu şekilde yazarsak oluyor ancak şöyle de bi durum var kullanıcı programı herhangi bir klasöre atarsa bu kod görev yapmayacaktır.
ThisWorkbook.Path & "\" &.... şuna benzer şekilde bi kod yazabilsek veya program nerede çalışyorsa oradaki klasörden 2.xls yi görse.
bunları yazarken acaba çok şeymi istiyorum diye düşünüyorumda.sizin de zamanınızı alıyorum sn ripek.
teşekkürler
saygılar

 

[Recep İpek]

Olay şimdi anlaşıldı.

Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
MyPath = Application.ThisWorkbook.Path
Range("A1") = "='" & MyPath & "\[2.xls]sayfa1'!A1*A2/100"
End Sub

 

[olymposss]

şimdi oldu çok teşekkür ederim hepsini hallettim sayenizde.elinize sağlık
teşekkürler
saygılar