c# - 如何从我的 C# 代码中捕获 Microsoft Access VBA 调试错误？

Question

我有一个 C# 程序可以打开多个 Microsoft Access 文件，并从每个文件中执行函数。

基本上，代码看起来像这样:

Microsoft.Office.Interop.Access.Application app =
    new Microsoft.Office.Interop.Access.Application();

app.Visible = true;
app.OpenCurrentDatabase(accessFileFullPath, false, "");

//Call the function
app.Eval(function);

但是，当 VBA 代码中出现调试错误时，我想将其捕获到我的 C# 程序中。

请不要回答:“在您的 VBA 程序中捕获错误”。由于我不会详细说明的原因，这是不可能的。

我过去使用的一种方法是让一个线程间歇性地监视任何 Visual Basic 调试窗口的句柄(FindWindowEx Win32 函数返回一个非零值)。我不喜欢这种方法，也不想继续使用它。

我找到了 this thread ，适用于 Microsoft Excel。本质上，它使用 Microsoft.VisualBasic.CallByName() 函数，该函数显然可以被困在 try/catch block 中，无需用户交互。但是，我无法使它与 Microsoft Access 一起使用——主要是因为我无法弄清楚如何使用此命令调用函数/子程序。

如有任何建议，我们将不胜感激!

编辑:正如我在下面的一个答案中提到的，我尝试将 Eval() 包装在 try/catch block 中，而我的 C# 程序似乎忽略了它，直到用户点击“Microsoft Visual Basic”错误对话框上的“结束”按钮。我不想要任何用户交互，而是想捕获 VBA 错误以便在我的 C# 程序中处理。

Answer 1

更新:出于某种原因，我之前发布的代码仅在 Access 文件格式为 2000 时有效。我已确认此新代码也适用于 Access 2002 和 2010 文件。

代码:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices;
using VBA = Microsoft.Vbe.Interop;

namespace CaptureVBAErrorsTest
{
    class CaptureVBAErrors
    {
        public void runApp(string databaseName, string function)
        {
            VBA.VBComponent f = null;
            VBA.VBComponent f2 = null;
            Microsoft.Office.Interop.Access.Application app = null;
            object Missing = System.Reflection.Missing.Value;
            Object tempObject = null;

            try
            {
                app = new Microsoft.Office.Interop.Access.Application();
                app.Visible = true;
                app.OpenCurrentDatabase(databaseName, false, "");

                //Step 1: Programatically create a new temporary class module in the target Access file, with which to call the target function in the Access database

                //Create a Guid to append to the object name, so that in case the temporary class and module somehow get "stuck",
                //the temp objects won't interfere with other objects each other (if there are multiples).
                string tempGuid = Guid.NewGuid().ToString("N");

                f = app.VBE.ActiveVBProject.VBComponents.Add(VBA.vbext_ComponentType.vbext_ct_ClassModule);

                //We must set the Instancing to 2-PublicNotCreatable
                f.Properties.Item("Instancing").Value = 2;
                f.Name = "TEMP_CLASS_" + tempGuid;
                f.CodeModule.AddFromString(
                    "Public Sub TempClassCall()\r\n" +
                    "   Call " + function + "\r\n" +
                    "End Sub\r\n");

                //Step 2: Append a new standard module to the target Access file, and create a public function to instantiate the class and return it.
                f2 = app.VBE.ActiveVBProject.VBComponents.Add(VBA.vbext_ComponentType.vbext_ct_StdModule);
                f2.Name = "TEMP_MODULE_" + tempGuid
                f2.CodeModule.AddFromString(string.Format(
                    "Public Function instantiateTempClass_{0}() As Object\r\n" +
                    "    Set instantiateTempClass_{0} = New TEMP_CLASS_{0}\r\n" +
                    "End Function"
                    ,tempGuid));

                //Step 3: Get a reference to a new TEMP_CLASS_* object
                tempObject = app.Run("instantiateTempClass_" + tempGuid, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing, ref Missing);

                //Step 4: Call the method on the TEMP_CLASS_* object.
                Microsoft.VisualBasic.Interaction.CallByName(tempObject, "TempClassCall", Microsoft.VisualBasic.CallType.Method);
            }
            catch (COMException e)
            {
                MessageBox.Show("A VBA Exception occurred in file:" + e.Message);
            }
            catch (Exception e)
            {
                MessageBox.Show("A general exception has occurred: " + e.StackTrace.ToString());
            }
            finally
            {
                //Clean up
                if (f != null)
                {
                    app.VBE.ActiveVBProject.VBComponents.Remove(f);
                    Marshal.FinalReleaseComObject(f);
                }

                if (f2 != null)
                {
                    app.VBE.ActiveVBProject.VBComponents.Remove(f2);
                    Marshal.FinalReleaseComObject(f2);
                }

                if (tempObject != null) Marshal.FinalReleaseComObject(tempObject);

                if (app != null)
                {
                    //Step 5: When you close the database, you call Application.Quit() with acQuitSaveNone, so none of the VBA code you just created gets saved.
                    app.Quit(Microsoft.Office.Interop.Access.AcQuitOption.acQuitSaveNone);
                    Marshal.FinalReleaseComObject(app);
                }

                GC.Collect();
                GC.WaitForPendingFinalizers();
            }
        }
    }
}

详情:

根据 the thread I had linked to通过 Mike Rosenblum , CallByName() 可以在 C# 中执行 Office 代码，并且可以捕获 VBA 异常(Application.Run() 和 Application.Eval() 似乎只在用户之后被捕获与调试窗口交互)。问题是 CallByName() 需要一个 [实例化] 对象来调用方法。默认情况下，Excel 具有 ThisWorkbook 对象，该对象在打开工作簿时实例化。据我所知，Access 没有可 Access 的类似对象。

A subsequent post on the same thread建议将代码动态添加到 Excel 工作簿以允许调用标准模块中的方法。在 ThisWorkbook 上这样做相对简单，因为 ThisWorkbook 有代码隐藏并且会自动实例化。但是我们如何在 Access 中执行此操作？

该解决方案以下列方式结合了上述两种技术:

1. 以编程方式在目标 Access 文件中创建一个新的临时 类模块，用于调用 Access 数据库中的目标函数。请记住，类的 Instancing 属性必须设置为 2 - PublicNotCreatable。这意味着该类无法在该项目之外创建，但可以公开 Access 。
2. 将一个新的标准模块附加到目标 Access 文件，并创建一个公共(public)函数来实例化该类并返回它。
3. 通过调用步骤 (2) 中的 VBA 代码，获取对 C# 代码中对象的引用。这可以使用 Access 互操作的 Application.Run() 来完成。
4. 使用 CallByName 在 (3) 中的对象上调用方法——调用标准模块中的方法，并且是可捕获的。
5. 当您关闭数据库时，您使用 acQuitSaveNone 调用了 Application.Quit()，因此您刚刚创建的 VBA 代码都不会被保存。

要获取 VBA 错误描述，请使用“e.Message”，其中“e”是 COMException 对象。

确保将以下 .NET 引用添加到 C# 项目:

Microsoft.Office.Interop.Access
Microsoft.Vbe.Interop
Microsoft.VisualBasic