Dear Friend,
I've developed code to create Excel work book and post data in to it. Since one year it is working fine. Now from 1 week it is not working at our client place. I am not able to trace what might gone wrong or new installations happened etc.,
I am putting the code here. As soon as the application reaches Line 10 program is just exiting without giving any error message.
Dim xlFl As String
1.On Error GoTo Errh
2.Excel.Applica tion.DisplayAle rts = False
3.xlFl = Replace(RltFl, ".rlt", ".xls", 1, 1, vbTextCompare)
CloseIfOpen xlFl
xlApp.DisplayAl erts = False
Set xlWorkBook = xlApp.Workbooks .Add
ActiveWindow.Zo om = 100
ActiveWindow.Wi ndowState = xlMaximized
xlWorkBook.Save As xlFl
I've developed code to create Excel work book and post data in to it. Since one year it is working fine. Now from 1 week it is not working at our client place. I am not able to trace what might gone wrong or new installations happened etc.,
I am putting the code here. As soon as the application reaches Line 10 program is just exiting without giving any error message.
Dim xlFl As String
1.On Error GoTo Errh
2.Excel.Applica tion.DisplayAle rts = False
3.xlFl = Replace(RltFl, ".rlt", ".xls", 1, 1, vbTextCompare)
CloseIfOpen xlFl
xlApp.DisplayAl erts = False
Set xlWorkBook = xlApp.Workbooks .Add
ActiveWindow.Zo om = 100
ActiveWindow.Wi ndowState = xlMaximized
xlWorkBook.Save As xlFl
Comment