注册 登录
编程论坛 VB6论坛

VB EXCEL 模拟键盘快捷键向A1单元格发送"china"的问题

chen3bing 发布于 2019-07-22 14:52, 3295 次点击
我看了一本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代码界面了,效果如图:
只有本站会员才能查看附件,请 登录

请教高手,怎么才能达到那个效果呢?谢谢!
10 回复
#2
wufuzhang2019-07-25 13:48
将XlSheet.Application.SendKeys "China!~" 这一句改为:xlSheet.Application.SendKeys "China+1+`"

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


对于SendKeys的用法,可以参考:https://baike.baidu.com/item/SendKeys
#3
chen3bing2019-07-25 17:50
回复 2楼 wufuzhang
谢谢!我的意图是想输入到EXCEL单元格里,可是不行。
说实话,我也不知道能不能实现。
#4
wufuzhang2019-07-25 18:46
回复 3楼 chen3bing
照我这样改完后,就是将内容写到Excel呀!
#5
chen3bing2019-07-25 20:19
谢谢!我试过了,不行。我的电脑是WIN10的笔记本。
#6
wufuzhang2019-07-25 22:48
你试一下XlSheet.Application.SendKeys "China"看能不能写入Excel中,如果不能,把报错信息贴出来
#7
chen3bing2019-07-26 08:19
回复 6楼 wufuzhang
谢谢!不能写入Excel,没有报错信息。
原来是写入到VB代码区,现在很奇怪,什么也写不出来。
#8
wufuzhang2019-07-26 08:40
你把工程上载一下我看看
#9
chen3bing2019-07-26 09:02
回复 8楼 wufuzhang
只有本站会员才能查看附件,请 登录

谢谢了
#10
wufuzhang2019-07-26 09:21
回复 9楼 chen3bing
你发的工程确实不能实现,我调整了一下,将Form_Load里面的东西统统放到Command1_Click事件里面,
结果就可以实现了,我也不清楚这是什么原因导致的。

只有本站会员才能查看附件,请 登录
#11
chen3bing2019-07-26 09:27
回复 10楼 wufuzhang
谢谢!是可以了。
1