butonla dosya açmak

[ismailuguz]

MERHABA:
excel visual basic düzenleyicisinde

Sub Makro1()
Workbooks.Open Filename:="D:\deneme.xls"
End Sub

makrosunu module yazıp botona bağladığım zaman D sürücüsündeki deneme.xls dosyasını açabiliyorum fakat visual basic 6.0 programında yaptığım zaman dosyayı açamıyorum program hata veriyor visual basic programında bunu yapmak için ne yapmalıyım yardımcı olursanız sevinirim teşekkürler

 

[alpi]

Sub Denemet()
Dim Ex As Object
Set Ex = CreateObject("Excel.Application") 'Excel Uygulaması oluşturuyoruz.
Dim Book As Object
Set Book = Ex.Workbooks
Book.Open "Dosya Adı Ve Yolu" 'Dosya açıyoruz
Ex.Visible = True

Book.Close 'Dosya kapatıyoruz
Ex.Quit 'Excel uygulamasını kapatıyoruz.
End Sub

 

[ismailuguz]

Book As Ex.Workbooks
kısmında hata veriyor neden olabilir

 

[alpi]

Kodları düzelttim şimdi tekrar deneyin

 

[ismailuguz]

teşekkürler
denedim ama gene açılmıyor hata vermiyor bu sefer ama dosya da açılmıyor öyle bekliyorum

 

[alpi]

Başka bir uygulamadan Office uygulamaları çalıştırıldığında Visible özelliği düzenlenmesi gerekir.
Dosyayı açtıktan sonra Visible=true yapmalısınız.

Yukarıdaki kodu tekrar düzenledim.

 

[ismailuguz]

teşekkürler sayın alpi

 

[ismailuguz]

bir sorum daha olacak bu şekilde bir dosyayı değil de bir klasörü veya bir sürücüyü açtırmak istiyorum bunu nasıl yaparım

 

[alpi]

Aşağıdaki kod C sürücüsündeki deneme isimli klasörü açar

Shell "explorer.exe c:\Deneme"

 

[ismailuguz]

sayın alpi biliyorum bende çok oldum ama birşey daha soracağım klasör açılınca görev çubuğunda minimize halinde açılıyor bunu nasıl normal ekran olarak açılmasını sağlarız
teşekkürler

 

[alpi]

 [LEFT]Shell "explorer.exe c:\Deneme", vbNormalFocus

[/LEFT]
Bu kod satırını kendiniz yazın. Virgülden(,) sonra boşluk tuşuna basarak seçebileceğiniz görünüm türlerini görebilirsiniz.

 

[ismailuguz]

visual basic programında bir form oluşturdum exe olarak kaydettim gayet güzel çalışıyor ama yeni bir form oluşturup formdaki butona bu formu bağladığım zaman hata veriyor sonra excel sayfası açılıp karışık yazılar çıkıyor.
oluşturduğumuz bir formu başka bir forma nasıl bağlaya biliriz.

 

[alpi]

Bir uygulama oluşturdunuz ve içinde birden fazla form mu var?
Eğer öyleyse şu kod ile diğer formu açabilirsiniz

Form2.Show 'Buradaki Form2 açmak istediğiniz formun adını temsil ediyor

-------------
İki tane uygulama yaptınız ve ikiside aynı klasör içerisinde mi?
Eğer öyleyse şu kod ile diğer uygulamanızı açabilirsiniz.

shell app.path & "\UygulamaAdı.exe"

 

[ismailuguz]

shell app.path & "\UygulamaAdı.exe" şeklinde yazdığımız zaman aynı dizindeyse açılıyor aynı dizinde değilse shell app.path & "dosya yolu-dosya adı" şeklinde yazdığımız zaman açılmıyor bunu nasıl yapabiliriz

birde bir excel dosyası açıldığı zaman userform otomatik olarak açılıyor fakat bu excel dosyasını oluşturduğumuz yeni bir userformda butona bağlayıp açtığımız zaman userform açılmıyor galiba makrolar çalışmıyor excel sayfası normal olarak açılıyor bunun çözümü ne olabilir
teşekkürler

 

[alpi]

Shell komutunun çalışma şekli
shell "açmak istediğiniz exe uzantılı dosyanın bulunduğu yer ve adı.exe"


Bir excel dosyasını başka bir excel dosyası kullanarak açtığınızda tüm makrolar çalışır. Yani açılışta otomatik çalışması gereken ne varsa hepsi çalışır. Kodlarınızı kontrol ediniz.

 

[ismailuguz]

çok teşekkürler sayın alpi sayenizde birçok şey öğrendim benim sorularım bitecek gibi değil
bilgisayarım,belgelerim,ağ bağlantılarım gibi öğeleri nasıl açabiliriz

 

[alpi]

'Yeni bir excel dosyası açıp aşağıdaki kodları çalıştırın

Sub DosyaYolları()
For i = 1 To 30
Cells(i, 1) = Environ(i)
Next
End Sub

Yukardaki kodu çalıştırdıktan sonra excel sayfasına bakın.

Sub Ornek()
'Belgelerim klasör yolunu bulmak
MsgBox Environ(28) & "\Belgelerim"
'Bu şekilde yazdığınızda metnin en başına USERPROFILE= yazdığını göreceksiniz
'Bunu kaldırmak için aşağıdaki şekilde yazın
MsgBox Environ("USERPROFILE") & "\Belgelerim"
End Sub