Excel SmartView连接

Excel SmartView连接,excel,vba,Excel,Vba,有人能告诉我在这个编码上我做错了什么吗?如果我将(APPName改为“itmsales”)和(DBName改为“item”)以及(将HypConnect中的qacomonname改为“itmsales”),我可以连接。但是,如果我将APPname、DBName和HypConnect更改为“daily_05”,则不会发生任何事情。 如果我将HypConnect更改为QAComonName,即“我的连接”,我会收到连接错误 Declare Function HypConnect Lib "HsAdd

有人能告诉我在这个编码上我做错了什么吗?如果我将(APPName改为“itmsales”)和(DBName改为“item”)以及(将HypConnect中的qacomonname改为“itmsales”),我可以连接。但是,如果我将APPname、DBName和HypConnect更改为“daily_05”,则不会发生任何事情。 如果我将HypConnect更改为QAComonName,即“我的连接”,我会收到连接错误

Declare Function HypConnect Lib "HsAddin" (
    ByVal vtSheetName As Variant, 
    ByVal vtUserName As Variant, 
    ByVal vtPassword As Variant, 
    ByVal vtFriendlyName As Variant
) As Long

Declare Function HypCreateConnection Lib "HsAddin" (
    ByVal vtSheetName As Variant, 
    ByVal vtUserName As Variant, 
    ByVal vtPassword As Variant, 
    ByVal vtProvider As Variant, 
    ByVal vtProviderURL As Variant, 
    ByVal vtServerName As Variant, 
    ByVal vtApplicationName As Variant, 
    ByVal vtDatabaseName As Variant, 
    ByVal vtFriendlyName As Variant, 
    ByVal vtDescription As Variant) As Long

Sub Example_HypCreateConnection()
    username = "SOME USER"
    password = "SOME PASSWORD"
    Provider = "SOME PROFICER"
    QAProvURL = "http://SOMEDOMAIN:19000/aps/SmartView"
    QAServer = "QASERVER-NAME"
    AppName = "daily_05"
    DBName = "daily_05"
    QACommonName = "My Connection"
    QADescription = "Analylic Provider Services"

    Y = HypCreateConnection(Empty, username, password, Provider, QAProvURL, QAServer, AppName, DBName, QACommonName, QADescription)

    X = HypConnect(Empty, username, password, QACommonName)
End Sub
这不是你的真实密码,对吗?删除了所有个人信息(用户、密码、url等)。保持安全,不要发布个人数据!