你好玛丽亚，

我认为这时在你的情况下弹出错误：

如果objConnection.Logon（0，SilentLogon）然后

您的SilentLogon设置为False，选择系统，然后发生错误。

您使用哪个版本的SAP GUI for Windows？

尝试这种方法

设置函数= CreateObject（" SAP.Functions.Unicode"）
 设置objConnection = Functions.Connection（）
 SilentLogon =错误

 '设置沙漏指针
 'Application.Cursor = xlWait

 AddLog"登录"，"正在登录到SAP ..."，vbBlack
 '登录到SAP
 如果objConnection.Logon（0，SilentLogon）然后
 

，让我们知道您的结果。 我在Windows 7.60的SAP GUI环境中尝试了这种方法，并且该方法可与SAP路由器的条目一起使用，没有任何问题。

最诚挚的问候
Stefan

同样的问题

错误组

RFC_ERROR_COMMUNICATION

消息


本地主机上具有Unicode
ERROR partner '10 .65.160.244的LOCATION CPIC（TCP/IP）： 未达到3300分钟<<> TIME 2019年8月21日星期三22:16:27
发布749 版本40 -10模块化D：/仓库/bas/749_REL/src/base/ni/nixxi.cpp
LINE 3428
详细信息NiPConnect2：10.65.160.244:3300
SYSTEM CALL connect
ERRNO 10060
ERRNO TEXT WSAETIMEDOUT：连接超时 out
COUNTER 6

这就是我正在使用的-

作为SAPFunctionsOCX.SAPFunctions的公共函数的公用函数
作为SAPLogonCtrl.SAPLogonControl的私有LogonControl的私有函数作为SAPLogonCtrl.Connection的私有objConnection的个性化对象作为SAPFunctionsOCX.Function

的公共eNUMBER_OF_ENTRIES作为SAPFunctionsOCX的参数。
作为SAPTableFactoryCtrl.Table的公共尝试项
作为SAPTableFactory

私有LogCount作为整数的公共表工厂
公共shScript，作为工作表的shLog的公共日志



子TableEntriesRFC（）
>将Dim作为整数
将Dim retcd作为布尔值
将Dim SilentLogon作为布尔值

设置shScript = Worksheets（" Script"）
ResetLog

设置LogonControl = CreateObject（" SAP.LogonControl.1"）
'设置函数= CreateObject（" SAP.Functions"）
设置LogonControl = CreateObject（" SAP.LogonControl.1"）
设置TableFactory = CreateObject（" SAP.TableFactory .1"）
'设置objConnection = Function.Connection（）
设置objConnection = LogonControl.NewConnection
'SilentLogon = False


'设置objConnection = Fun ctions.Connection（）
SilentLogon = False

'设置沙漏指针
'Application.Cursor = xlWait

AddLog" Logon"，"登录到SAP ..." ，vbBlack
'登录到SAP
如果objConnection.Logon（0，SilentLogon）然后


'登录成功
AddLog"登录"，"成功登录到SAP"， vbBlack
'创建一个对象以调用RFC FM
Functions.Connection = objConnection

AddLog" RFC"，"准备接口"，vbBlack
'在此处添加了实际FM
设置Func = Functions.Add（" RFC_GET_TABLE_ENTRIES"）
'填充导入参数
Func.Exports（" TABLE_NAME"）。Value = Range（" TableName"）。Value
'声明导出参数 和表格
设置eNUMBER_OF_ENTRIES = Func.Imports（" NUMBER_OF_ENTRIES"）
设置tENTRIES = Func.Tables（" ENTRIES"）

'执行FM
AddLog" RFC"，"执行 调用"，vbBlack
Func.Call

AddLog" RFC"，"条目数：" + CStr（eNUMBER_OF_ENTRIES），vbBlack
'将结果提取到 Excel到D10及以下版本
对于i = 1到tENTRIES.RowCount
单元格（9 + i，4）。值= tENTRIES（i，1）
下一步

其他
'如果登录失败，请执行此块
Dim msg As String
msg ="无法登录到SAP。 验证凭据或访问权限。"
AddLog"登录"，msg，vbRed
Application.Cursor = xlDefault
MsgBox msg
转到清理
结束，如果



清理 ：
'更新时间戳记
Range（" Timestamp"）。Value = Now（）
'关闭与SAP
的连接objConnection.Logoff
AddLog"注销"，"注销 SAP"，vbBlack
'将指针设置回默认光标
Application.Cursor = xlDefault
MsgBox"脚本已完成"
End Sub

i 有一个视频-但我不能在这里发送-我正在SKYTAP的虚拟机上使用Sapgui 7.5

如果我使用sapgui-我可以顺利登录

仅当我从excel运行代码时，我才遇到此问题-