jjzjj

c++ - 实例化 ActiveX 控件后，Excel 中出现 Visual Basic 运行时错误 -2147319765 (8002802b) 的原因是什么？

coder 2024-02-20 原文

我已经使用 C++ 创建了一个 ActiveX 控件。我使用 Visual Basic 代码在 Excel 工作表中实例化控件。我只能运行 VB 脚本一次，后续运行在尝试访问“ActiveSheet”变量时会导致以下运行时错误:

Microsoft Visual Basic

Run-time error '-2147319765 (8002802b)':

Automation error
Element not found

我正在尝试找出导致此错误的原因以及如何修复它？

作为实验，我尝试创建一个由 Visual Studio 向导(在 VS 2005 和 2008 中)生成的简单 ActiveX 控件。我没有在这个测试用例中添加或修改任何代码。简单的测试用例仍然会导致这个错误。

系统中的其他 ActiveX 控件不会从 VB 代码导致此错误(例如，我尝试实例化“位图图像”)。

这是VB代码(我录的一个宏，但是手写的VB也有同样的问题):

Sub Macro1()
    ActiveSheet.OLEObjects.Add(ClassType:="test.test_control.1" _
        , Link:=False, DisplayAsIcon:=False).Select
End Sub

有人能给我一个答案吗？或者，任何指向可能有帮助的资源的指针都将不胜感激。

谢谢

最佳答案

您已经创建了对 Excel 应用程序的“非限定”引用，您无法通过使用不应该在 VB 6.0 中使用的专用于 VBA 的全局变量来释放该应用程序。

这是使用 VB 6.0 的一个不幸的副作用，但这是我所知道的使用 VB6 的唯一问题，而且很容易修复。

您的问题源于使用“ActiveSheet”全局变量。当使用 VBA 时，这很好，但是当使用 VB 6.0 时，您必须避免这种情况，否则您将创建一个无法发布的 Excel 应用程序。这种方法第一次运行良好，但会在您的例程运行第二次时导致各种未定义的行为。

在您的示例中，代码应该执行如下操作:

Sub Macro1()
    Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application

    xlApp.ActiveSheet.OLEObjects.Add(ClassType:="test.test_control.1" _
        , Link:=False, DisplayAsIcon:=False).Select

    ' Then when done:
    xlApp.Quit()
    xlApp = Nothing
End Sub

有关一般如何处理此问题的详细讨论，请参阅:

VB 6.0 教程 - 查找和修复不合格的引用 ( http://www.xtremevbtalk.com/showthread.php?p=900556#post900556 )

有关此问题的 Microsoft 文档，请参阅:

Excel 自动化代码第二次运行失败 (MSKB 178510) ( http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q178/5/10.asp )

在 Visual Basic 中使用早期绑定(bind)时 Office 自动化的错误或意外行为 (MSKB 319832) ( http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q319832& )

编辑:请注意，由于某些原因，使用 html 的“a”标签无法处理这些链接。有人可能需要查看解析器？

关于c++ - 实例化 ActiveX 控件后，Excel 中出现 Visual Basic 运行时错误 -2147319765 (8002802b) 的原因是什么？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/569950/

2147319765ampsectionsupportmicrosoftc++vbaactivexexcel

有关c++ - 实例化 ActiveX 控件后，Excel 中出现 Visual Basic 运行时错误 -2147319765 (8002802b) 的原因是什么？的更多相关文章

  1. ruby-on-rails - Rails 常用字符串(用于通知和错误信息等) - 2

    大约一年前，我决定确保每个包含非唯一文本的Flash通知都将从模块中的方法中获取文本。我这样做的最初原因是为了避免一遍又一遍地输入相同的字符串。如果我想更改措辞，我可以在一个地方轻松完成，而且一遍又一遍地重复同一件事而出现拼写错误的可能性也会降低。我最终得到的是这样的:moduleMessagesdefformat_error_messages(errors)errors.map{|attribute,message|"Error:#{attribute.to_s.titleize}#{message}."}enddeferror_message_could_not_find(obje

  2. ruby-on-rails - 如何优雅地重启 thin + nginx？ - 2

    我的瘦服务器配置了nginx，我的ROR应用程序正在它们上运行。在我发布代码更新时运行thinrestart会给我的应用程序带来一些停机时间。我试图弄清楚如何优雅地重启正在运行的Thin实例，但找不到好的解决方案。有没有人能做到这一点？ 最佳答案 #Restartjustthethinserverdescribedbythatconfigsudothin-C/etc/thin/mysite.ymlrestartNginx将继续运行并代理请求。如果您将Nginx设置为使用多个上游服务器，例如server{listen80;server

  3. ruby-on-rails - 迷你测试错误 : "NameError: uninitialized constant" - 2

    我遵循MichaelHartl的“RubyonRails教程:学习Web开发”，并创建了检查用户名和电子邮件长度有效性的测试(名称最多50个字符，电子邮件最多255个字符)。test/helpers/application_helper_test.rb的内容是:require'test_helper'classApplicationHelperTest在运行bundleexecraketest时，所有测试都通过了，但我看到以下消息在最后被标记为错误:ERROR["test_full_title_helper",ApplicationHelperTest,1.820016791]test

  4. ruby-on-rails - 如何在 Rails View 上显示错误消息？ - 2

    我是rails的新手，想在form字段上应用验证。myviewsnew.html.erb.....模拟.rbclassSimulation{:in=>1..25,:message=>'Therowmustbebetween1and25'}end模拟Controller.rbclassSimulationsController我想检查模型类中row字段的整数范围，如果不在范围内则返回错误信息。我可以检查上面代码的范围，但无法返回错误消息提前致谢 最佳答案 关键是您使用的是模型表单，一种显示ActiveRecord模型实例属性的表单。c

  5. 使用 ACL 调用 upload_file 时出现 Ruby S3 "Access Denied"错误 - 2

    我正在尝试编写一个将文件上传到AWS并公开该文件的Ruby脚本。我做了以下事情:s3=Aws::S3::Resource.new(credentials:Aws::Credentials.new(KEY,SECRET),region:'us-west-2')obj=s3.bucket('stg-db').object('key')obj.upload_file(filename)这似乎工作正常，除了该文件不是公开可用的，而且我无法获得它的公共(public)URL。但是当我登录到S3时，我可以正常查看我的文件。为了使其公开可用，我将最后一行更改为obj.upload_file(file

  6. ruby-on-rails - 错误 : Error installing pg: ERROR: Failed to build gem native extension - 2

    我克隆了一个rails仓库，我现在正尝试捆绑安装背景:OSXElCapitanruby2.2.3p173(2015-08-18修订版51636)[x86_64-darwin15]rails-v在您的Gemfile中列出的或native可用的任何gem源中找不到gem'pg(>=0)ruby​​'。运行bundleinstall以安装缺少的gem。bundleinstallFetchinggemmetadatafromhttps://rubygems.org/............Fetchingversionmetadatafromhttps://rubygems.org/...Fe

  7. ruby - ＃之间？ Cooper 的 *Beginning Ruby* 中的错误或异常 - 2

    在Cooper的书BeginningRuby中，第166页有一个我无法重现的示例。classSongincludeComparableattr_accessor:lengthdef(other)@lengthother.lengthenddefinitialize(song_name,length)@song_name=song_name@length=lengthendenda=Song.new('Rockaroundtheclock',143)b=Song.new('BohemianRhapsody',544)c=Song.new('MinuteWaltz',60)a.betwee

  8. ruby-on-rails - 每次我尝试部署时，我都会得到 - (gcloud.preview.app.deploy) 错误响应 : [4] DEADLINE_EXCEEDED - 2

    我是Google云的新手，我正在尝试对其进行首次部署。我的第一个部署是RubyonRails项目。我基本上是在关注thisguideinthegoogleclouddocumentation.唯一的区别是我使用的是我自己的项目，而不是他们提供的“helloworld”项目。这是我的app.yaml文件runtime:customvm:trueentrypoint:bundleexecrackup-p8080-Eproductionconfig.ruresources:cpu:0.5memory_gb:1.3disk_size_gb:10当我转到我的项目目录并运行gcloudprevie

  9. ruby-on-rails - Rails 5 Active Record 记录无效错误 - 2

    我有两个Rails模型，即Invoice和Invoice_details。一个Invoice_details属于Invoice，一个Invoice有多个Invoice_details。我无法使用accepts_nested_attributes_forinInvoice通过Invoice模型保存Invoice_details。我收到以下错误:(0.2ms)BEGIN(0.2ms)ROLLBACKCompleted422UnprocessableEntityin25ms(ActiveRecord:4.0ms)ActiveRecord::RecordInvalid(Validationfa

  10. arrays - 这是 Ruby 中 Array.fill 方法的错误吗？ - 2

    这个问题在这里已经有了答案:Arraysmisbehaving(1个回答)关闭6年前。是否应该这样，即我误解了，还是错误？a=Array.new(3,Array.new(3))a[1].fill('g')=>[["g","g","g"],["g","g","g"],["g","g","g"]]它不应该导致:=>[[nil,nil,nil],["g","g","g"],[nil,nil,nil]]

随机推荐