Copy from excel and paste into other application

Have you tried to link to the accounting program?


this is a method of linking and automating word.

Selection.Copy ' from excel

Dim mylink As Object
Set mylink = GetObject(, "word.application") 'find running instance of word
mylink.Visible = True ' makesure the instance is visiable
mylink.Selection.Paste ' paste copied value to word
'

You might also try the sendkeys command....see help sendkeys

SendKeys Statement Example
This example uses the Shell function to run the Calculator application included with Microsoft Windows. It uses the SendKeys statement to send keystrokes to add some numbers, and then quit the Calculator. (To see the example, paste it into a procedure, then run the procedure. Because AppActivate changes the focus to the Calculator application, you can't single step through the code.). On the Macintosh, use a Macintosh application that accepts keyboard input instead of the Windows Calculator.

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' Run Calculator.
AppActivate ReturnValue ' Activate the Calculator.
For I = 1 To 100 ' Set up counting loop.
SendKeys I & "{+}", True ' Send keystrokes to Calculator
Next I ' to add each value of I.
SendKeys "=", True ' Get grand total.
SendKeys "%{F4}", True ' Send ALT+F4 to close Calculator.

now i am working with this code

Sub Mymacro()
Application.ScreenUpdating = False
Do
Selection.Copy ' from excel
Application.WindowState = xlMinimized
Dim mylink As Object
Set mylink = GetObject(, "word.application") 'find running instance of word
'AppActivate mylik ' i cant run with this code
mylink.Visible = True ' makesure the instance is visiable
mylink.Selection.Paste ' paste copied value to word
cont = cont + 1
SendKeys "{Enter}", True
Application.WindowState = xlNormal
Loop Until cont = 5
Application.CutCopyMode = False
End Sub



i have the code of minizeexcel and maximize because the enter , was not working , also i was traing with this code

AppActivate mylik ' i cant run with this code

but i was only error




what do you comment respect



Thanks MVP