0

我正在尝试自动化一些 Excel 报告。目前我需要从 Essbase 服务器检索一些数据,为了实现这一点,我创建了一个宏来检索和设置 Excel 工作表中的数据,我的 VBA 代码如下:

Option Explicit
Declare Function EssVRetrieve Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant, ByVal range As Variant, ByVal lockflag As Variant) As Long
Declare Function EssVConnect Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant, ByVal userName As Variant, ByVal password As Variant, ByVal server As Variant, ByVal application As Variant, ByVal database As Variant) As Long
Declare Function EssVDisconnect Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant) As Long

Sub Essbase_Update_Pulls()
Dim rangeString As String
rangeString = "B3:AC5033"
MsgBox ("Starting macro")
Dim wbSrc As Workbook
Dim m As Variant
Dim mySheetname As Variant, myUserName As Variant, myPassword As Variant, myServer, myApp As Variant, myDB As Variant
Dim lockflag As Integer
Dim myrng As range
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim strMsgTxt As String
Dim blnRetVal As Boolean

Set wbSrc = ActiveWorkbook

Set myrng = range(rangeString)

lockflag = 1
MsgBox ("Data set")
        mySheetname = "Sheet"
        myServer = "Server"
        myApp = "App"
        myDB = "DB"
        myUserName = "User"
        myPassword = "Pass"

MsgBox ("Trying connection")
        x = EssVConnect(mySheetname, myUserName, myPassword, myServer, myApp, myDB)
        MsgBox (CStr(x))
        If x < 0 Then
           blnRetVal = False
           strMsgTxt = "Essbase Login - Local Failure"
           MsgBox (strMsgTxt)
        ElseIf x > 0 Then
           blnRetVal = False
           strMsgTxt = "Essbase Login - Server Failure"
           MsgBox (strMsgTxt)
        Else
           blnRetVal = True
           strMsgTxt = "Success"
           MsgBox ("Connection Succeeded")
           y = EssVRetrieve(mySheetname, myrng, lockflag)
            If y = 0 Then
                MsgBox ("Retrieve successful.")
                z = EssVDisconnect(mySheetname)
                If z = 0 Then
                    MsgBox ("Disconnect Succeed.")
                    Else
                    MsgBox ("Disconnect failed.")
                End If
                Else
                MsgBox ("Retrieve failed.")
            End If
        End If
End Sub

变量 x 应该返回状态码(0 为成功,其他为失败)。所以诀窍来了,每当我在 Excel 中运行这个宏时,它都能完美运行,但是当我从 C# 调用它时,xlApp.Run("Essbase_Update_Pulls");它会返回一个状态码 -3。做了一些研究,我发现每当在代码中创建 Excel 应用程序时,它都没有加载加载项,因此必须手动加载它们 https://community.oracle.com/thread/2480398。我遍历xlApp.AddIns并发现“essexcln.xll”已正确安装,所以我不知道现在该做什么。我还发现可以在运行时添加加载项,但这只会导致异常,这里是来源: http: //www.network54.com/Forum/58296/thread/957392331/Visual+Basic-Excel+Api +call+to+Essbase

4

1 回答 1

1

发现 excel 没有加载连接到 de Essbase 服务器所需的所有 dll 和 xll。为了使其工作,有必要将 excel 作为一个进程启动并获取实例并将其与互操作类相关联。我在这里找到了解决方案:
Excel interop loading XLLs and DLLs
用户几乎有同样的问题,但彭博社。我只想在SearchExcelInterop方法中添加它需要Thread.Sleep()等待 Excel 正确加载,在我的情况下它抛出了 StackOverflowException。

于 2015-10-06T16:30:29.690 回答