使用sendkeys将数据从vb.net datagrid复制到excel

我有这个代码在VBA作为一个macros

Sub Test() Dim Wkb As Workbook Set Wkb = ActiveWorkbook notepadID = Shell("C:\Program Files\Default Company Name\TestInstaller\TestApp.exe") SendKeys "admin", True SendKeys "{TAB}", True SendKeys "nothing", True SendKeys "{ENTER}", True SendKeys "{ENTER}", True SendKeys "^C" Application.Wait (Now + TimeValue("0:00:02")) AppActivate "MicroSoft Excel" Application.Wait (Now + TimeValue("0:00:02")) SendKeys "^V" Application.Wait (Now + TimeValue("0:00:02")) End Sub 

所以我想要做的是从datagrid复制数据到Excel，但我只是试图复制数据网格的第一个单元格的问题，但是当我尝试手动粘贴，数据在那里！ 我究竟做错了什么？

Answer 1

之后

 SendKeys "^C" Application.Wait (Now + TimeValue("0:00:02")) 

尝试使用

 ActiveCell.PasteSpecial 

代替

 AppActivate "MicroSoft Excel" Application.Wait (Now + TimeValue("0:00:02")) SendKeys "^V"