| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 392 人关注过本帖
标题:VB EXCEL 模拟键盘快捷键向A1单元格发送"china"的问题
只看楼主 加入收藏
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:414
专家分:104
注 册:2008-11-12
结帖率:91.82%
  已结贴   问题点数:10  回复次数:10   
VB EXCEL 模拟键盘快捷键向A1单元格发送"china"的问题
我看了一本VBA的书,关于EXCEL的,有个例子:
Sub 向A1输入china()
Range("a1").Select
Application.SendKeys "china~"
End Sub
运行效果:

我想移植到VB中去:
代码改为:
Private Sub Command1_Click()
XlSheet.Range("a1").Select
'XlApp.Application.SendKeys "China~"
XlSheet.Application.SendKeys "China!~"
End Sub
确不好使,china写到VB代码界面了,效果如图:

请教高手,怎么才能达到那个效果呢?谢谢!
附件: 您没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: VB EXCEL 键盘 china Sub 
【推荐】大型监控、工控、组态VC++./C#源码组件库2019下载!
【推荐】超50万数控、建模仿真、电力VC++/.NET图形源码库下载!
【推荐】专业CAD\GIS\业务流程VC++/C#可视化图形软件源码库下载!
2019-07-22 14:52
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:20
帖 子:199
专家分:1303
注 册:2017-8-9
  得分:2 
将XlSheet.Application.SendKeys "China!~" 这一句改为:xlSheet.Application.SendKeys "China+1+`"

因为!和~输入时是按住Shift + 1和Shift + `,所以SendKeys的时候也是一样,用+代替Shift键,才能发送!和~


对于SendKeys的用法,可以参考:https://baike.baidu.com/item/SendKeys

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-07-25 13:48
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:414
专家分:104
注 册:2008-11-12
  得分:0 
回复 2楼 wufuzhang
谢谢!我的意图是想输入到EXCEL单元格里,可是不行。
说实话,我也不知道能不能实现。
2019-07-25 17:50
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:20
帖 子:199
专家分:1303
注 册:2017-8-9
  得分:2 
回复 3楼 chen3bing
照我这样改完后,就是将内容写到Excel呀!

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-07-25 18:46
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:414
专家分:104
注 册:2008-11-12
  得分:0 
谢谢!我试过了,不行。我的电脑是WIN10的笔记本。
2019-07-25 20:19
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:20
帖 子:199
专家分:1303
注 册:2017-8-9
  得分:2 
你试一下XlSheet.Application.SendKeys "China"看能不能写入Excel中,如果不能,把报错信息贴出来

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-07-25 22:48
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:414
专家分:104
注 册:2008-11-12
  得分:0 
回复 6楼 wufuzhang
谢谢!不能写入Excel,没有报错信息。
原来是写入到VB代码区,现在很奇怪,什么也写不出来。
2019-07-26 08:19
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:20
帖 子:199
专家分:1303
注 册:2017-8-9
  得分:2 
你把工程上载一下我看看

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-07-26 08:40
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:414
专家分:104
注 册:2008-11-12
  得分:0 
回复 8楼 wufuzhang

谢谢了
附件: 您没有浏览附件的权限,请 登录注册
2019-07-26 09:02
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:20
帖 子:199
专家分:1303
注 册:2017-8-9
  得分:2 
回复 9楼 chen3bing
你发的工程确实不能实现,我调整了一下,将Form_Load里面的东西统统放到Command1_Click事件里面,
结果就可以实现了,我也不清楚这是什么原因导致的。

附件: 您没有浏览附件的权限,请 登录注册

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-07-26 09:21
快速回复:VB EXCEL 模拟键盘快捷键向A1单元格发送"china"的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.059444 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved