良好的 VBA 脚本无法在其他计算机上 运行
Good VBA script fails to run on other computer
我有一个非常复杂的 excel 宏工作簿。 VBA 代码在我所在位置的 PC 上似乎 运行 非常好。一旦我将它发送给一位德国同事,它就无法在代码的意外位置 运行 。
我遇到的最后一个问题是 Runtime error 5
,当代码尝试修改 UserForm
的 Caption
(以及一些文本框和 cmd 按钮)时。
以前我们遇到过与 SlicerCache(x).ClearManualFilter
相同的问题,但不知何故我自愈了......
我的第一个想法是打破嵌套 With
并查看哪一行导致失败,但它立即是第一行。我假设它会对所有行执行相同的操作。
我检查了 windows 和办公室设置:
- 我运行正在使用 Win10,英语语言设置和匈牙利语格式设置。 -> 代码运行ning well.
- 我当地的同事运行 使用匈牙利语和格式的相同系统。 -> 代码运行ning well.
- 有问题的同事运行s Win10 德语和格式设置。 -> 代码无法 运行.
- 我们在 VBA 编辑器中都有相同的参考库,none 缺失。 (我假设它由 excel 文件本身携带。)
- 我有 Microsoft 365 MSO (16.0.13801.21050) 32 位,他 运行ning 16.013801.21004 32 位。 (我想更新是由 IT 部门安排的。)这部分代码比我最新的办公室更新早了几个月,所以我认为这不是原因。
sub
由 CommandButton_Click
事件调用,并调用用户表单 zurueckExport
。表格被设计成可以为不同的目的调用,因此必须根据需要修改标题。
我有 运行 的想法,不明白是什么原因造成的。有人可以帮我解决这个问题吗?我会很高兴。
Public Sub verExport()
With zurueckExport
.Caption = "Version Exportieren zum Creo"
.Label1.Caption = "Welche Version möchten Sie zum Creo exportieren?"
.CommandButtonExportieren.Visible = True
.CommandButtonZurueckladen.Visible = False
.CommandButtonKennlinie.Visible = False
.KennlinieFormat.Visible = False
.Show
End With
End Sub
字幕太长,在另一台计算机上生成了错误消息。
分辨率:
我在 UserForm
中添加了几个不同的标签并修改了它们的可见性而不是覆盖标题。
非常感谢@J0eBl4ck 的想法。
我有一个非常复杂的 excel 宏工作簿。 VBA 代码在我所在位置的 PC 上似乎 运行 非常好。一旦我将它发送给一位德国同事,它就无法在代码的意外位置 运行 。
我遇到的最后一个问题是 Runtime error 5
,当代码尝试修改 UserForm
的 Caption
(以及一些文本框和 cmd 按钮)时。
以前我们遇到过与 SlicerCache(x).ClearManualFilter
相同的问题,但不知何故我自愈了......
我的第一个想法是打破嵌套 With
并查看哪一行导致失败,但它立即是第一行。我假设它会对所有行执行相同的操作。
我检查了 windows 和办公室设置:
- 我运行正在使用 Win10,英语语言设置和匈牙利语格式设置。 -> 代码运行ning well.
- 我当地的同事运行 使用匈牙利语和格式的相同系统。 -> 代码运行ning well.
- 有问题的同事运行s Win10 德语和格式设置。 -> 代码无法 运行.
- 我们在 VBA 编辑器中都有相同的参考库,none 缺失。 (我假设它由 excel 文件本身携带。)
- 我有 Microsoft 365 MSO (16.0.13801.21050) 32 位,他 运行ning 16.013801.21004 32 位。 (我想更新是由 IT 部门安排的。)这部分代码比我最新的办公室更新早了几个月,所以我认为这不是原因。
sub
由CommandButton_Click
事件调用,并调用用户表单zurueckExport
。表格被设计成可以为不同的目的调用,因此必须根据需要修改标题。
我有 运行 的想法,不明白是什么原因造成的。有人可以帮我解决这个问题吗?我会很高兴。
Public Sub verExport()
With zurueckExport
.Caption = "Version Exportieren zum Creo"
.Label1.Caption = "Welche Version möchten Sie zum Creo exportieren?"
.CommandButtonExportieren.Visible = True
.CommandButtonZurueckladen.Visible = False
.CommandButtonKennlinie.Visible = False
.KennlinieFormat.Visible = False
.Show
End With
End Sub
字幕太长,在另一台计算机上生成了错误消息。
分辨率:
我在 UserForm
中添加了几个不同的标签并修改了它们的可见性而不是覆盖标题。
非常感谢@J0eBl4ck 的想法。