ник: bosse-sl
Попробовал
Dim ExlApp As Object
Dim WrkBk As Object
Set ExlApp = CreateObject("Excel.Application")
Set WrkBk = ExlApp.Workbooks
WrkBk.Open "c:\grid.xls"
WrkBk.SaveAs "c:\grid555.xls", -4143
WrkBk.Close
ExlApp.Quit
|
Теперь при запуске и нажатии на кнопку выдает ошибку:
Run-time error '438': Object doesn't support this property or metod
И предлагает отладку - выделяет строку WrkBk.SaveAs "c:\grid555.xls", -4143