>I made a little automation program to adjust column widths properties. This is the Code.
>
>uTMP = GetObject('ResulQAS12.XLS')
>oXLSApp = uTMP.application
>
>oXLHoja = oXLSApp.workbooks(1).WorkSheets(1)
>
>oXLHoja.Columns("A:A").EntireColumn.AutoFit
>oXLHoja.Columns("B:B").EntireColumn.AutoFit
>oXLHoja.Columns("C:C").EntireColumn.AutoFit
>oXLHoja.Columns("D:D").EntireColumn.AutoFit
>
>oXLSApp.workbooks(1).Save
>oXLSApp.workbooks(1).Close
>
>My problems is that it is now endlessly invisible, If I open it from Excel I can see the Ready prompt at the status bar. I’m sure it is open because when I try to open again the same file I receive the ‘Read Only’ warning. Excel does not show any signs of having this file opened.
>
>Any tips to solve my problem and improve this code are welcome.
>
>Regards
>
>Oscar
Can you quit the app instead of closing the workbook?
Dan
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only