Sorry For the delayed reply. The name of that application is "True count" its third party application. Thanks.
On Sunday, April 5, 2015 at 4:52:50 AM UTC-4, Mandeep Baluja wrote: > what is the name of your application from which you're retrieving your > data. > > On Saturday, March 28, 2015 at 9:14:11 PM UTC+5:30, Avinash wrote: >> >> Hi Experts, >> >> i want a macro which can copy data from another application to excel. >> >> below is the code which i am trying to use. i dont have any workbook to >> explain this example. just a simple logic copy data from other application >> and paste in to excel then again switch to that application then paste data >> in to the excel after the first row. (row by row copy paste macro) >> >> Option Explicit >> Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As >> Integer() >> >> >> Const VK_F6 = &H75 >> Const VK_ESC = &H1B >> Const VK_CONTROL = &H11 ' COntrol >> Const VK_C = &H43 ' c >> >> Const VK_TAB = &H9 ' Tab >> Const VK_MENU = &H12 'menu >> Const VK_V = &H56 ' v key >> >> >> >> >> Sub Scannings() >> Dim lngRow As Long, str As String >> >> lngRow = Selection.Row >> str = Cells(lngRow, 1) & vbTab & Cells(lngRow, 2) & vbTab & _ >> Format(Cells(lngRow, 3), "dd - mmm - yyyy") >> >> MsgBox "Click OK, then click the First Name box on the external >> application, then press F6 on the keyboard" >> WaitAndSend str, VK_F6, VK_ESC >> WaitAndSend VK_MENU, VK_TAB >> WaitAndSend VK_CONTROL, VK_C >> WaitAndSend VK_MENU, VK_TAB >> WaitAndSend str, VK_CONTROL, VK_V >> End Sub >> >> Sub WaitAndSend(SendString As String, ExecuteKey As Long, CancelKey As >> Long) >> Do >> DoEvents >> If GetAsyncKeyState(CancelKey) <> 0 Then Exit Do >> If GetAsyncKeyState(ExecuteKey) <> 0 Then >> SendKeys SendString, True >> Exit Do >> End If >> Loop >> End Sub >> >> Please help me everyday i am spending 5-6 hrs to do this job (alt + tab, >> copy one row, paste in to excel, again alt tab, copy second row, alt tab, >> paste in to excel row by row) >> >> >> Thanks in Advanced. >> >> Regards, >> Avinash >> > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
