send to excel macro not working in access point

[ssriramin19]

Hi,

  My requirement is that the macro which I have written for send to excel with the button works proprerly in my local machine .But when I check the same feature in access point I am getting error.

The attached word document highlights the error which I am getting.

Below is the macro which I have used

sub ExportBitmapExcel2

Set XLApp = CreateObject("Excel.Application")
XLApp.Visible = TRUE
Set XLDoc = XLApp.Workbooks.Add

j = "Sheet1"

ActiveDocument.GetSheetObject("CH02").CopyBitmapToClipboard

XLDoc.Sheets(j).Range("A" & 17).Select
XLDoc.Sheets(j).Paste

'
ActiveDocument.GetSheetObject("CH638").CopyTableToClipboard true

XLDoc.Sheets(j).Range("A" & 37).Select
XLDoc.Sheets(j).Paste
'
'
'
'ActiveDocument.GetSheetObject("CH662").CopyTableToClipboard true
'
'XLDoc.Sheets(j).Range("A" & 52).Select
'XLDoc.Sheets(j).Paste

ActiveDocument.GetSheetObject("CH663").CopyTableToClipboard true

XLDoc.Sheets(j).Range("A" & 56).Select
XLDoc.Sheets(j).Paste

'ActiveDocument.GetSheetObject("CH652").CopyTableToClipboard true
'
'XLDoc.Sheets(j).Range("A" & 68).Select
'XLDoc.Sheets(j).Paste

end sub

Can anyone please tell me how to resolve the above error

Thanks

Sriram

[ssriramin19]

Can anyone please let me know how to resolove the above issue ?

It is very urgent ..

Thanks

Sriram

[jagan]

Hi,

I think the error is because, MS Excel is not installed in the machine.

Regards,

Jagan.

[ssriramin19]

will that be the issue in the access point .

Thanks

Sriram

[jagan]

Hi,

I got this error one time, that time Excel in not installed in my machine.  After installing it works fine.  Check that machine has Excel installed.

Regards,

Jagan.