Question

我有一个Access 2010应用程序，可以创建Excel电子表格。它已经完美地工作了好几个月，但突然有一个用户得到“错误424：找不到对象”。它已经为她工作了一个星期然后失败了。据我们所知，她的电脑没有更新。

我创建了一个测试应用程序并粘贴了下面的代码。除了这一个用户，它适用于所有人。抛出错误的行是“xl.Application.Visible = True”，我认为这是因为它之前的行没有创建它应该具有的对象。

Private Sub cmdTest_Click()

    Dim xl As Object
    Dim ws As Object

    Set xl = CreateObject("Excel.Application")

    xl.Application.Visible = True  ' <-- This line throws the error
    xl.Visible = True
    xl.Interactive = True

    Set ws = xl.Workbooks.Add.Sheets(1)
    ws.Range("A1").Formula = "Test"

End Sub

我已经尝试将循环放入浪费几秒钟，希望它能给出足够的时间来创建对象，但这没有用。我还检查了她机器上的参考文献，但没有遗漏任何内容。

有什么想法吗？谢谢！

Answer 1

我们没有找到真正的解决方案，但我通过切换到“Docmd.Transferspreadsheet”功能来“修复”它。它不像原始版本那样健壮（我无法指定我希望标题行以粗体显示），但它适用于所有用户。

感谢所有评论的人！

错误424 - 找不到对象 - 仅限一个用户

1 个答案: