求助！VBA+ADO+SAP

SXWK

各位老师好！如何在excel内使用VBA 一键导出SAP报表,求助，万分感谢

SXWK

VBA+ADO+SQL查询SAP导出结果，求助

tyxvba7529

vba可以用sap的rfc函数取sap的数据；
直接ado取数我也想知道

SXWK

tyxvba7529 发表于 2019-1-18 13:34
vba可以用sap的rfc函数取sap的数据；
直接ado取数我也想知道

你好，SAP的RFC只知道是远程调用函数，不太懂具体的如何通过EXCEL VBA连接SAP 并取出要用的报表，能给个案例吗，一些需要选填的最好有个注释，谢谢！

SXWK

求太神！！！ADO技术连接SAP数据库的方法

tyxvba7529

1. Sub export()
   
2. Set R3 = CreateObject("SAP.Functions.unicode")
   
3. R3.Connection.System = "XXX"
   
4. R3.Connection.ApplicationServer = "XXXXXXX"
   
5. R3.Connection.Client = "XXXX"
   
6. R3.Connection.SystemNumber = "00"
   
7. R3.Connection.User = "XXXXXXX"
   
8. R3.Connection.password = "XXXXXXX"
   
9. R3.Connection.Language = "ZH"
   
10. 
    
11. ''有中文汉字或中文字符的话，需要设置代码页,否则可能出现乱码
    
12. 'R3.Connection.Codepage = "8400″"
    
13. If R3.Connection.logon(0, True) = False Then
    
14. MsgBox "连接失败"
    
15. Exit Sub
    
16. End If
    
17. 
    
18. '添加RFC名称
    
19. Set MyFunc = R3.Add("Z_WFM_GET_VENDOR_DETAIL")
    
20. '设置输入参数
    
21. Set oParam1 = MyFunc.exports("VENDOR_NUMBER")
    
22. oParam1.Value = [A2].Value
    
23. Set oParam2 = MyFunc.exports("BUKRS")
    
24. oParam2.Value = "ZS10″"
    
25. Set oParam3 = MyFunc.exports("EKORG")
    
26. oParam3.Value = "ZS10″"
    
27. '执行远程调用
    
28. Result = MyFunc.CALL
    
29. 
    
30.     If Result = True Then
    
31.     '设置table参数
    
32.     Set VENDOR = MyFunc.Tables("VENDOR")
    
33. '    Set bank = MyFunc.Tables("BANK")
    
34.     '设置返回参数
    
35. '    Set oParam2 = MyFunc.exports("E_RETURN")
    
36.     Else
    
37.         MsgBox MyFunc.EXCEPTION
    
38.         R3.Connection.LOGOFF
    
39.         Exit Sub
    
40.     End If
    
41. 
    
42. '注销登录
    
43. R3.Connection.LOGOFF
    
44. '使用循环处理table参数
    
45. For i = 1 To VENDOR.RowCount
    
46.     Set Row = VENDOR.Rows(i)
    
47.     Cells(4, 1) = Row.Value("KTOKK")
    
48.     Cells(4, 2) = Row.Value("VENDOR")
    
49.     Cells(4, 3) = Row.Value("BUKRS")
    
50.     Cells(4, 4) = Row.Value("EKORG")
    
51.     Cells(4, 5) = Row.Value("NaME")
    
52.     Cells(4, 6) = Row.Value("NaME2")
    
53.     Cells(4, 7) = Row.Value("STREET")
    
54.     Cells(4, 8) = Row.Value("COUNTRY")
    
55.     Cells(4, 9) = Row.Value("CITY")
    
56.     Cells(4, 10) = Row.Value("SORT1")
    
57.     Cells(4, 11) = Row.Value("SORT2")
    
58.     Cells(4, 12) = Row.Value("LaNGU")
    
59.     Cells(4, 13) = Row.Value("POSTL_COD1")
    
60.     Cells(4, 14) = Row.Value("aDR_NOTES")
    
61.     Cells(4, 15) = Row.Value("TEL_NO")
    
62.     Cells(4, 16) = Row.Value("TELEX_NO")
    
63.     Cells(4, 17) = Row.Value("E_MaIL")
    
64.     Cells(4, 18) = Row.Value("FaX")
    
65.     Cells(4, 19) = Row.Value("STCEG")
    
66.     Cells(4, 20) = Row.Value("WaERS")
    
67.     Cells(4, 21) = Row.Value("INCO1")
    
68.     Cells(4, 22) = Row.Value("INCO2")
    
69.     Cells(4, 23) = Row.Value("ZTERM")
    
70.     Cells(4, 24) = Row.Value("LFaBC")
    
71.     Cells(4, 25) = Row.Value("EKGRP")
    
72.     Cells(4, 26) = Row.Value("aKONT")
    
73. Next
    
74. 
    
75. End Sub
    

复制代码

SXWK

tyxvba7529 发表于 2019-1-18 17:04

谢谢，虽然有点看不懂

SXWK

求！！！ADO技术连接SAP数据库的方法