2,462
社区成员
发帖
与我相关
我的任务
分享
Public Conn As New ADODB.Connection
Public K3Login As Object
Public strFileName, strBillType As String
'首先调用K3的登陆组件做登陆K3的操作,取得连接数据库的字符串,完成与数据库的连接
'然后打开要导入的EXCEL表
'再根据打开的表的导入对应的资料(客户/供应商,销售发票/采购发标内容,销售清单/采购清单)
'最后关闭连接
Sub K3ErpLogin()
Dim strConn As String
Set K3Login = CreateObject("K3Login.ClsLogin")
If Not K3Login.CheckLogin Then
MsgBox "连接不成功"
Set K3Login = Nothing
End
End If
strConn = Split(Split(K3Login.PropsString, "}")(0), "{")(1)
Set K3Login = Nothing
Conn.