如何使用 Excel 设置 COM 服务器接口？

Question

版本
Excel 2003
Windows XP
SimaPro 7.3.0 开发版
使用工作计算机，但在此计算机上设置为管理员
Excel/VBA 中引用的库： Visual Basic for Applications； Microsoft Excel 11.0 对象库； OLE自动化； Microsoft Office 11.0 对象库； Microsoft Forms 2.0 对象库； COM+ 1.0 管理类型库； COM MakeCab 1.0 类型库； COM+ 服务类型库； SimaPro 库
我：初学者

我想要做什么 我正在使用一个名为 SimaPro 的程序，它存储“生命周期分析”信息的数据库。该程序内置了 COM 接口功能。该程序声明它确实支持 Excel/VBA（但没有指定版本）。

我正在尝试将此程序和/或 COM 服务器连接到 excel，以便我可以通过 excel 与信息进行交互。

我做了什么
我已经完成了他们列出的程序：
-打开 SimaPro
-注册COM服务器
-然后我将以下代码粘贴到 VBA 中并尝试运行它。这段代码是软件公司提供的示例代码，我只编辑了SP.Server、SP.Alias、SP.Login和SP.OpenProject字段（下面是编辑后的）。

发生了什么
运行时错误：“-2147418113 (8000ffff)”：
自动化错误
灾难性的失败

问题
-服务器名称正确吗？我已经阅读了一些关于 COM 服务器的内容，但我不知道我放入它的方式是否采用正确的“形式”
-这是否与某些已注册/未注册的 DLL 有关？我曾与公司的 IT 人员和软件程序员一起工作。他们都不太熟悉 COM，但有人指出 DLL 可能是问题所在。

感谢您的帮助！！

这是我输入的代码：

Sub CreateProcess()
Dim SP As SimaProServer
Dim PC As Process
Dim PC2 As Process
Dim PL As ProcessLine
Dim Param As ParamLine
Dim Subs As Substance
Set SP = New SimaProServer
SP.Server = "Local Server"
SP.Alias = "C:\Documents and Settings\All Users\Documents\SimaPro\Database\"
SP.Database = "Professional"
SP.OpenDatabase
SP.Login "", ""
SP.OpenProject "PROJECT", ""
' Not project's actual name, not allowed to state name of project
SP.CreateSubstance "Air", Subs
Subs.CASNumber = "4-5-13"
Subs.Name = "Some substance"
Subs.DefaultUnit = "kg"
Subs.Update
SP.CreateProcess ptMaterial, PC
Set PL = PC.AddLine(ppProduct, -1)
PL.ObjectName = "Steel 2"
PL.UnitName = "kg"
PL.Amount = "2"
PL.Comment.Add ("My new created process")
PL.CategoryPath = "Chemicals\inorganic"
PC.Update
' create second material process Case
SP.CreateProcess ptMaterial, PC2
Set PL = PC2.AddLine(ppProducts, 0)
PL.ObjectName = "Case 2"
PL.UnitName = "kg"
PL.Amount = "10"
Set Param = PC2.AddParamLine(ptInputParameter, -1)
Param.Name = "A"
Param.Value = "2,3"
' add input from Steel
Set PL = PC2.AddLine(ppMaterialsFuels, -1)
' input from steel
PL.SetProduct "Introduction to SimaPro 7", ptMaterial, "Steel 2"
PL.Amount = "8"
PL.UnitName = "kg"
Set PL = PC2.AddLine(ppAirborneEmissions, -1)
' input from steel
PL.SetSubstance "Some substance", ""
PL.Amount = "A+1"
PL.UnitName = "kg"
PC2.Update
SP.Logout
SP.CloseDatabase
Set SP = Nothing
End Sub

Answer 1

鉴于这已经是一年多前的事了。我假设你已经成功了。如果您还没有，我可能知道根本原因可能是什么。

我曾经遇到过同样的错误，从您对服务器、别名和登录名的更改中，我能够使其运行。不同的一件事是您已将项目名称从“Introduction to SimaPro 7”更改为“Project”。老实说，我的 VBA 知识为零（这里不是谦虚）。因此，我推测没有可以打开的项目名称“Project”。我不确定VBA是否会自动创建一个项目，如果它找不到它。您可以尝试创建一个名为“Project”的项目，也可以将其重命名回来。我有兴趣看看这是否有效。

Answer 2

自动化错误通常意味着您尝试使用的 COM 库中存在问题。由于它是一个运行时错误，因此可能是非常愚蠢的事情，例如缺少参数或错误的路径或访问权限。在我看来，这也意味着图书馆设计得不是很好。

由于您不是该库的作者，因此您没有太多选择。您可以尝试联系供应商以获取更多文档。你也可以祈祷设计者考虑过日志记录——检查事件日志；如果你幸运的话，你可能会在那里发现一些有趣的东西。

回答你的第一个问题，如果你引用了库并且代码编译了 - 这意味着你已经做了所有事情。