使用sendkeys將數據從vb.net datagrid復制到excel

Question

我在VBA中將此代碼作為宏

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，但是我在嘗試復制datagrid的第一個單元時遇到了麻煩，但是當我嘗試手動粘貼它時，數據就在那里了！ 我究竟做錯了什么？

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"