您可以使用 VBA 从 SAP 中提取数据。如果您在线搜索，可以找到很多博客。简而言之，这取决于您对 SAP 系统的访问级别。我过去做过类似的事情。它是这样工作的：我有一个现有的 RFC 可以为我提取所需的数据，并且我有一个 ABAP 程序来提取部分数据。然后我将使用宏来调用相应的 RFC 和程序来完成它们的工作。

如果您正在使用 SendKeys，请避免使用它。我在过去的项目中使用过它，它似乎不一致且容易出错。您可以在模块顶部使用下面的代码段，并在需要的地方调用它。Option Explicit Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const KEYEVENTF_KEYUP = &H2 Private Const VK_SNAPSHOT = &H2C Private Const VK_MENU = &H12 Sub PrintScreen() keybd_event VK_SNAPSHOT, 1, 0, 0 End Sub

您可以编写一个 ABAP 程序来从 SAP 导出数据，然后使用宏可以调用的远程函数调用来提取数据。此外，如果符合要求，您也可以选择自己创建文件。您也可以选择 SAP GUI 脚本作为替代方案。脚本框架允许您自动化 Windows 和 Java 的界面。它可以让你执行很多活动。脚本 API 为你提供了大量的可脚本化对象，它们包装了 SAP GUI 对象。您可以从宏中使用这些对象。SAP GUI ... 阅读更多

请尝试使用以下脚本 −Dim sapConn As Object \声明连接对象 Set sapConn = CreateObject("SAP.Functions") \创建 ActiveX 对象 sapConn.Connection.user = "用户名" sapConn.Connection.Password = "xxxx" sapConn.Connection.client = "客户端号" sapConn.Connection.ApplicationServer = "应用服务器” sapConn.Connection.Language = "PT" If sapConn.Connection.Logon(0, True) True Then //在此处检查连接 MsgBox "无法登录到 SAP" Else MsgBox "登录成功！！" End If Dim rfcAcctDocCheck As Object Dim oAcctHeader As Object Dim otAcctAR, otAcctGL, otAcctAP, otAcctAMT, otReturn As Object Set rfcAcctDocCheck = sapConn.Add("BAPI_ACC_DOCUMENT_CHECK") Set oAcctHeader = rfcAcctDocCheck.Exports("DOCUMENTHEADER") Set otAcctGL = rfcAcctDocCheck.Tables("ACCOUNTGL") Set otAcctAR = rfcAcctDocCheck.Tables("ACCOUNTRECEIVABLE") Set otAcctAP = ... 阅读更多