EXCEL控制鼠标键盘（更新2.61）

sunny_8848 · 发表于 2011-12-14 08:34

多谢楼主共享

goldowl2011 · 发表于 2012-1-30 22:56

本帖最后由 goldowl2011 于 2012-3-28 14:09 编辑

Thanks a lot.Good codes for me.

veggieg · 发表于 2012-2-28 21:05

楼主功德无量啊！！

造福我等愚民啊！！

非常感谢！！！！！

veggieg · 发表于 2012-2-28 21:18

神作啊！！

请教LZ如何使用？

veggieg · 发表于 2012-2-28 21:20

写的真细腻的代码，太强了！！LZ一定是计算机专业的吧：）

veggieg · 发表于 2012-2-28 23:36

人工置顶期待LZ出现！！：）

okok7845 · 发表于 2012-3-24 23:45

楼主，期待出新品。

zhang139 · 发表于 2012-4-1 10:45

学习了牛！！

abing3 · 发表于 2012-5-3 00:59

楼主功德无量啊！！

造福我等愚民啊！！

非常感谢！！！！！

562762077 · 发表于 2012-8-19 08:24

请老师帮我看，这段代码错在哪里？
（根据EXCEL第一列的数据，到另一个系统中查询，并将查询结果复制到EXCEL中。不知道为什么在切换窗口总是卡住，请老师帮我看看错哪里？）

Sub 查询引用()

   Dim I As Integer

   Dim client As String

Sheets("sh").Select

For I = 1 To 6

   client = Sheets("sh").Cells(I, 1)

   SendKeys "%{TAB}", True

Delay 200

   MoveTo 584, 220

         Delay 100

            LeftClick 1

               SendKeys client, True


         Delay 200


            MoveTo 734, 341

         LeftClick 1

      MoveTo 15, 39

      Delay 100

   LeftClick 1

      Delay 1000

SendKeys "%{TAB}", True

Delay 1000

Sheets("sh").Select

Cells(I, 3) = client

      Next I

End Sub

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

[分享] EXCEL控制鼠标键盘（更新2.61）

浏览过的版块