通过脚本输入日期-VBA中的运行时错误613

2020-09-15 20:37发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)您好, 我正在尝试使ME...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


您好,

我正在尝试使ME2M中的报告自动化,从上个月的第一天到该月的最后几天,我必须提取一份月度报告。 输入日期时遇到问题-从剪贴板上传或引用工作簿中的单元格均无效。 我收到运行时错误613。能否解决此问题?

定义的变量:

将第一天的日期更改为日期

前一天的日期变暗

第一天= DateSerial(年(日期),月(日期)-1,1)

最后一天= DateSerial(年(日期),月(日期),0)

以及发生运行时错误的脚本:

session.findById(" wnd [0]/usr/ctxtS_BEDAT-LOW")。Text = Sheet(" Plants")。Range(" C1")。Value

session.findById(" wnd [0]/usr/ctxtS_BEDAT-HIGH")。Text = Sheet(" Plants")。Range(" D1")。Value

如果我输入" 01062018"而不是 Sheet(" Plants")。Range(" C1")。scrip的值可以完美运行,以某种方式引用单元格会导致问题。

提前谢谢!

1条回答
Bunny_CDM
2020-09-15 21:32 .采纳回答

嘿,与此同时,我找到了解决方案-甚至比在Excel中引用单元格还要简单。 根问题使用日期格式。 SAP中的日期格式为dd.mm.yyy,因此我必须以这种方式插入VBA日期变量:

session.findById(" wnd [0]/usr/ctxtS_BEDAT-LOW")。Text = Format(DateSerial(Year(Date),Month(Date)-1,1)," dd.mm.yyyy") session.findById(" wnd [0]/usr/ctxtS_BEDAT-HIGH")。Text = Format(DateSerial(Year(Date),Month(Date),0)," dd.mm.yyyy")

希望它能对您有所帮助,我已经努力了2天...:D

干杯

Bea

一周热门 更多>