0

在下面的代码中，我试图在许多工作表中自动执行 SmartView 检索。代码似乎可以正常工作，直到我在开始循环之前创建连接。在循环内部，我想使用 HypConnect 来使用连接 - 但它返回 100000 的错误代码并且不连接。当我测试一些状态变量时，我看到连接存在但工作表未连接。

我已将完整的 smartview.bas 文件复制到同一工作簿中的另一个模块中。

在我调用 HypConnect 时，所有四个参数都已定义并具有正确的值。

我不知道还有什么问题。

Sub Retrieval()

URL = Sheets("Index").Range("E5").Value
Server = Sheets("Index").Range("E6").Value
App = Sheets("Index").Range("E7").Value
Db = Sheets("Index").Range("E8").Value
UserId = Sheets("Index").Range("E10").Value
psw = InputBox("Password")
DSN = "Source"

x = HypDisconnectAll()
If HypConnectionExists(DSN) Then x = HypRemoveConnection(DSN)
x = HypCreateConnection( _
    Empty, _
    UserId, _
    psw, _
    "Essbase", _
    URL, _
    Server, _
    App, _
    Db, _
    DSN, _
    "Connection for retrievals")
x = HypSetConnAliasTable("Source", "Code_and_Desc")
x = HypSetGlobalOption(5, 3)     'turn off warnings
x = HypSetGlobalOption(6, True)  'use thousands separator
x = HypSetGlobalOption(15, True) 'retain formats

For Each Sheet In Worksheets
    Sheet.Activate
    RR = Range("A1").Value
    If RR = "" Then RR = "A1"
    If RR <> "Do not retrieve" Then
        x = HypConnect(Sheet.Name, UserId, psw, DSN)

        x = HypSetSheetOption(Sheet.Name, 5, 0)
        x = HypSetSheetOption(Sheet.Name, 6, False)
        x = HypSetSheetOption(Sheet.Name, 7, False)
        x = HypSetSheetOption(Sheet.Name, 8, False)
        x = HypSetSheetOption(Sheet.Name, 13, "#numericzero")
        x = HypSetSheetOption(Sheet.Name, 16, 2)

        x = HypRetrieveRange(Sheet.Name, RR, DSN)
        End If

    Next Sheet

x = HypSetGlobalOption(5, 2) 'turn warnings back on
x = HypRemoveConnection(DSN)
x = HypDisconnectAll()

MsgBox ("Done")
End Sub
4

1 回答 1

0

昨天我检查了很多次，我的服务器名称不正确，找不到它。今天，用更新鲜的眼光，我发现了问题，上面的代码运行良好。尽管问题实际上出在 HypCreateConnection 行中，但该函数调用返回了 0 错误代码。然后将 HypConnect 与无效连接一起使用会导致错误 - 并返回一个未记录的错误代码。

于 2015-03-18T14:22:22.990 回答