Write back to database macro not working on server

[#1]

Hi All,

I have written a macro, it works in normal mode on desktop but does not work on server.

Macro is as follows

sub Openexl

Dim oXLApp, LastRow,wb, ws

'~~> Define xlUp

Const xlUp = -4162

Set oXLApp = CreateObject("Excel.Application")

oXLApp.Visible = True

'~~> Open file. Chnage path as applicable

Set wb = oXLApp.Workbooks.Open("F:\To be copied\To be copied\Qlikview\Research\Customized_Rating\Customized_Rating\write_back_T.csv")

Set ws = wb.Worksheets(1)

LastRow=oXLApp.Activesheet.Range("A65536").End(-4162).Row + 1

oXLApp.Range("A"&LastRow).Select

Set obj=ActiveDocument.GetSheetObject("TX01")

obj.CopyTextToClipboard

oXLApp.Activesheet.Paste

oXLApp.Range("B"&LastRow).Select

Set obj=ActiveDocument.GetSheetObject("LB04")

obj.CopyTextToClipboard

oXLApp.Activesheet.Paste

oXLApp.DisplayAlerts = False

wb.Save

wb.Close

oXLApp.Quit

end sub

Please suggets me .

One more simple question ,Which macro works on server,if any specific then can any one telll me which king of macros works on server?

Regards,

Gaurav