Форум » [x]Harbour » Снова EXCEL (продолжение) » Ответить

Снова EXCEL (продолжение)

Dima: Ранее с Excel из Harbour ни когда не работал. Поставили тут задачу. У некоторых поставщиков есть определенные формы заказов. Набраны они в Excel. Сейчас народ руками заполняет эти формы и шлет по электронке поставщикам. Задача сводится к тому что бы в этих формах находить нужные коды товара и в нужной ячейке проставлять заказ. Может ткнет кто носом с чего начать что бы не напороться на грабли. Спасибо Сами формы тут http://zalil.ru/33279066

Ответов - 155, стр: 1 2 3 4 5 6 7 8 All

Andrey: Haz пишет: Я пользуюсь без всяких дополнительных функций. Все родное, харбуровское. Или речь не о том? Да я не понял тоже. В примере разве - всё родное, харбуровское ?

Dima: Andrey пишет: А есть пример небольшой, демонстрирующий как этим пользоваться ? Пост N: 3573 в этой теме

fil: Есть переменная содержащая RTF структуру. Как вставить эту переменную в ячейку Excel не как текст, а как RTF ?


fil: Всем, привет ! Как можно программно войти в ячейку. Т.е. как если дважды кликнуть на ячейке и войти в режим редактирования. (макрос делал)

Dima: fil пишет: программно войти в ячейку Может это ?

fil: Только этот метод будет работать ежели Excel уже визуализирован. А так вроде подходит :SetKeys({"F2"}) :Paste() :SetKeys({"RETURN"}) А то ежели сделать paste не входя в ячейку, текст из клипборда распределится по строкам. В общем вся фигня из за того, что мне в ячейку Excel надо положить форматный текст, а в value ячейки можно положить только текст без формата. Остается paste

Andrey: Всем привет ! Переношу проект из HBOLE.LIB -> HBWIN.LIB Создаю экселовский файл из массива: [pre2]// дата , л/счёт , код , .... aDim := { DATE(), "901010"+HB_NtoS(10+nLine), "001", .... }[/pre2] В HBOLE.LIB использовал: [pre2] IF cType == "D" oSheet:Cells( nLine, nI ):SET( "NumberFormat", "@" ) [/pre2] Получалось так: При использовании HBWIN.LIB переделал код: [pre2] IF cType == "D" oSheet:Cells( nLine, nI ):NumberFormat := '@' // текстовая ячейка[/pre2] И так получается: Как для HBWIN.LIB сделать шаблон даты 99.99.9999 ?

Dima: Andrey пишет: Как для HBWIN.LIB сделать шаблон даты 99.99.9999 ? Сделать руками такой шаблон в Excel (c записью в макрос) и после смотреть что он туда нарисовал

a_sidorov: Чтобы дата корректно отображалась в Excel, нужно дату преобразовать в строку, откуда Excel знает, что на входе дата и в каком зашифрованном виде? Например, так oSheet:Cells( nLine, nI ):Value := If( ValType( xValue )=="D", DtoC( xValue ), If( ValType( xValue )=="N", xValue , ; If( ValType( xValue )=="L", If( xValue ,".T." ,".F." ), cValToChar( xValue ) ) ) )

Haz: Andrey пишет: NumberFormat := '@' Никаких проблем не испытываю при прямой записи даты в Excel. Единственное в hbwin пустую дату необходимо заменить на nil. Указание @ в нумберформате говорит, что следующие данные это строка. Может в этом проблема

Andrey: Haz пишет: Указание @ в нумберформате говорит, что следующие данные это строка. Может в этом проблема В HBOLE.LIB работало, в HBWIN.LIB - нет. Делаю следующее: [pre2] aDim := { DATE()-nLine, "901010"+HB_NtoS(10+nLine), .... } FOR nI := 1 TO LEN(aDim) cType := VALTYPE(aDim[nI]) xValue := aDim[nI] oSheet:Cells( nLine, nI ):Value := xValue IF cType == "D" // преобразуем в текстовый формат //oSheet:Cells( nLine, nI ):NumberFormat := '@' // работает //xValue := StoD( DTOS(xValue) ) // for HBOLE - oSheet:Cells( nLine, nI ):SET( "NumberFormat", 'm/d/yy' ) // дата ячейка - было ранее oSheet:Cells( nLine, nI ):NumberFormat := 'm/d/yy' // дата ячейка - НЕ РАБОТАЕТ, вылет по ошибке ELSEIF cType == "N" .....[/pre2]

Alex_Cher: Мужики, пособите ... создаю Excel, необходимо закрепить верхнюю часть таблицы на экране - макрос выдает " ActiveWindow.FreezePanes = True " вставляю в MiniGUI в разных комбинациях не проходит ... что не так ?

Dima: Alex_Cher Примерно так oExcel:Sheets():Select() oExcel:ActiveWindow:SplitRow := 11 // :SplitCol oExcel:ActiveWindow:FreezePanes := .t.

Alex_Cher: Dima пишет: Примерно так Dima - спасибо большое все нарисовалось,.. удачи тебе и всех благ ....

Pasha: В HBOLE.LIB работало, в HBWIN.LIB - нет. Удивительно, но дельфийский народ жалуется на такой же трабл (хоть у них нет hbole): http://citforum.ck.ua/programming/delphi/excel/



полная версия страницы