>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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement