Форум » [x]Harbour » Вопрос по Excel ? » Ответить
Вопрос по Excel ?
Andrey: Всем привет. Вопрос к знатокам Excel-я, как подсчитать сумму ВСЕХ значений с минусом и с плюсом ? Вот есть таблица из многих столбцов. Как сделать формулу для расчёта этих значений по 2-му столбцу ?
Dima: MIKHAIL Надо Пашу спросить , я не работаю с OpenOffice
Pasha: MIKHAIL пишет: этот механизм работает в OpenOffice ? Да, синтаксис другой: oRange:setDataArray(aData)
Haz: Погонял пример hbXlsxWriter из поставки Minigui Достойная альтернатива OLE. Поддержка всего чего нужно. Полностью документирован. Форматы, таблицы, чарты, формулы , макросы и пр. И при этом хорошая скорость вывода. Из недостатков только один - это только Writer, а не Reader/Writer.
Andrey: Что то опять у меня с Экселем не получается. Не могу удалить первую строку в таблице. Как это сделать ? Получил вот такой макрос: [pre2] Rows("1:1").Select Selection.Delete Shift:=xlUp[/pre2] А как перевести для Харбора не понимаю.... [pre2] oExcel:WorkBooks:Add() oBook := oExcel:ActiveWorkBook() // это книга oSheet := oExcel:ActiveSheet() // это лист oExcel:Workbooks:Open( cFileDbf, 0 ) // здесь нужно удалить первую строку oBook := oExcel:Get("ActiveWorkBook") oBook:SaveAs( cFileXls, xlWorkbookNormal ) oExcel:Quit() [/pre2]
Pasha: oSheet:Rows(1):Delete(xlShiftUp)
Andrey: Pasha пишет: oSheet:Rows(1):Delete(xlShiftUp) Не удаляет первую строку в таблице в 2003 Экселе. Может по другому надо ?
Pasha: так удаляет же. 2003-й я конечно сейчас не найду, но в 2016-м работает. Это же базовый метод, версия Excel роли не играет
Dima: может так ? oSheet:Rows(1):Select() oSheet:Rows(1):Delete() PS почитать и пробнуть , сам не юзал
Andrey: Pasha пишет: так удаляет же. 2003-й я конечно сейчас не найду, но в 2016-м работает Да, в 2016 удаляет. Сделал как Дима предлагал [pre2] oSheet:Rows(1):Select() oSheet:Rows(1):Delete(xlShiftUp)[/pre2] И в 2003 заработало... Спасибо БОЛЬШОЕ вам !
Roman: Есть готовый макрос https://softclipper.net/ispolzovanie-sql-i-dbf/xls-v-dbf-i-dbf-v-xls-makros-excel.html
Vlad04: Есть пример работы с двумя файлами Excel? Открыть первый, второй файл, прочитать данные в первом файле, обработать их, занести во второй файл, сохранить второй файл.
Vlad04: Всё получилось, всё как обычно
Dima: Не могу понять как это преобразовать в Harbour Хотел отслеживать что менялось в документе [pre2] With ActiveWorkbook .HighlightChangesOptions When:=xlSinceMyLastSave, Who:="Everyone" // вот тут затык .ListChangesOnNewSheet = True End With [/pre2]
Haz: Dima пишет: вот тут затык В справке MS это представлено как функция. https://learn.microsoft.com/en-us/office/vba/api/excel.workbook.highlightchangesoptions так пробовал ? [pre2] Syntax expression.HighlightChangesOptions (When, Who, Where) [/pre2]
Dima: Падает зараза на строке oExcel:ActiveWorkbook:HighlightChangesOptions(xlSinceMyLastSave,"Everyone") или так oExcel:ActiveWorkbook:HighlightChangesOptions(xlSinceMyLastSave) Эта штука xlSinceMyLastSave в Excel.ch есть
Dima: Похоже не получится , так как если руками включать , то Excel требует сохранить книгу А сохранять как раз не нужно. Смысл был следующий , бух формирует отчетик , он формируется в Excel , после бух вносит свои правки , спецом или же по ошибке а потом мне выносят мозг , мол прога не правильно считает
Haz: Dima пишет: Падает зараза на строке Excel как правило требует явного указания всех параметров при передаче в функцию Ранее сталкивался с этой фичей
Haz: Dima пишет: после бух вносит свои правки , спецом или же по ошибке а потом мне выносят мозг , мол прога не правильно считает Делай скрытый ярлык под паролем и пиши туда копию . можно с условным форматом - цветом изменения если данные не совпадают в ячейках на двух листах
Dima: Haz пишет: Делай скрытый ярлык под паролем и пиши туда копию . можно с условным форматом - цветом изменения если данные не совпадают в ячейках на двух листах Покажи примерчик если есть живой а нет если буду гуглить :)
Haz: Dima пишет: Покажи примерчик если есть живой а нет если буду гуглить :) когда-то делал, поищу. Скорее всего в понедельник.
полная версия страницы