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

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

 Отправлено: 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 СПАСИБО БОЛЬШОЕ !
Памяти уже совсем нет...