Копирование значений vb.net DataGrid, чтобы преуспеть с Vba SendKeys

Question

я пытаюсь скопировать DataGridView значения, чтобы преуспеть, до сих пор, у меня есть этот код, который работает, но только линейный

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 "{LEFT}", True 
SendKeys ("^C") 

Application.Wait (Now + TimeValue("0:00:02")) 
AppActivate "MicroSoft Excel" 
Application.Wait (Now + TimeValue("0:00:02")) 
ActiveCell.Offset(0, 0).Select 
Application.Wait (Now + TimeValue("0:00:01")) 
ActiveSheet.PasteSpecial 
Application.Wait (Now + TimeValue("0:00:01")) 
AppActivate "Inventory" 
SendKeys "{TAB}", True 
SendKeys ("^C") 
Application.Wait (Now + TimeValue("0:00:02")) 
AppActivate "MicroSoft Excel" 
Application.Wait (Now + TimeValue("0:00:02")) 
ActiveCell.Offset(0, 1).Select 
ActiveSheet.Paste 

End Sub 

То, что я хотел бы сделать есть, копировать данные из datagrid, datagrid составляет 4 строки и 4 столбца, я хотел бы скопировать все из datagrid в мое excel, используя vba sendkeys. Заранее спасибо!

EDIT:

Я знаю, этот код, но выход диагоналей

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 



Dim i As Integer 
Dim j As Integer 

i = 1 
j = 1 


SendKeys ("^C") 
Application.Wait (Now + TimeValue("0:00:02")) 
AppActivate "MicroSoft Excel" 
Application.Wait (Now + TimeValue("0:00:02")) 
ActiveCell.Offset(1, 1).Select 
'Application.Wait (Now + TimeValue("0:00:01")) 
ActiveSheet.PasteSpecial 
Application.Wait (Now + TimeValue("0:00:01")) 
AppActivate "Inventory" 
SendKeys "{TAB}", True 



If Not IsEmpty(ActiveCell.Value) Then 
Do While Cells(i, j).Value = Cells(i, j + 3).Value 
j = j + 1 
SendKeys ("^C") 
Application.Wait (Now + TimeValue("0:00:02")) 
AppActivate "MicroSoft Excel" 
Application.Wait (Now + TimeValue("0:00:02")) 
ActiveCell.Offset(i, j).Select 
'Application.Wait (Now + TimeValue("0:00:01")) 
ActiveSheet.PasteSpecial 
Application.Wait (Now + TimeValue("0:00:01")) 
AppActivate "Inventory" 
SendKeys "{TAB}", True 

If i = 4 Then 
i = i = 0 
j = j + 1 
End If 
Loop 
End If 
End Sub 

Answer 1

Так или иначе, я был в состоянии найти ответ в Интернете, что я не хватало петли. Но каким-то образом я не мог определить динамически, сколько строк в моем Datagridview, я просто ставил статическое число. но на сегодняшний день это самое близкое, что я мог бы получить.

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 




Dim i As Integer 
Dim j As Integer 


i = 1 
j = 1 


SendKeys ("^C") 
Application.Wait (Now + TimeValue("0:00:02")) 
AppActivate "MicroSoft Excel" 
Application.Wait (Now + TimeValue("0:00:02")) 
ActiveCell.Offset(0, 0).Select 

ActiveSheet.PasteSpecial 
Application.Wait (Now + TimeValue("0:00:01")) 
AppActivate "Inventory" 
SendKeys "{TAB}", True 



If Not IsEmpty(ActiveCell.Value) Then 

Do While Application.CountA(Range("A:A")) <> 13 
    j = j + 1 
    SendKeys ("^C") 
    Application.Wait (Now + TimeValue("0:00:01")) 
    AppActivate "MicroSoft Excel" 
    Application.Wait (Now + TimeValue("0:00:01")) 
    Cells(i, j).Select 

    Application.Wait (Now + TimeValue("0:00:01")) 
    ActiveSheet.Paste 
    Application.Wait (Now + TimeValue("0:00:01")) 
    AppActivate "Inventory" 
    SendKeys "{TAB}", True 

If j = 4 Then 
    i = i + 1 
    j = 0 
End If 

Loop 
End If