我看了一本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代码界面了，效果如图：

请教高手，怎么才能达到那个效果呢？谢谢！

将XlSheet.Application.SendKeys "China!~" 这一句改为：xlSheet.Application.SendKeys "China+1+`"

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


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

谢谢！我的意图是想输入到EXCEL单元格里，可是不行。
说实话，我也不知道能不能实现。

照我这样改完后，就是将内容写到Excel呀！

谢谢！我试过了，不行。我的电脑是WIN10的笔记本。

你试一下XlSheet.Application.SendKeys "China"看能不能写入Excel中，如果不能，把报错信息贴出来

谢谢！不能写入Excel，没有报错信息。
原来是写入到VB代码区，现在很奇怪，什么也写不出来。

你把工程上载一下我看看

谢谢了

你发的工程确实不能实现，我调整了一下，将Form_Load里面的东西统统放到Command1_Click事件里面，
结果就可以实现了，我也不清楚这是什么原因导致的。