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

Question

I Have this code in VBA as a macro

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

So what i'm trying to do is copy data from a datagrid to excel, but i'm having trouble with just trying to copy the 1st cell of the datagrid, but when i try to paste it manually, the data is there! what am i doing wrong?

Answer 1

right after

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

try using

ActiveCell.PasteSpecial

instead of

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