如何使用excel的宏实现UI界面登陆用友U8？谢谢参观~~

chenglong801

语句如下，也会弹出用友登陆的UI界面，但会报错，提示：登陆令牌失效，请检查服务器配置。
到底哪里写的不对了....帮帮忙，谢谢！！
Public sql As String
Public M_LOGIN
Public cnnU8Data
Public RSTU8DATA

Public Sub 数据库连接()
Dim loc_oNetLogin As Object
    Set loc_oNetLogin = CreateObject("UFSoft.U8.Framework.Login.UI.clsLogin")
    If loc_oNetLogin.login_2("DP") Then
        loc_oNetLogin.SubLogin ("SA")
  Else
        MsgBox "登陆失败:"
    End If
  
Application.ScreenUpdating = False
g_sUserToken = loc_oNetLogin.userToken
Set cnnU8Data = CreateObject("ADODB.Connection")
Set RSTU8DATA = CreateObject("ADODB.Recordset")
Set M_LOGIN = CreateObject("U8Login.clsLogin")
Call M_LOGIN.ConstructLogin(g_sUserToken)
rep:
M_LOGIN.Login "GL"
If M_LOGIN.logstate = 0 Then
M_LOGIN.ShutDown
cnnU8Data.Open M_LOGIN.ufdbname
ElseIf M_LOGIN.logstate <> 0 Then
If MsgBox("连接数据库失败,是否重试？", _
vbQuestion + vbYesNo + vbDefaultButton1, "提示") = vbNo Then
M_LOGIN.ShutDown
Else
GoTo rep
End If
'MsgBox "连接数据库失败！"
End If
'Debug.Print M_LOGIN.logstate
'Debug.Print cnnU8Data.State
End Sub

point09k

好高深啊

topunion009

u8的登录代码

wozengcong

全部是代码，呵呵

hlsoftware

你牛啊，在Excel中也行啊

yindy

Excel有必要也调用登录窗口吗？
不过想法不错。。。