10年VBA经验，闲着没事找事干；你出题，我来做，闲着也是闲着

laoyebin

楼主真猛啊，以后我学习ACCESS希望多多指教哦

爬来爬去

公司有sap,经常需要从EXCEL表格取数据导入到sap,从EXCEL取值没有问题,把SAP得输入界面转成当前页面也没有问题,问题是:如何输出EXCEL数据到指定的sap录入位置?用什么输出命令,PRINT是肯定不行.

我要的功能看来你都做完,能不能放代码看看?

djt

把你TRANSACTION写出来，问问SAP管理员SCRIPT功能让不让开。不让开的话，只能用ITOLE来做，有些功能用不了。我做给你看

aoigame

Lz有空帮我解决下问题啊，谢谢啦

http://club.excelhome.net/thread-478435-1-1.html

爬来爬去

ITOLE是否是类似按键精灵的工具,我倒是有用按键精灵做,但总是觉得要能够用VBA功能会比较强大.
主要用途是用来维护新建物料的仓管员的代码.过程: 读EXCEL-转到SAP-输入CODE MM02-转到页面 一般工厂数据/存储 2--在后勤处理组填入 仓管员代码.退出保存--循环.

Ste1a

厉害啊，不会access，向你学习

djt

ITOLE是别的公司开发的控制SAP的一个中间件，后来SAP自己开发了SCRIPT，这个工具就少有人用了，SCRIPT就像EXCEL的宏，把你的操作录制好后，改改就可以控制SAP了
If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
   Set connection = application.Children(0)
End If
If Not IsObject(session) Then
   Set session    = connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject session,     "on"
   WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").resizeWorkingPane 102,22,false
session.findById("wnd[0]/tbar[0]/okcd").text = "mm02"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtRMMG1-MATNR").text = "ralshell"
session.findById("wnd[0]/usr/ctxtRMMG1-MATNR").caretPosition = 11
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtRMMG1-MATNR").text = "RALSHEL"
session.findById("wnd[0]/usr/ctxtRMMG1-MATNR").caretPosition = 9
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]/usr/tblSAPLMGMMTC_VIEW").getAbsoluteRow(8).selected = true
session.findById("wnd[1]/usr/tblSAPLMGMMTC_VIEW/txtMSICHTAUSW-DYTXT[0,8]").setFocus
session.findById("wnd[1]/usr/tblSAPLMGMMTC_VIEW/txtMSICHTAUSW-DYTXT[0,8]").caretPosition = 0
session.findById("wnd[1]").sendVKey 0
session.findById("wnd[1]/usr/ctxtRMMG1-WERKS").text = "pp01"
session.findById("wnd[1]/usr/ctxtRMMG1-LGORT").text = "sloc"
session.findById("wnd[1]/usr/ctxtRMMG1-LGORT").setFocus
session.findById("wnd[1]/usr/ctxtRMMG1-LGORT").caretPosition = 4
session.findById("wnd[1]").sendVKey 0
session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP20/ssubTABFRA1:SAPLMGMM:2000/subSUB3:SAPLMGD1:5801/ctxtMARC-EPRIO").text = "001"
session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP20/ssubTABFRA1:SAPLMGMM:2000/subSUB3:SAPLMGD1:5801/ctxtMARC-EPRIO").setFocus
session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP20/ssubTABFRA1:SAPLMGMM:2000/subSUB3:SAPLMGD1:5801/ctxtMARC-EPRIO").caretPosition = 3

爬来爬去

哪里有这个软件下？

quan_102

我公司是个工业生产企业，生产四五种产品，产品主要由一些电子元件组成，但是由于产品升级很快，几乎每个月产品的组成元件都会发生一些变化（增减一些元件，或更换一些元件），材料名称也不规范（不规范的原因是供应商同一个东西今天叫这明天叫那，总有变化），为此设计了一个原材料进销存表，原材料名和规格称设了两列，一列是产品定额中的固定名称（只能从中选择不能输入），一列输入定额外的材料名称。但是这个表的缺陷是不能设置库存报警（因为我的库存余额是每一行加减得来的，没有加上期余额，只能分类汇总后，才能算出每一种材料的库存数或自动筛选再求和，而加上期余额，又不好操作，因为原材料种类太多，不可能每一种做一张表），表附后，盼高手指点。

james.wan

原帖由 quan_102 于 2009-9-6 22:43 发表
我公司是个工业生产企业，生产四五种产品，产品主要由一些电子元件组成，但是由于产品升级很快，几乎每个月产品的组成元件都会发生一些变化（增减一些元件，或更换一些元件），材料名称也不规范（不规范的原因是供应 ...

没怎么看懂楼主的要求,建议将你的表单放到数据库中.