批量修改资产存货号为例:
1,点击,然后选择脚本录制和回放(需默认激活,激活链接https://jingyan.baidu.com/article/455a9950691863a16627781c.html),如下图
![](https://img.haomeiwen.com/i8534076/60b91c871bb1ac0d.png)
2,点击开始,如下图
![](https://img.haomeiwen.com/i8534076/434a3654837a89ef.png)
3,输入屏幕数据,手动输入固定值,不可用任何搜索帮助
![](https://img.haomeiwen.com/i8534076/541b1d270a77a578.png)
4,点击回车,进入下一界面,如下图
![](https://img.haomeiwen.com/i8534076/d2cc83b10e4463e9.png)
在此界面上进行存货号更改,点击保存按钮
5,保存成功后,进入下图,点击黄色按钮,表示录制脚本结束。
![](https://img.haomeiwen.com/i8534076/e972ccc18b056762.png)
6,点击增加,如下图所示
![](https://img.haomeiwen.com/i8534076/b740205d5e1f26bc.png)
7,将此路径进行复制,如下图
![](https://img.haomeiwen.com/i8534076/07368e740d77c0d7.png)
8,库中输入第7步操作复制的地址,如下图
![](https://img.haomeiwen.com/i8534076/490c6dd1ae054838.png)
9.地址中,需把Script1.vbs进行删除,如下图
![](https://img.haomeiwen.com/i8534076/ddf91d508c333e28.png)
10.回车,找到此Script1文件,如下图
![](https://img.haomeiwen.com/i8534076/c9cc3aba4b8a8393.png)
11.打开一个EXCEL表,选中开发工具,点击左边的Visual Basic,如下图
![](https://img.haomeiwen.com/i8534076/fcd08b2edef24c6e.png)
12.进入以下界面,将第十步找到的Script1文件拖到下图红框空白处
![](https://img.haomeiwen.com/i8534076/5af1d1b4baaf7995.png)
13. Script1文件进来之后,会出现模块文件夹,进行点击
![](https://img.haomeiwen.com/i8534076/81e3b24ed942f888.png)
14.双击模块1
![](https://img.haomeiwen.com/i8534076/08ca6c333fb10f17.png)
15.将代码中所有的application,变成xapplication.不需要区分大小写
![](https://img.haomeiwen.com/i8534076/29d97053f249dd06.png)
16.更改结果如下图:
![](https://img.haomeiwen.com/i8534076/18f9591f6f9fcc1e.png)
17.写代码 SUB test(),点击绿色执行按钮,如下图
![](https://img.haomeiwen.com/i8534076/a5b00f53f069f1f8.png)
18.代码中会自动出现End Sub,如下图
![](https://img.haomeiwen.com/i8534076/c80b08a2a4df0b19.png)
19.将此代码End Sub进行复制,复制到代码最底下一行
![](https://img.haomeiwen.com/i8534076/1dd46f68ca31ffe4.png)
20.查看代码,确定需要变动的内容,资产号,存货号,如下图
![](https://img.haomeiwen.com/i8534076/66d73f1fe6b0e5fb.png)
21.将第11步的EXCEL表打开,将资产号和存货号,做模板,如下图
![](https://img.haomeiwen.com/i8534076/0a09e2b54223e9ed.png)
22.开始写循环,如下图(pressz应为press)
第一句For i=1 to 26(Excel模板上多少行数据就是多少)
第二句End Sub上面写一句代码Next
第三:改资产号和存货号的内容
如下图,资产号那改成Sheets(‘’测试‘’).Range(“a”& i)
测试表示EXCEL工作表名称,a表示Excel表A列
存货号那改成Sheets(‘’测试‘’).Range(“b”& i)
![](https://img.haomeiwen.com/i8534076/ef759308a592a30d.png)
23.关闭SAP其他窗口,只保留更改资产号的主界面,如下图所示
![](https://img.haomeiwen.com/i8534076/cfe565e502fb2e07.png)
24.点击执行,如下图
![](https://img.haomeiwen.com/i8534076/b52a733cc46211a4.png)
25.点击确定,如下图
![](https://img.haomeiwen.com/i8534076/f0026a71b4ba53db.png)
最后,即可看到SAP批量更改存货号
网友评论