2020-09-03 19:22发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）嗨， 我已经通过excel看... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
嗨，
我已经通过excel看了很多VB代码-使用SAP路由器时如何工作-
我收到此错误
RFC_ERROR_COMMUNICATION 消息 本地主机上具有Unicode ERROR伙伴'xx.xx.xx.xx：3300'的位置CPIC（TCP/IP） TIME Tue Aug 20 09:45:42 2019 发布749 << NI> COMPONENT NI（网络接口）版本40 -10 MODULE D：/depot/bas/749_REL /src/base/ni/nixxi.cpp LINE 3428 详细信息NiPConnect2：xx.xx.xx.xx：3300 <系统>系统调用连接 ERRNO 10060 ERRNO TEXT WSAETIMEDOUT：连接超时 out COUNTER 18
有人可以帮忙吗？
同样的问题
错误组 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
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 lukcy2020 的问题《Saplogon中的VB Excel CreateObject SAP.LogonControl.1 RCF错误如何与SAP路由器一起使用》','https://www.easysap.com/answer/52251/146242.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
同样的问题
错误组
版本40 -10模块化D：/仓库/bas/749_REL/src/base/ni/nixxi.cpp
RFC_ERROR_COMMUNICATION
消息
本地主机上具有Unicode
ERROR partner '10 .65.160.244的LOCATION CPIC（TCP/IP）： 未达到3300分钟<<> TIME 2019年8月21日星期三22:16:27
发布749
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
一周热门 更多>