Dim file1 As StringDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.Worksheet'получение ссылки на документ ExcelSet xlApp = Excel.ApplicationSet xlBook = xlApp.Workbooks.Open("C:\Таблица1.xls")f ile1 = Excel.Application.GetSaveAsFilename("Таб лица1.xls", "Excel Files (*.xls), .xls")If file1 = "False" Then 'если ошибка то выходим из программы Exit SubEnd IfxlBook.SaveAs file1как мне эти строки под OpenOffice переделать
|