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

lyg52939394 · 发表于 2010-3-21 21:46

看了半天都没看明白。
呵呵。楼主的亲身经历

fatcat1985 · 发表于 2010-3-23 21:43

想知道控制SAP的方法。。。。楼组说的ITOLE是很早的GUI interface用的，新的都是用scripting，但是对于我们这种没有record script权限的来说好像没什么办法实现自动化了。。。。

xieyun1130 · 发表于 2010-6-26 16:21

牛气,学习习

yqw888 · 发表于 2010-7-2 15:42

这样的强人少啊。非常厉害，有空可以开个课，教教大家。

happylele77 · 发表于 2010-7-16 17:47

致敬。。。。

伸手摘星 · 发表于 2010-8-1 23:10

学，贵在持之以恒，十年摸索，不停地专研，终成高手，想楼主学习！

wshcw · 发表于 2010-8-1 23:48

坛中虎将.
老倌的裤子—不剪裆（不简单）

guduyiyi · 发表于 2010-8-7 12:54

给我个sap软件用下

samica · 发表于 2010-8-16 21:24

S列到AY列中的数据填充到空白表的L47到L67，AQ47到AQ67，BV47到BV67

方法是用sql查询

Set Conn = CreateObject("adodb.connection")    '（2）设置 connection 对象
Set RST = CreateObject("Adodb.Recordset")       '（3）设置 Recordset 对象
Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
                                                   '（4）打开连接
XM = InputBox("请输入儿童姓名：", "提示", "儿童姓名？")

If XM = "" Then
MsgBox "查询取消，程序退出！", vbOKOnly, "提示"
Exit Sub
Else
Sql = "Select * from [表数据$] where 姓名 like ""%" & XM & "%"""

RST.Open Sql, Conn, adOpenStatic
如何用循环把数据直接写到空白表中？
详见附件：

反应报告卡.rar (28.37 KB, 下载次数: 57)
请强人帮助解决，万分感谢。

samica · 发表于 2010-8-17 14:29

强人啊，看一看吧，等着很心焦啊。

		自动登录	找回密码
密码			免费注册

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

sql查询得到的数据用for循环读出，回填到excel表中，该怎么做？