htm Dosyası Açtırma

[efem67]

Değerli Üstadlar merhaba;
Aşağıdaki kod ile bir klasördeki yardım dosyasını açmak istiyorum
ama shell hatası veriyor.
Yardımlarınız için şimdiden teşekkürler.
Saygılarımla;

Sub YARDIMAC()

CreateObject("Shell.Application").Open yol & "\YSONUCLAR\" & Yardım_Help.htm
Workbooks.Open yol & "\YSONUCLAR\" & Yardım_Help.htm

End Sub

 

[PLİNT]

Merhaba
Dosya adını tırnak içine alarak denedinizmi?

CreateObject("Shell.Application").Open yol & "\YSONUCLAR\Yardım_Help.htm"

Workbooks.Open yol & "\YSONUCLAR\Yardım_Help.htm"

 

[efem67]

Şimdi denedim klasör yol adı herzaman değişebiliyor.
flash diskte veya masaüstünde olabiliyor.
Genellikle Masa üstünde bir klasör içinde
desktop/DEGERLER/YSONUCLAR
Yani çalışan Aktif excel sayfasının bir altındaki klasör de diyebiliriz.

 

[PLİNT]

Sizin yukarıdaki kodlarınıza göre bağlaçlada olur ama yine tırnak içinde olmalı

Workbooks.Open yol & "\YSONUCLAR\" [COLOR="Red"]& "Yardım_Help.htm"[/COLOR]

yol = ThisWorkbook.Path
Workbooks.Open yol & "\YSONUCLAR\" & "Yardım_Help.htm"

 

[PLİNT]

Masa üstündeki "DEGERLER/YSONUCLAR" klasörü içinde

[SIZE="2"]yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & Application.PathSeparator & "DEGERLER\YSONUCLAR\"
Workbooks.Open yol & "Yardım_Help.htm" [/SIZE]

[SIZE="2"]yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & Application.PathSeparator & "DEGERLER\YSONUCLAR\"
CreateObject("Shell.Application").Open yol & "Yardım_Help.htm" [/SIZE]

Acaba ".chm" dosyasımı?

[SIZE="2"]yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & Application.PathSeparator & "DEGERLER\YSONUCLAR\"
Application.Help (yol & "Yardım_Help.chm")[/SIZE]

 

[efem67]

Teşekkürler , Ancak Htm yi internet explorer ile açmıyor excel sayfası olarak açıyor

 

[PLİNT]

Varsayılan tarayıcınızla; yukarıdaki şu kodların açması gerekliydi;

 [SIZE="2"]yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & Application.PathSeparator & "DEGERLER\YSONUCLAR\"
CreateObject("Shell.Application").Open yol & "Yardım_Help.htm" [/SIZE]

İE için şöylede deneyebilirsiniz

[SIZE="2"]Dim aç As Double
Dim yol As String
yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
Application.PathSeparator & "DEGERLER\YSONUCLAR\" & "Yardım_Help.htm"
aç = Shell("C:\Program Files\Internet Explorer" & "\IEXPLORE.EXE " & yol, vbNormalFocus)
 [/SIZE]

 

[efem67]

Değerli Hocalarım Teşekkrü Bir Borç Bilirim..