1

xlam アドインの一部として、Excel 2007 でカスタム UI を作成しました。カスタム タブには、クリックすると Web サイトを開くボタンが含まれています。

使ったThisWorkbook.followHyperlink "address"

アドインはパスワードで保護されているため、xlam アドインでボタンをクリックすると Excel がクラッシュします。.xlsm ファイルで使用すると、すべて正常に動作します。

ThisWorkbook問題はパスワードで保護されていることにあると思います。代わりに使用できますActiveWorkbookが、ワークブックが開いていないとアプリがクラッシュします。

これを回避する方法について何か提案はありますか? (ファイルの保護を解除することはできません)

4

1 に答える 1

1

コメントからの情報と、アクティブなワークブックが開いている場合にのみこれが機能する必要があるという仮定を含めると、次のように変更Thisworkbookすることができます。Activeworkbook

Sub FollowingHyperlink()

   'check if there is anything open
If Not ActiveWorkbook Is Nothing Then
    ActiveWorkbook.FollowHyperlink "http://www.stackoverflow.com"
Else
    'if not... it depends what you have and what you need
    'you could just open any new workbook
    '**This part of code edited**
    'or use this technique to navigate to page using IE:
    Dim ieAPP
    Set ieAPP = CreateObject("InternetExplorer.application")
    ieAPP.Visible = True
    ieAPP.navigate "http://www.stackoverflow.com"
End If

End Sub
于 2013-04-09T05:51:14.987 に答える