Отправлено: 21.05.12 16:52. Заголовок: Снова EXCEL (продолжение)

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

 Отправлено: 26.07.22 21:24. Заголовок: Что то не могу найти..

Что то не могу найти на форуме , что бы преобразовывать RC формат к ABCD и тд
То есть имею точные координаты строка и колонка (числа) , нужно преобразовать к формату не RC
Ткните носом плиз

PS
Имею цифры в колонках 1 2 и 3 и в 4 нужно подбить сумму , как это сделать имея лишь
номера колонок и столбцов через СУММ ?

 Отправлено: 26.07.22 22:57. Заголовок: Dima пишет То есть и..

Dima пишет

цитата:

То есть имею точные координаты строка и колонка (числа) , нужно преобразовать к формату не RC

http://clipper.borda.ru/?1-4-0-00000749-000-180-0
пост 3305

 Отправлено: 27.07.22 08:18. Заголовок: SergKis Спасибо :s..

SergKis
Спасибо

 Отправлено: 09.09.22 09:03. Заголовок: Имеется числовая кол..

Имеется числовая колонка, в ячейках которой может стоять разный формат, например

00000001

или

0000000001

если выбирать oCell:Value, то результат будет одинаковый: 1.00

Можно ли выбрать символьное преставление ячейки, или надо самому выбирать oCell:NumberFormat и дальше его анализировать и самому преобразовывать ?

 Отправлено: 09.09.22 09:37. Заголовок: ага, есть еще свойст..

ага, есть еще свойство Text, там как раз то, что нужно
Жаль, нельзя выбрать Text для Range, как Value, а там надо выбирать тысячи строк, будет мееедленноооо

 Отправлено: 09.09.22 11:27. Заголовок: Range......:NumberFo..

Range......:NumberFormat:="@"
не то ?

 Отправлено: 09.09.22 12:13. Заголовок: Там в столбце 8700 я..

Там в столбце 8700 ячеек, с разными комбинациями NumberFormat
есть
00000000
есть
0000000000
и еще много чего
есть и строковые. Это грубо говоря код предприятия для налогового отчета. Там и физлица, и юрлица, и паспортные данные встречаются, это будут строки, а не числа
Да я уже опрашиваю свойство Text, по скорости намного медленнее будет, но переживут, по другому никак.
Ни NumberFormat, ни Text для Range не возвращает массив как Value

 Отправлено: 09.09.22 12:29. Заголовок: Pasha пишет по друго..

Pasha пишет

цитата:

по другому никак.

" "+"000000000" // т.е. непрерывный пробел добавляем
или "000000000"+" "
PS
можно
repl("&nbsp;", 10)+<значение строковое>
<значение строковое 1>+repl("&nbsp;", 10)+<значение строковое 2>

 Отправлено: 09.09.22 12:57. Заголовок: У меня противоположн..

У меня противоположная задача, не сформировать таблицу в Excel, а выбрать данные из сформированной сторонним ПО, или просто заполненной. А там формат ячеек может быть каким угодно

 Отправлено: 09.09.22 13:50. Заголовок: Можно формировать xm..

Можно формировать xml файл из excel (делает быстро) и читать его, то же быстро и форматы данных от базы, т.е. свои

 Отправлено: 12.10.22 10:47. Заголовок: Передаю объект TBrow..

Передаю объект TBrowse в Excel, имеется колонка типа дата

Делаю:
oCell:Value := d

или oRange:Value := {...}

где в массиве ячейки этого столбца имеют тип Date
NumberFormat не устанавливаю

В это случае Excel сам ставит формат ячейки Дата, и правильно передает и отображает значение

Но у одного заказчика после недавно переустановленного Excel 2010 формат ячейки остается Общий, и значение отображается неправильно - там целое число
Может в Excel есть какая-то настройка, чтобы он устанавливал формат ? С наверное сотнями пользователей с разными версиями Excel от 2003 до 2019 за десятки лет такой проблемы не было, с одним возникло
Может дело в региональных стандартах ? Смотрю в Excel Параметры - Дополнительно - Использовать системные разделители - Галочка стоит.
Непонятно

 Отправлено: 12.10.22 11:29. Заголовок: Проверьте что устано..

Проверьте что установлено в стилях ячеек у этого пользователя.
Вкладка главная -> стили -> стили ячеек-> обычный-> правый клик-> изменить.

Ps Однозначно решает вопрос предварительная установка numberformat в ячейки. Для себя отказался от заполнения через ole, гоню выгрузку сначала в XML, а через ole дорисовываю красоту. Продукты микрософт очень любят подсунуть нежданчик на ровном месте.

 Отправлено: 20.10.22 13:08. Заголовок: мозги сломал, когда ..

мозги сломал, когда искал, почему

oSheet:Columns(nCol):NumberFormat := "m/d/yyyy"

не работает, хотя запись макросов дает такой именно это.

надо так:

oSheet:Columns(nCol):NumberFormat := "ДД.ММ.ГГГГ"

 Отправлено: 20.10.22 13:28. Заголовок: Pasha пишет: oSheet..

Pasha пишет:

цитата:

oSheet:Columns(nCol):NumberFormat := "m/d/yyyy"

а я забил на фиг на такой формат и пишу так
oSheet:Columns(nCol):NumberFormat :="@"
oSheet:Cells( j, a ):Value:=" "+hb_dtoc(i,"DD.MM.YYYY")

 Отправлено: 08.06.23 17:51. Заголовок: Порча какая с Excel ..

Порча какая то с Excel
Было

 
 oSheet:Range(osheet:cells(j,1),osheet:cells(j,4)):NumberFormat:={"@","@", "# ##0.00","# ##0.00"} 
 Работает 
 

Решил отрицательные числа сделать красным и не пашет , падает Excel

 
 oSheet:Range(osheet:cells(j,1),osheet:cells(j,4)):NumberFormat:={"@","@", "# ##0.00;[Red]# ##0.00","# ##0.00;[Red]# ##0.00"} 
 

Как решить вопрос ?

 Отправлено: 09.06.23 03:53. Заголовок: Я в 2015 году делал ..

Я в 2015 году делал вот так.

           // создаём окно ожидания с потоком 
    WaitThreadCreate( 'Расчёт и вызов Excel ...' ) 
  
    // Область с заполненными данными 
    oRange := oExcel:ActiveCell:SpecialCells( 11 /*xlLastCell*/ ) 
    nRowXls := oRange:Row        // Последняя строка 
    nColXls := oRange:Column     // Последний столбец 
  
    oSheet:Columns( 1 ):Autofit() 
  
    oSheet:Cells[ 1, nRowXls + 1 ]:HorizontalAlignment := 4    // Выравнивание по правому краю ячейки 
    oSheet:Cells[ 1, nRowXls + 1 ]:Font:ColorIndex := 3        // Шрифт красный 
    oSheet:Cells[ 1, nRowXls + 1 ] := 'Итого сумма с минусом' 
    oSheet:Cells[ 1, nRowXls + 2 ]:HorizontalAlignment := 4 
    oSheet:Cells[ 1, nRowXls + 2 ]:Font:ColorIndex := 5        // Шрифт синий 
    oSheet:Cells[ 1, nRowXls + 2 ] := 'Итого сумма с плюсом' 
    oSheet:Cells[ 1, nRowXls + 3 ]:HorizontalAlignment := 4 
    oSheet:Cells[ 1, nRowXls + 3 ] := 'Итого сумма' 
  
    FOR nCol := 2 TO nColXls 
       xValue := oSheet:Cells( 1, nCol ):Value 
       IF 'OSTAT' $ xValue .OR. 'DOLG' $ xValue 
  
          oSheet:Cells[ nCol, nRowXls + 1 ] := '=СУММЕСЛИ( R[-' + AllTrim( Str( nRowXls-1, 8) ) + ']C:R[-1]C; "<0" )' 
          oSheet:Cells[ nCol, nRowXls + 1 ]:NumberFormat := '# ##0,00' 
          oSheet:Cells[ nCol, nRowXls + 1 ]:Font:ColorIndex := 3        // Шрифт красный 
  
          oSheet:Cells[ nCol, nRowXls + 2 ] := '=СУММЕСЛИ( R[-' + AllTrim( Str( nRowXls, 8) ) + ']C:R[-2]C; ">0" )' 
          oSheet:Cells[ nCol, nRowXls + 2 ]:NumberFormat := '# ##0,00' 
          oSheet:Cells[ nCol, nRowXls + 2 ]:Font:ColorIndex := 5        // Шрифт синий 
  
          oSheet:Cells[ nCol, nRowXls + 3 ] := '=СУММ( R[-' + AllTrim( Str( nRowXls+1, 8) ) + ']C:R[-3]C)' 
          oSheet:Cells[ nCol, nRowXls + 3 ]:NumberFormat := '# ##0,00' 
  
       ENDIF 
       IF 'DATE' $ xValue 
          oSheet:Columns( nCol ):Autofit() 
       ENDIF 
  
    NEXT 
  
    oSheet:Cells[ 2, nRowXls + 4 ]:Select() 
    oExcel:Visible := .T. 
  
    WaitThreadClose()   // закрыть окно "ожидания" 
  
    hWnd := oExcel:hWnd 
    ShowWindow( hWnd, 3 ) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6 
    BringWindowToTop( hWnd )

 Отправлено: 09.06.23 14:25. Заголовок: Andrey Это понятно ..

Andrey
Это понятно что и так можно сделать , так и сделал.
Не понятно почему Excel выдав в своем же макросе NumberFormat "# ##0.00;[Red]# ##0.00" ,
отказывается с ним работать через олю в Harbour

 Отправлено: 09.06.23 14:50. Заголовок: Вот тут https://supp..

Вот тут https://support.microsoft.com/en-us/office/number-format-codes-5026bbd6-04bc-48cd-bf33-80f18b4eae68
говорят, что надо как-то так:

цитата:

To indicate that a number format will be applied only if the number meets a condition that you have specified, enclose the condition in square brackets. The condition consists of a comparison operator and a value. For example, the following number format will display numbers that are less than or equal to 100 in a red font and numbers that are greater than 100 in a blue font. [Red][<=100];[Blue][>100]

 Отправлено: 09.06.23 15:50. Заголовок: PSP Спасибо , побед..

PSP
Спасибо , победить не смог
На удачу сделал так

 
 "# ##0.00;[Красный]# ##0.00" 
 

Блин , заработало
Но так делать стрёмно , если у кого English Excel стоит.

PS
По идее в Excel должна быть переключалка языка для макросов , вот только где она живет.......надо поискать

 Отправлено: 16.09.23 14:49. Заголовок: Есть строка в таблиц..

Есть строка в таблице с группировкой , то есть слева от нее крестик , при нажатии на который
раскроется еще скажем 20 строк.
Группировка в строке делалась примерно так

 
 oSheet:Range(.........):Select() 
  WITH OBJECT oExcel:Selection 
 :Rows:Group()  
  ENDWITH 
 

Задача вот всю эту строку с группировкой надо бы переместить скажем после 3 строки таблицы Excel
Не пойму как это сделать.
Кто то делал похожее ?

 Отправлено: 25.09.23 09:59. Заголовок: Создаю книгу, заполн..

Создаю книгу, заполняю строки данными
Беру oSheet:HPageBreaks:Count. получаю 4 разделителя страниц
Визуально в книге их четыре и есть
Затем в цикле их перебираю. От одного до трех все в порядке, получаю адрес и номер строки разделителя
А на последний: oSheet:HPageBreaks(4) получаю ошибку: MEMBERNOTFOUND
В чем ошибка ? Как получить последний разделитель ?

 Отправлено: 25.09.23 12:09. Заголовок: Pasha Может от 0-3 ..

Pasha
Может от 0-3 ?

 Отправлено: 25.09.23 12:10. Заголовок: Глюк становится еще ..

Глюк становится еще непонятнее
Копаю дальше. Оказывается, неважно сколько получается HPageBreaks, Excel дает только первые три, а с четвертого - ошибка
Пересохранил книгу из формата xls в xlsx. Теперь Excel дает только первые два разделителя страниц, а с третьего и дальше - ошибка

 Отправлено: 25.09.23 12:12. Заголовок: Может от 0-3 ? Нет,..

цитата:

Может от 0-3 ?

Нет, пробовал и так, нумерация всех коллекций в Excel идет с единицы

 Отправлено: 25.09.23 12:58. Заголовок: Сбросил пример на фа..

Сбросил пример на файлообменник. Здесь Excel дает только два разделителя страниц, а дальше ошибка

https://www.mediafire.com/file/gfo5rok5msncf3y/_pg.7z/file

 Отправлено: 25.09.23 14:21. Заголовок: Pasha пишет: Копаю ..

Pasha пишет:

цитата:

Копаю дальше. Оказывается, неважно сколько получается HPageBreaks, Excel дает только первые три, а с четвертого - ошибка Пересохранил книгу из формата xls в xlsx. Теперь Excel дает только первые два разделителя страниц, а с третьего и дальше - ошибка

у меня на 45-м упало
Excel 2010

 Отправлено: 25.09.23 14:46. Заголовок: Там всего 7 разделит..

Там всего 7 разделителей страниц

 Отправлено: 25.09.23 14:50. Заголовок: Pasha пишет: ам все..

Pasha пишет:

цитата:

ам всего 7 разделителей страниц

 Отправлено: 25.09.23 14:55. Заголовок: HPageBreaks Count 2..

HPageBreaks Count 211

 Отправлено: 25.09.23 15:37. Заголовок: Еще страньше. Я гоня..

Еще страньше. Я гонял на Excel 2016 и 2007. А предварительный просмотр сколько страниц дает ? Должно быть 8, как раз 7 разделителей

 Отправлено: 25.09.23 15:57. Заголовок: Да 8..

Да 8

 Отправлено: 25.09.23 16:29. Заголовок: у меня вышло (excel ..

PS.
Наверно, это не надо (убрал лишнее), смотрим только Sheet2 в примере
поставил nCnt := 8 или 10 (строки может надо анализировать) все загрузилось

 Отправлено: 25.09.23 17:06. Заголовок: https://i.postimg.cc..

 Отправлено: 25.09.23 17:18. Заголовок: Dima Спасибо. Навер..

Dima
Спасибо.
Наверно, я Пашу не понял, он про разделитель страниц, а я про Sheet (их тут три)
А разве нельзя посчитать nCnt разделители от полученного кол-ва строк Sheet2, пробежав по ним ?
Ведь полученное, у меня, HPageBreaks Count 218, явно врет

 Отправлено: 25.09.23 17:46. Заголовок: У меня там строки ра..

У меня там строки разной высоты, поэтому я и выбираю те разделители, которые Excel поставил. Есть еще и сквозные строки, заголовки на каждой странице. Надо поймать все разделители страниц, и на каждой странице внизу добавить строку - итоги по странице. А разделители собаки такие не работают.

 Отправлено: 25.09.23 18:01. Заголовок: Pasha пишет У меня т..

Pasha пишет

цитата:

У меня там строки разной высоты, поэтому я и выбираю те разделители, которые Excel поставил.

Так я и предлагаю их посчитать, пробежав по всем строкам (получив сначала их кол-во, в LibXL от этого пляшу, Sheet->кол-во строк->...), тут не важно высоты строк. Запомнить номер строки перед символом (получить список) и потом в обратном порядке этого списка добавлять строки итоги на каждый лист Sheet2

 Отправлено: 25.09.23 18:18. Заголовок: Поскольку HPageBreak..

Поскольку HPageBreaks конкретно глючит, нашел другое решение:
В цикле по строкам опрашивать:

if oSheet2:Rows(nRow):PageBreak # xlNone

значит в этой строке разделитель страницы
Медленно будет конечно, но пока по другому не получается

 Отправлено: 25.09.23 18:52. Заголовок: Паша лови решение oE..

Паша лови решение
oExcel:ActiveWindow:View:= xlPageBreakPreview // 2
nCnt := oSheet2:HPageBreaks:Count() // 7

 Отправлено: 25.09.23 18:56. Заголовок: Результат ..

Результат

 
          1 
          2 
          3 
          4 
          5 
          6 
          7 
          7: 38 70 102 136 170 202 234 
 

 Отправлено: 25.09.23 18:57. Заголовок: Спасибо, заработало ..

Спасибо, заработало !

 Отправлено: 21.10.23 13:01. Заголовок: Подскажите

Как сменить направление текста в ячейке?

 Отправлено: 21.10.23 14:15. Заголовок: alex_II Если мы про..

alex_II
Если мы про ориентацию то так например
oSheet:cells(j,1):Orientation:=90

 Отправлено: 22.10.23 05:58. Заголовок: Да, я это и имел в в..

Да, я это и имел в виду, спасибо

 Отправлено: 10.01.24 19:06. Заголовок: как сделать полноэкр..

как сделать полноэкранный курсор (каким то цветом) в Excel ?

ps
я не про мышку

 Отправлено: 11.01.24 19:55. Заголовок: Проехали поставил Fo..

Проехали поставил FollowCellPointer

 Отправлено: 13.01.24 18:59. Заголовок: ComboBox кто нибудь ..

ComboBox кто нибудь делал в Excel средствами Harbour , можно примерчик ?

 Отправлено: 23.02.24 23:20. Заголовок: Как в экселе сделать..

Как в экселе сделать замену ВСЕХ символов ";" на "|" ?
И подсчёт кол-ва замены можно сделать ?
В Ворде знаю как, а в экселе не делал.

 Отправлено: 24.02.24 07:03. Заголовок: Андрей, привет .......

Андрей, привет .....
а у меня проблемы с вордом ... как в одной сроке установить разные символы ..?
Вариант с поиском и заменой не подходит.

 Отправлено: 25.02.24 17:06. Заголовок: Andrey гугли )) htt..

Andrey
гугли ))
https://www.excel-vba.ru/forum/index.php?topic=5574.0
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=99894&TITLE_SEO=99894-makros-zamena-zapyatoy-na-tochku

 Отправлено: 27.02.24 23:08. Заголовок: Не пойму как макрос ..

Не пойму как макрос Экселя переделать в Харборовский код ?

   oExcel := win_oleCreateObject( "Excel.Application" )  
    oExcel:Visible := .F.          // .T. показать Excel на экране для отладки 
    oExcel:DisplayAlerts := .F.    // убрать предупреждения Excel 
    oExcel:Workbooks:Open( cFile, 0 ) 
    oBook      := oExcel:ActiveWorkBook() 
    oSheet     := oExcel:ActiveSheet() 
    oRange     := oExcel:ActiveCell:SpecialCells( xlLastCell ) 
    nXlsRecno  := oRange:Row                        // количество строк таблицы Excel 
    nXlsColumn := oRange:Column                     // количество колонок Excel - НЕ всегда РАБОТАЕТ НОРМАЛЬНО ! 
                                                     // если 1-я строка объединена, то не работает 
    //nXlsColumn := oSheet:UsedRange:Columns:Count  // количество колонок Excel - РАБОТАЕТ 
 .... 
    // макрос экселя 
      Cells.Replace What:=";", Replacement:="|", LookAt:=xlPart, SearchOrder _ 
         :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

 Отправлено: 28.02.24 07:54. Заголовок: Объект Cells - это o..

Объект Cells - это oSheet:Cells

Я тебе в телегу кидал описание метода Replace:

expression.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)
expression Required. An expression that returns a Range object.

Вместо ключевых параметров в макросе подставляешь позиционные для харбора

 Отправлено: 28.02.24 09:00. Заголовок: Pasha пишет: Вместо..

Pasha пишет:

цитата:

Вместо ключевых параметров в макросе подставляешь позиционные для харбора

Не понимаю как это сделать....

 Отправлено: 28.02.24 09:22. Заголовок: Внимательно читаем и..

Внимательно читаем инструкцию

expression.Replace(...

expression - это Cells, в макросе - Cells.Replace. Cells - это oSheet:Cells

т.е. пишем:

oSheet:Cells:Replace

далее в инструции:

expression.Replace(What,

параметр What в макросе - это What:=";"

т.е. пишем на харборе:

oSheet:Cells:Replace(";",

затем таким же макаром подставляем остальные параметры

 Отправлено: 28.02.24 11:49. Заголовок: Pasha пишет: oSheet..

Pasha пишет:

цитата:

oSheet:Cells:Replace(";",

Вот это и не знал как сделать ! Спасибо БОЛЬШОЕ !

Работает отлично !

     oSheet:Cells:Replace(";","|",xlPart,xlByRows,.F.,.F.,.F.)

Только кол-во замен нет.
Хотя это и не особо важно...

 Отправлено: 04.03.24 08:45. Заголовок: Что-то совсем забыл ..

Что-то совсем забыл как работать с Экселем....
Нужно удалить целиком первую строку в экселе.
Макрос такой:

    Rows("1:1").Select 
     Selection.Delete Shift:=xlUp

Как его переделать на Харбор ?
Заранее БОЛЬШОЕ СПАСИБО за помощь.

 Отправлено: 04.03.24 13:25. Заголовок: смотрим пример из mi..

смотрим пример из minigui: Tsb4csvOle.prg

/*
* MINIGUI - Harbour Win32 GUI library Demo
*
* Copyright 2018 Verchenko Andrey <verchenkoag@gmail.com> Dmitrov, Moscow region
*/

там в самом конце есть цикл с удалением строки:

FOR nI := LEN(aLineDel) TO 1 STEP -1
nLine := aLineDel[nI]
oSheet:Cells( nLine, 1 ):Value := nI
oExcel:Rows(nLine):Delete()
NEXT

 Отправлено: 04.03.24 16:10. Заголовок: Pasha СПАСИБО БОЛЬШО..

Pasha СПАСИБО БОЛЬШОЕ !
Памяти уже совсем нет...