自动化错误 80004005

Question

这几天我一直在用这个来打败自己，在互联网上上下搜索。我知道有很多关于 Com Interop 的知识我不太了解，但我已经成功地构建和使用 Excel 中更简单的 DLL。反正都是重点。

运行以下包装在 DLL 中的代码时，我在 Excel VBA 中收到上述错误 -2147467259 80004005 Automation Error Unspecified Error。

[GuidAttribute("96BE21CD-887B-4770-9FAA-CF395375AEA9")]
[ComVisibleAttribute(true)]
interface QInterface
{
    void ConnectionFill(string SQLQuery, string CONStr);
    string QueryValue(int QueryKey);
    string ConnectionValue(int ConnectionKey);
    string outputFile { get; set; }
    void ThreadTest();
}
[ClassInterfaceAttribute(ClassInterfaceType.None)]
[ProgIdAttribute("QueryThread")]
class QueryThread : QInterface
{
    DataSet QueryReturn = new DataSet();
    private ArrayList SQLList = new ArrayList();
    private ArrayList ConList = new ArrayList();
    private string OutputFile;


    public void ConnectionFill(string SQLQuery, string CONStr)
    {
        SQLList.Add(SQLQuery);
        ConList.Add(CONStr);
    }

    public string QueryValue(int QueryKey)
    {
        return SQLList[QueryKey].ToString();
    }

    public string ConnectionValue(int ConnectionKey)
    {
        return ConList[ConnectionKey].ToString();
    }


    public string outputFile
    {
        set { OutputFile = value; }
        get { return OutputFile; }
    }

    public void ThreadTest()
    {
        int i = 0;

        i = SQLList.Count;
        Thread[] myThreads;
        myThreads = new Thread[i];
        for (int t = 0; t != i; t++)
        {

            myThreads[t] = new Thread(() => ThreadRun(SQLList[t].ToString(), ConList[t].ToString()));
            myThreads[t].Name = "Thread " + t;
            myThreads[t].IsBackground = true;
            myThreads[t].Start();
            Thread.Sleep(600);
            if (t > 9)
            {
                myThreads[t - 9].Join();
            }
        }

        for (int t = 0; t != i; t++)
        {
            while (myThreads[t].IsAlive)
            {
                Thread.Sleep(20);
            }
        }

        TextWriter tw = new StreamWriter(OutputFile);
        for (int t = 0; t < QueryReturn.Tables.Count; t++)
        {
            DataTableReader DR = QueryReturn.Tables[t].CreateDataReader();
            while (DR.Read())
            {
                tw.WriteLine("{0} : {1}", DR.GetValue(0), DR.GetValue(1));
            }
        }
        tw.Close();
        QueryReturn.Dispose();
    }

    private void ThreadRun(string SQLString, string ConString)
    {
        try
        {
            OleDbConnection DBCon = new OleDbConnection(ConString);
            DBCon.Open();
            Thread.Sleep(200);
            OleDbCommand DBCmd = new OleDbCommand(SQLString, DBCon);
            OleDbDataAdapter DataAdapter = new OleDbDataAdapter(DBCmd);
            Thread.Sleep(200);
            DataAdapter.Fill(QueryReturn, Thread.CurrentThread.Name.ToString());
            DBCon.Close();
            DataAdapter.Dispose();
            DBCon.Dispose();
            DBCmd.Dispose();
        }
        finally
        {
        }
    }
}

使用此 VBA 代码...

Sub test()

    Dim QT As New QueryThreading.QueryThread
    Dim MyResults As String
    Dim outputfile As String
    Dim InputStuff(1, 1) As String

    InputStuff(0, 0) = "Select DISTINCT * From TrackingData;"
    InputStuff(0, 1) = "Provider =Microsoft.ACE.OLEDB.12.0;Data Source =C:\Users\Nick\Desktop\test.accdb; Persist Security Info =False;Connection Timeout=7;"
    InputStuff(1, 0) = "Select DISTINCT * From TrackingData;"
    InputStuff(1, 1) = "Provider =Microsoft.ACE.OLEDB.12.0;Data Source =C:\Users\Nick\Desktop\test2.accdb; Persist Security Info =False;Connection Timeout=7;"


    QT.ConnectionFill InputStuff(0, 0), InputStuff(0, 1)
    QT.ConnectionFill InputStuff(1, 0), InputStuff(1, 1)
    outputfile = "C:\Users\Nick\Desktop\testrun.txt"
    QT.outputfile = outputfile
    QT.ThreadTest
End Sub

它运行良好是一个纯 C# 控制台应用程序。完美快速地工作，没有任何问题。但是通过 VBA 我得到了错误。

我假设这与在多个线程中调用访问数据库有关。我知道那里有很多垃圾代码，当然我还没有优化，我还处于“玩弄”阶段。

我已经使用了 RegAsm 并启用了 com interop 和所有类似的东西，我可以很好地从返回中读取。所以我知道 DLL 工作正常，就在我填充线程并运行“ThreadTest()”时，我得到了自动化错误。

如果我再次运行它，Excel 会锁定。

任何帮助将不胜感激。

Answer 1

您正在调用 QT.DictionaryFill 虽然我似乎无法在您的 C# 代码中找到相应的方法...如果您将调用改为 QT.ConnectionFill 会发生什么？

另一点：IIRC 然后 VBA 在 STA 中运行对象 - 但不确定是否支持 MTA

编辑：

根据this 相当老的帖子 VBA 不支持多线程...