访问错误语言 - 执行时错误'-2147319779(8002801d)'

时间:2018-06-15 11:10:29

标签: ms-access access-vba runtime-error

我有一个函数可以检查excel配置是英文版还是西班牙文,以设置电子表格的名称。

Public Function VersionExcel(ByVal appxls As excel.Application) As String

   Dim Hoja1 As String

   'Si aplicacion en ingles

    If (appxls.LanguageSettings.LanguageID(1) = 1033) Then

        Hoja1 = "Sheet1"

    Else

        Hoja1 = "Hoja1"

    End If

    VersionExcel = Hoja1

End Function 

它已经工作了近10年,但最近我在执行该代码时遇到了这个错误:

[代码停止] https://imgur.com/ZlQXv0o

[错误讯息] https://imgur.com/BUEYAGA

  执行时间

“错误'-2147319779(8002801d)'。   对象'_Application'“

的方法'LanguageSettings'错误

在某些电脑上工作,而在其他电脑上则不行。为了得到这个错误,配置Excel会出现什么问题?

我已经检查过引用是否相同。但是我对这个问题感到很疯狂。

1 个答案:

答案 0 :(得分:1)

这可能是迟到/早期绑定问题。 如果您的用户具有不同版本的Access,并且开发/编译的版本是更高版本,则早期绑定对象引用将不起作用。

查看https://support.microsoft.com/en-gb/help/245115/using-early-binding-and-late-binding-in-automation以获取更多帮助