突然有几个VBA宏错误，大多是32809

Question

突然间，我的excel文件在启动时产生了很多错误 自错误开始之前，未对文件进行任何更改。

错误示例：

错误438：

Sheets("setup2").CheckBox4.Caption = "Lägg automatiskt till " & _ 
    Sheets("setup2").Range("L8").Value & " måndag efter jour."

错误32809：

Worksheets(1).Visible = True
Worksheets(1).Cells(42, 3) = ActiveWorkbook.Path
Sheets("setup").Cells(43, 3) = Environ("UserName")
Worksheets(1).Cells(35, 13) = MostRecentDate

工作簿没有密码保护 它的Office 2013（15.0.4659.1000）MSO（15.0.4659.1001）

Answer 1

类似的问题。创建了一个跟踪焊接程序的应用程序。我的机器运行的是Windows 7和Excel 2010.我创建的任何内容，然后分发到具有不同操作系统或不同Excel版本的其他计算机将出现32809错误，通常与选择工作表有关

Sheets("Data Entry").Select

这将触发应用程序或运行时错误32809。 我尝试了之前提到的所有修复程序（删除所有临时文件，.exd文件等等。没有快乐。

我的解决方案（可能不适合你）

在Excel 2007的计算机上打开应用程序。 在一个宏

中添加了一条无意义的代码注释行

Sheets(sheetName).Select 
'comment of no consequence

并保存。这导致了重新编译。 使用Excel 2007关闭并重新打开 - 全部修复。

如果我在我的机器上向这些应用程序添加任何代码然后分发，运行时总会出现错误，除非我让应用程序在不同的系统上重新编译。我将固定版本发送到运行Excel 2007的另一台机器上，它运行良好。

希望这有意义并且有所帮助

捐赠

Answer 2

错误32809上有类似的帖子：

Excel VBA Run-time Error '32809' - Trying to Understand it

他们提到该文件可能已损坏，并且他们在Siddharth Rout的评论中提出了解决方案：

  

那是因为工作表已损坏。试试这个。创建一个新的   将所有内容从表格复制到新表格然后最后复制   删除该表。它会工作。刚试过并尝试过。

不确定这对你有帮助，但我猜是值得一试。

Answer 3

某些ms更新可能会导致32809错误。 用新的替换所有板材嵌入式按钮（和其他控件）;你可以手动或用一些代码来做。

Answer 4

同样的错误开始出现在我身上，如果当你与他人分享VBA工作簿时发生这种情况，这可能是你的问题。

root是Microsoft在2014年12月推出的安全更新。此问题的Microsoft支持页面位于：http://support.microsoft.com/kb/3025036/EN-US

以下是修复：

1. 在用于创建VBA Excel文件的计算机上，在Windows更新（KB 2726958 for Office 2013 ，KB 2553154 for Office 2010 ，或KB 2596927 Office 2007 ）。
2. 卸载补丁后，打开您遇到问题的VBA文件。对VBA代码进行一些小的编辑，以便Excel重新编译（以防万一）。
3. 在具有Active-X问题的其他计算机上保存文件并进行测试。

希望这可以帮助今天早上在我位置的人。这是一个令人沮丧的问题，很难找到解决方案。

---

来源＆amp;注意到：

[1] Microsoft Update的安全更新详细信息：

  

姓名：Security Update for Microsoft Office 2010 (KB2553154) 32-Bit Edition

     

下载大小：542 KB

     

详细信息：A security vulnerability exists in Microsoft Office 2010 32-Bit Edition that could allow arbitrary code to run when a maliciously modified file is opened. This update resolves that vulnerability.

     

更多信息：http://support.microsoft.com/kb/2553154

在http://support.microsoft.com/kb/3025036/EN-US安装MS14-082安全更新后，

[2] “无法在ActiveX自定义Office解决方案中插入对象”错误

[3] 对于版本化的Excel修补程序的补救KB 2553154,2726958从1月补丁周二失踪 http://www.infoworld.com/article/2868062/operating-systems/january-patch-tuesday-a-yawn-and-several-whimpers-no-relief-for-last-months-kb-2553154-2726958-botc.html

[4] 表单控件在2014年12月更新 http://blogs.technet.com/b/the_microsoft_excel_support_team_blog/archive/2014/12/18/forms-controls-stop-working-after-december-2014-updates-.aspx后停止工作

Answer 5

之前：  （黄金岁月工作正常）

n = sheet（1）.name

现在：

dim ws as new works

设置ws = activeworkbook.sheets（1）

n = ws.name

Answer 6

我们使用以下方法找到了成功。

1. 打开excel的空白版本。
2. 在Excel选项中禁用ActiveX控件。

enter image description here

1. 打开违规文件。 （点击打开时收到的任何错误）
2. 将文件另存为新名称。
3. 激活ActiveX控件。

我们发现在上述步骤解决了所有用户的错误后分发此文件。

希望这有助于其他人。