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
