1. Проверку на присланный параметр:(по заявке 6097) Dim sName as String Dim wb as Object Dim se as Boolean sName = "sheet1" Set wb = AppE.Workbooks.Open( путь к .xls документу ) 'проверяю наличие sheet'а с именем sName se = len(wb.sheets(sName).name)>0 и вот тут проблема, если писать se = len(wb.sheets("sheet1").name)>0 то лист находится и se = true, а если se = len(wb.sheets(sName).name)>0 то происходит ошибка и se = false. 2. а) columns(1).hidden (по заявке 6058) Что бы иметь возможность скрывать ячейки. б) числа вставляются как строки. - необходимо учесть и исправить 3. Application - Selection Workbook - saveas
по поводу метода hidden. В openoffice смотреть в сторону `struct CellProtection` http://api.openoffice.org/docs/common/ref/com/sun/star/util/CellProtection.html
первый пункт исправлен.
Свойство Application->Selection - реализовано. Свойство Application->SaveAs - реализовано, частично.
Для скрытия колонки OpenOffice записывает следующий макрос: dispatcher.executeDispatch(document, ".uno:HideColumn", "", 0, Array()) для показа: dispatcher.executeDispatch(document, ".uno:ShowColumn", "", 0, Array()) Возможно надо это как-то использовать, но тогда встает вопрос, как узнать что колонка скрыта?
исправлена реализация SaveAs.
исправлена запись чисел, вместо записи строк.
Добавлен тест проверяющий 1. Application->Selection 2. что числа записываются как числа, а не как строки 3. что работает конструкции вида wb.sheets(sName).name, т.е. доступ через переменную. 4. Application SaveAs пройдены успешно.
тесты пройденв успешно. Закрываю.
