command butona köprü atama

Katılım
20 Ocak 2007
Mesajlar
230
Excel Vers. ve Dili
Office 2003 TÜRKÇE
Arkadaşlar excelde makro oluşturdum
Kod:
Sub Makro5()
'
' Makro5 Makro
'

'
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Documents and Settings\x\Desktop\Dersler\dersno_1(dosya_menusu_islemleri).exe" _
        , TextToDisplay:= _
        "C:\Documents and Settings\x\Desktop\Dersler\dersno_1(dosya_menusu_islemleri).exe"
End Sub
bu şekil
bu kodları editleyip

oluşturdugum userform a command buton oluşturdum yalnız bu kodu editleyip köprü oluşturamıyorum.

Nasıl yapacagım. ????????

uygulama(app).open "dosyayolu" şeklinde error veriyo
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Aşağıdaki kodu kendi dosyalarınıza göre uyarlayınız.:cool:
Kod:
Shell ("D:\Ofis\Office11\Excel.exe")
 
Katılım
20 Ocak 2007
Mesajlar
230
Excel Vers. ve Dili
Office 2003 TÜRKÇE
Aşağıdaki kodu kendi dosyalarınıza göre uyarlayınız.:cool:
Kod:
Shell ("D:\Ofis\Office11\Excel.exe")

Arkadaşım yardımını için tşk ederim yalnız çalışmadı

Kod:
Private Sub CommandButton1_Click()
Shell ("D:\Ofis\Office11\Excel.exe")
End Sub
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Elbette çalışmaz.
Sizin dosyanız hangi dizinde ise onun yolunu yazınız.bende ki dosya farklı bir yerde.Ona göre yazdım.
 
Katılım
20 Ocak 2007
Mesajlar
230
Excel Vers. ve Dili
Office 2003 TÜRKÇE
Elbette çalışmaz.
Sizin dosyanız hangi dizinde ise onun yolunu yazınız.bende ki dosya farklı bir yerde.Ona göre yazdım.
Arkadaşım tabikide kodu öyle yazmadım kendi dosya yolumu yazdım ancak yine çalışmadı mesala c:/a.txt dosyasını çalıştır dedim olmadı hata verdi
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Txt dosyasını açmak için ise aşağıdaki kodu kullanınız.:cool:
Kod:
Private Sub CommandButton1_Click()
Workbooks.Open ("C:\a.txt")
End Sub
 
Katılım
20 Ocak 2007
Mesajlar
230
Excel Vers. ve Dili
Office 2003 TÜRKÇE
Txt dosyasını açmak için ise aşağıdaki kodu kullanınız.:cool:
Kod:
Private Sub CommandButton1_Click()
Workbooks.Open ("C:\a.txt")
End Sub
Arkadaşım yine olmadı sizide ugraştırıyorum ama kusura bakmayın.

Bu kodu ekledigimde a.txt dosyasını açıyor yalnız, txt dosyasını excel ile açıyor. Benim istediğim not defteri şeklinde açması.

txt değilde hadi txt yi bırakılım exe dosayısını nasıl açabilirim. Mesala c:/1.exe dosyasını açmasını istiyorum


sağol tşk ederim yardımından ötürü
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
exe dosyalarını açabilmek için size dağa önce verdiğim shell komutu ile açablirsiniz.Dosya yolunu doğru yamanız şartı ile.Bendeki örnek gayet güzel çalıştı.:cool:
 
Katılım
20 Ocak 2007
Mesajlar
230
Excel Vers. ve Dili
Office 2003 TÜRKÇE
exe dosyalarını açabilmek için size dağa önce verdiğim shell komutu ile açablirsiniz.Dosya yolunu doğru yamanız şartı ile.Bendeki örnek gayet güzel çalıştı.:cool:

Arkadaşım tamamdır çalıştı.

ben shell komutunun yoluna txt dosyası yazdığımdan olmamış denemeyi şimdi txt ile degilde exe ile yaptım sorun halloldu.

Sizide ugraştırdık bayağı tşk ederim tekrardan sağolun
 
Katılım
21 Ocak 2009
Mesajlar
177
Excel Vers. ve Dili
vb
Word dosyasını açmıyor ama bunun yolu yokmu
 
Üst