将 vba 转换为 vb6 并创建 .dll - 如何 - 提示、技巧和风险

Question

我应该将用 VBA (Excel) 编写的大量代码转换为 VB6。但我真的不知道我必须照顾什么或从哪里开始。因此，如果能从 VB6 专家那里得到一些提示那就太好了。

我已经安装了 MS Visual Studio 并进行了一些尝试。但我不是 VB6 专家，并不真正知道我必须做什么。

最终目标是将当前放置在一个 Excel VBA 宏中的所有 VBA 代码放入 VB6 项目中，并从中创建一个 .dll。这个 .dll 应该被 excel 引用，并且 excel 应该像现在一样运行:-)

例如，我需要做什么才能将此 vba 代码转换为 VB6。

Public Function getParameterNumberOfMaterial() As Integer
10        On Error Resume Next
          Dim a As String
20        a = Sheets("Parameters").name

30        If IsNumeric(Application.Worksheets(a).range("C3").Value) Then
40            If Application.Worksheets(a).range("C3").Value > 0 Then

50                getParameterNumberOfMaterial = Application.Worksheets(a).range("C3").Value
60            Else
70                MsgBox "Please check cell C3 in the sheet 'Parameters'. It should include a numeric value which is greater than zero"
80                MsgBox "Parameter Number of Material/Cost is set to the default value of 10"
90                getParameterNumberOfMaterial = 10
100           End If
110       Else
120           MsgBox "Please check cell C3 in the sheet 'Parameters'. It should include a numeric value which is greater than zero"
130           MsgBox "Parameter Number of Material/Cost is set to the default value of 10"
140           getParameterNumberOfMaterial = 10
150       End If
160       On Error GoTo 0
End Function

编辑：是的，如果可以将 vba 代码转换为 .dll 这也可以。那么我就不必转换代码了。但我认为只能用 vb6 代码创建 .dll。

Answer 1

@Tom

好吧，我实际上正在和你一起学习这个，所以这里是

VB.Net代码（我正在使用.net 2.0）

---

在Visual Studio 2005中打开一个新的类库项目
然后删除已写入的所有垃圾并粘贴代码

'First thing to do is add a reference the Excel Runtime

Imports Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices


Namespace ExcelExample

' the following is an Attribute spcifying that the class can be accesses in a unmanaged (non-.net) way

Imports Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices


 Public Class ExcelVB


    Public Function getParameterNumberOfMaterial() As Integer
        On Error Resume Next
        Dim a As String
        Dim appInst As New Microsoft.Office.Interop.Excel.Application
        a = appInst.Sheets("Parameters").name

        If IsNumeric(appInst.Worksheets(a).range("C3").Value) Then
            If appInst.Worksheets(a).range("C3").Value > 0 Then

                getParameterNumberOfMaterial = appInst.Worksheets(a).range("C3").Value
            Else
                MsgBox("Please check cell C3 in the sheet 'Parameters'. It should include a numeric value which is greater than zero")
                MsgBox("Parameter Number of Material/Cost is set to the default value of 10")
                getParameterNumberOfMaterial = 10
            End If
        Else
            MsgBox("Please check cell C3 in the sheet 'Parameters'. It should include a numeric value which is greater than zero")
            MsgBox("Parameter Number of Material/Cost is set to the default value of 10")
            getParameterNumberOfMaterial = 10
        End If
        On Error GoTo 0
    End Function
End Class

End Namespace

按 F6 构建解决方案
转到 Project->Project Proerties 并检查 Register for COm interop

因此输出是 .DLL 和 .tlb ，Excel 文件应引用 .tlb 文件，

您必须通过 regasm /codebase c:\Excel 注册 DLL \dllname.dll

然后您可以从 Excel 访问该函数。

这是我的项目文件夹的链接，解压它，
对 .dll 的引用

您将找到一个 Excel 工作簿，其中包含通过 .tlb http://cid-4af152a1af4d7db8.skydrive.live.com/self.aspx/Documents/Debug.rar

这是另一篇很棒的文章

http://richnewman.wordpress .com/2007/04/15/a-beginner%E2%80%99s-guide-to-calling-a-net-library-from-excel/

Answer 2

转换为 VB6 很容易。

1. 创建 VB6 DLL 项目。在 Web 上搜索如何执行此操作以及如何公开方法、类和函数的说明。

2. 添加对“Microsoft Office Excel ## 库”的引用。

3. 在将作为 DLL 中的方法公开的项目过程中，添加以下代码：

   Dim E As Excel.Application
   设置 E = GetObject(, "Excel.Application")
   '或者如果 Excel 未运行，请使用 CreateObject("Excel.Application")
   “您可以使用错误处理来确定您需要哪一个。
   

4. 继续使用常规 VBA 代码，进行一项修改：全局访问对象，例如 < code>ActiveSheet 或 ActiveWorkbook 或 Sheets 必须变为 E.ActiveSheet、E.ActiveWorkbook 和 < code>E.Sheets。

如果您的 VBA 项目中有表单，则转换它们会需要更多工作，因为 VB6 和 VBA 中的表单完全不同（从长远来看，它们的工作方式并不相同）。

Answer 3

@Tom Tom

将代码从 .VBA 转换为 vb6 应该没有问题。事实上，您实际上不需要这样做。

问题是在 VB6 上下文中，语言无法理解

“Application.Worksheets(a).range("C3").Value)”的含义，

对象 Application 在 VB6

VBA（您拥有的 VBA 版本）中具有不同的含义是几乎是 Excel（或 word 或 MSO 附带的任何内容）中 VB6 的自定义实现。

尝试从 VB6 访问 Excel UI 是一个坏主意（我什至不确定是否可能），

您应该做的是将业务逻辑与代码分开，然后将其放入 VB6 库中。

例如，您的代码（据我所知）返回单元格 C3 的值，

它与 Excel UI 密切相关，因此如果不是不可能将代码转换为 VB6，那将非常适得其反。

因为即使您转换代码，大多数变量（如 (Application.Worksheets(a).range("C3").Value) 也必须从 VBA 调用，这是毫无意义的，

但是如果您有任何其他纯业务逻辑，那么可以轻松移植（这很有趣，因为真的没有什么可移植的）