2016-07-09 2 views
0

내가 매크로데이터 복사가

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 

으로 VBA이 코드를 가지고 그래서 난 할 노력하고있어 능가하는 데이터 그리드에서 복사 된 데이터를하지만, 내가 ' 난 단지 datagrid의 첫 번째 셀을 복사하는 데 문제가 있지만 수동으로 붙여 넣으려고하면 데이터가 거기에 있습니다! 내가 도대체 ​​뭘 잘못하고있는 겁니까?

답변

1

바로

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

후 것은 내가 복사 할 수 있습니다, 내가 처음 데이터 그리드의 내용을 붙여 넣을 수

ActiveCell.PasteSpecial 

대신

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

선생님 사용해보십시오 및 제 2 셀을 붙여 그러나 DataGrid의. – UserSeriously

+1

그래서 당신은 무엇을 할 수 있습니까? – user3598756

+0

첫 번째 눈금 선생님, 그것의 재미 있지만 내가 첫 번째 눈금을 복사 할 수 없기 때문에 수동으로 시도 할 때 첫 번째 눈금의 값은 클립 보드에 있지만 두 번째 눈금 값의 보내기 키에 대해 복사 할 때 ! – UserSeriously

관련 문제