Open и SaveAs - VB
Формулировка задачи:
Привет!
Делаю такую операцию после выполнения не выгружаеться
обьект Excel - я из процессов.
Что не так ?
Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
With XLAPP
.Workbooks.Open "C:\sh#1.xls"
.ActiveWorkbook.SaveAs "C:\sh1.xls"
.ActiveWorkbook.Close
.Quit
End With
Set XLAPP = Nothing
MsgBox ""
Делаю такую операцию после выполнения не выгружаеться
обьект Excel - я из процессов.
Что не так ?
Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
With XLAPP
.Workbooks.Open "C:\sh#1.xls"
.ActiveWorkbook.SaveAs "C:\sh1.xls"
.ActiveWorkbook.Close
.Quit
End With
Set XLAPP = Nothing
MsgBox ""
Решение задачи: «Open и SaveAs»
textual
Листинг программы
XLAPP.DisplayAlerts = False