Excel VBA 运行时错误“32809” - 尝试理解它

excel

根据 excel VBA 运行时错误“32809” - 尝试理解它

excel VBA 是一种强大的编程语言，可以帮助我们自动化处理excel工作簿中的数据和操作。然而，在使用VBA编写的宏中，我们有时可能会遇到一些运行时错误。其中一个常见的错误是“运行时错误32809”。本文将尝试理解这个错误，并提供一些案例代码来说明。

什么是运行时错误32809？

运行时错误32809是指在VBA代码中执行时发生的错误，它通常与excel工作簿的安全性设置相关。当excel工作簿被标记为“不受信任”时，尝试运行包含不受支持的控件（如ActiveX控件）的VBA宏时，就会触发此错误。

这通常发生在使用较新版本的excel（如excel 2010或更高版本）打开较旧版本的工作簿时。较新版本的excel会将较旧版本的工作簿视为不受信任，因为它们可能包含不兼容的控件或代码，以防止潜在的安全风险。

如何解决运行时错误32809？

要解决运行时错误32809，我们可以尝试以下几种方法：

1. 更改excel工作簿的文件类型：

- 打开需要修复的excel工作簿。

- 单击“文件”选项卡，然后选择“选项”。

- 在“信任中心”选项卡中，点击“信任中心设置”按钮。

- 在“受信任的位置”中，选择您要修改的工作簿所在的文件夹。

- 单击“添加新位置”，然后浏览到工作簿所在的文件夹。

- 确认更改并关闭所有对话框。

- 重新打开工作簿并尝试运行宏，看看是否解决了错误。

2. 禁用不受信任的VBA代码：

- 打开需要修复的excel工作簿。

- 单击“文件”选项卡，然后选择“选项”。

- 在“信任中心”选项卡中，点击“信任中心设置”按钮。

- 在“宏设置”中，选择“禁用所有宏，无论其来源是否受信任”。

- 确认更改并关闭所有对话框。

- 重新打开工作簿并尝试运行宏，看看是否解决了错误。

3. 更新excel版本：

如果您使用的是较旧版本的excel，尝试升级到较新版本，以便兼容较旧版本的工作簿。

案例代码：

下面是一个简单的示例代码，演示了如何触发运行时错误32809以及如何解决它。

VBA
Sub TriggerError()
    ' 触发运行时错误32809
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1").Select
End Sub
Sub FixError()
    ' 解决运行时错误32809
    Application.DisplayAlerts = False
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    ws.OLEObjects.Add(ClassType:="Forms.TextBox.1").Select
    Application.DisplayAlerts = True
End Sub

在上面的代码中，TriggerError子过程会尝试在活动工作表上添加一个ActiveX文本框，这将触发运行时错误32809。FixError子过程演示了如何解决这个错误，通过在工作表上添加一个ActiveX文本框来替代原来的操作。

：

excel VBA 运行时错误32809是一个常见的错误，通常与excel工作簿的安全性设置有关。通过更改excel工作簿的文件类型、禁用不受信任的VBA代码或升级excel版本，我们可以解决这个错误。在编写VBA宏时，我们应该注意工作簿的安全性设置，以避免出现不受支持的控件或代码而引发这个错误。