Question

我在excel 2007中创建了一个自定义UI，作为xlam加载项的一部分。自定义选项卡包含一个按钮，可在单击时打开网站。

我使用了ThisWorkbook.followHyperlink "address"

加载项受密码保护，只要我在xlam加载项中单击按钮，就会导致excel崩溃。当我在.xlsm文件中使用它时，一切正常。

我认为问题出在ThisWorkbook受密码保护。我可以使用ActiveWorkbook代替，但是当没有工作簿打开时应用程序会崩溃。

有什么建议我可以解决这个问题吗？（取消保护文件不是一个选项）

Answer 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

没有工作簿打开时excel vba followhyperlink方法

1 个答案: