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

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

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

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

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

谢谢了

谢谢！是可以了。