[[20180701132623]]　『作成したヘルプファイルを呼び出す』（KLY）　ページの最後に飛ぶ

『作成したヘルプファイルを呼び出す』（KLY）

助けてください。

帳票管理.chm としてHTMLヘルプファイルを作成しました。
ユーザーフォームのコマンドボタンから呼び出すようにしましたが
Excelファイルが開き帳票管理.chm が開いてくれません。
帳票管理.chm 同一フォルダに入れています。
コードです。
Private Sub CommandButton1_Click()
　Application.Help "帳票管理.chm"
End Sub

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

ファイルのプロパティが適切ではないとかでしょうか。
Explorer上で以下の作業をしてみては？
　
1) 当該chmファイルを右クリック、次に「プロパティ」をクリックします。
2) プロパティ画面で [全般]タブをクリックします。
3) 次の画面で一番下に表示される「セキュリティ」の右側にある「ブロックの解除(K)」をクリックします。
4) プロパティ画面で OK をクリックします。
　
（マイクロソフトコミュニティの記事から引用しました）
　
（γ） 2018/07/01(日) 13:48

γさん
　>ファイルのプロパティが適切ではないとかでしょうか。
帳票管理.chm をクリックすると開きますので、プロパティは関係ないと思いますけど。
　>Explorer上で以下の作業をしてみては？
このサイトを拝見しました。ダウンロードしたファイルに適用されるようになっています。
作成したファイルなので3)項は表示されません。

こちらでもいろいろ調べてみます。
（KLY） 2018/07/03(火) 07:26

 どうもApplication.Helpはパスを補完してくれないようだ。
 Excelブックを同じところにchmファイルがあるのであれば
　Application.Help ThisWorkbook.Path & "\帳票管理.chm" 
 で試してみてくれ。
 Excel2010ではそれでうまくいった。
（ねむねむ） 2018/07/03(火) 10:46

ねむねむさん
　>Application.Help ThisWorkbook.Path & "\帳票管理.chm"
　で試してみてくれ。

試してみましたがどうしてもExcelファイルが開きます。＜Excel2013＞

　>どうもApplication.Helpはパスを補完してくれないようだ。

パスの設定方法をみなおしてみます。
（KLY） 2018/07/03(火) 13:20

ねむねむさん
アドバイス有難うございました。

パスを先に取得してから実行すると開くようになりました。

Private Sub CommandButton_Click()
Dim パス As String
　パス = ThisWorkbook.Path
　Application.Help パス & "\仕様比較.chm"
End Sub

Application.Help ThisWorkbook.Path & "\仕様比較.chm"で
開かないのは疑問に残りますけど。
（KLY） 2018/07/03(火) 20:26

コメント返信：

[ 一覧(最新更新順) ]

[[20180701132623]] 『作成したヘルプファイルを呼び出す』（KLY） ページの最後に飛ぶ

[[20180701132623]]　『作成したヘルプファイルを呼び出す』（KLY）　ページの最後に飛ぶ