Kapalı Dosyadan Veri alma

[excellcan]

Workbooks("açık").Activate

Hocam bu satırda aynı hatayı verdi. Hocam şöyle birşey olabilir mi ? Ben bir iki gündür
kapalı dosyadan veri alma ile ilgili çalışıyorum. Kendimce öğrenmeye çalışıyorum.
ADO ile , SQl ile denemeler yapıyorum. Sormaya çalıştığım acaba ayarlarda bir sıkıntı olabilir mi ? Ya değilse ben bu kodları çalıştırmıştım. Bazı dosyalarda ActiveX Library 2.8 i işaretlemiştim. Gerçi bu dosyada yok . Bundan dolayı olabilir mi ?

 

[Emir Hüseyin Çoban]

. . .

Örnek dosyada işaretlemesi gerekir o seçenekleri veya MISSING olarak belirtmeli.
Bendeki referanslar şu şekilde.

Verdiği hata geçersiz bir nesneden kaynaklanıyor.
Örneğin eski kodlar ile deneyerek. Sayfa ismini tabloadan değiştirin, kodlarda değiştirmeyin. Aynı hatayı verecektir. Aranan sayfayı bulamadığı için.

. . .

 

[yuemse]

Dim DOSYA_YOLU As String
DOSYA_YOLU = ThisWorkbook.Path & "\[[COLOR="DarkOrange"]KAPALIDOSYAİSMİ[/COLOR].xls]"
Sheets("[COLOR="DarkOrange"]AÇIKDOSYASAYFASI[/COLOR]").Range("[COLOR="DarkOrange"]AÇIKDOSYAHÜCRESİ[/COLOR]").Value = Application.ExecuteExcel4Macro("'" & DOSYA_YOLU & "[COLOR="DarkOrange"]KAPALIDOSYASAYFASI[/COLOR]'!R3C7")

 

[Bekel]

Çok işime yaradı. Çok Teşekkürler.

 

[sinan05]

merhabalar sevgili üstadlar benimde buna benzer bir sorunum var yardımcı olabilirseniz çok sevinirim. aşağıdaki linkte detaylı açıklama notuna ekledim sorunumu. şimdiden herkese teşekkür ederim.

http://www.dosya.tc/server11/1ov5z1/calisma.rar.html