Getobject()

[excelnsn]

Hi all,

I am basically trying to copy data from an excel document to a word document both of which are already open.

Since I know the name of the Excel file from which I need to copy the data and as it always remains the same,

I tried the following code:

Dim XLApp As Object, ws As Object
Set XLApp = GetObject("myexcelsheetname").Application---->Gettiing a syntax error here
XLApp.Sheets("Sheet 1").Shapes("Picture 3").Copy--Trouble here as well .(It says Subscript out of range.. but it WORKS WHEN I USE ACTIVESHEET instead of specifying the sheet name )
Selection.Paste

Looking forward for your help

Regards
Krishnan

[smuzoen]

This code would go into an excel workbook - so it will copy a picture from (in this example) Sheet1 to a word document

Sub CreateWordDoc()
    Dim wdApp As Object
    Dim wdDoc As Object
     Dim wdRng As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("C:\temp\test.docx")
Worksheets("Sheet1").Shapes("Picture 1").Copy
wdApp.activedocument.Content.Paste
wdApp.Visible = True
End Sub

Hope this helps.
Anthony
“Confidence never comes from having all the answers; it comes from being open to all the questions.”
PS: Remember to mark your questions as Solved once you are satisfied and rate the answer(s) questions.”