VB 6.0 tollbar

[siyahim]

vb 6.0 tollbar üzerindeki buton.key kod kısmına dahili form açmak için frmMain.Show vbModal kodunu yazıp formu açabiliyorum fakat herhangi bir sürücüdeki excel dosyasını açmak için hangi kodları yazmam lazım acaba.iyi çalışmalar...

 

[siyahim]

arkadaşlar yardımcı olacak yomu

 

[hamitcan]

Vba dili Vb'den doğmuş olmasına karşılık farklı kütüphanelere sahip bu yüzden sorularınızı Vba kütüphanesini düşünerek sorun. Eğer istediğiniz kod yardımıyla dosya açmak ise; bu işlemi birçok yoldan yapabilirsiniz, bu çözümler de forumda oldukça fazla. En basit şekliyle

Workbooks.Open "c:\ aa.xls"

bir dosya açmanız mümkün. Bir de soru başlıklarınızı soruyu özetleyecek şekilde sormaya dikkat edin.

 

[siyahim]

hocam hiç tepki vermedi butona tıkladığımda

 

[Zeki Gürsoy]

Merhaba,

Excel ref eklemeden çalıştıramazsınız. Şunu deneyin...

dim x as object

set x = createobject("excel.application")

x.visible = true

x.workbooks.open "c:\xyz.xls"

veya,

dim x as object

set x = createobject("shell.application")

x.open "c:\xyz.xls"

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Workbooks.Open (ThisWorkbook.Path & "\Dosya.xls")
End Sub

 

[siyahim]

hocam çok teşekkürler

dim x as object

set x = createobject("shell.application")

x.open "c:\xyz.xls işime yaradı

 

[siyahim]

hocam bu şekilde ağdan bağlanan pc açamıyor onu çözme şansımız varmı

 

[Zeki Gürsoy]

Bağlanmak istediğiniz pc den izinleri kontrol edin.

 

[siyahim]

hocam tam anlayamadım biraz daha açıklarmısnız