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

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

 Отправлено: 07.10.24 15:05. Заголовок: Какой формат ячейки ..

Какой формат ячейки или функцию какую нужно использовать
для отображения штрих кода ? Пока добавляю в самом начале какой то символ
что бы Excel не смог сделать ни каких преобразований.
Например нужно отобразить вот такой штрих 4820015713872

 Отправлено: 07.10.24 15:24. Заголовок: А разве Эксель может..

А разве Эксель может делать в ячейке штрих-код ?
Наверное нужно делать картинку и потом прикреплять её в ячейку.
Штрих-коды, включая Qr-код есть в МиниГуи

 Отправлено: 07.10.24 15:37. Заголовок: Andrey ты не понял ..

Andrey
ты не понял
нужно просто в ячейке написать 4820015713872 и все и что бы так и осталось , но Excel начинает что
то придумывать и в итоге это число со степенью отображается

 Отправлено: 07.10.24 16:22. Заголовок: Подчеркивание поставь впереди

Поставь знак "_" впереди

 Отправлено: 07.10.24 17:15. Заголовок: Andrey пишет: Поста..

Andrey пишет:

цитата:

Поставь знак "_" впереди

Dima пишет:

цитата:

Пока добавляю в самом начале какой то символ

кароче вот

 Отправлено: 07.10.24 18:39. Заголовок: Dima пишет Пока доба..

Dima пишет

цитата:

Пока добавляю в самом начале какой то символ

попробуй "не прерывный пробел" ' ', в xml excel отлично понимает, что до, что после нужного текста, держит длину в пробелах

 Отправлено: 07.10.24 18:47. Заголовок: Дима, поставь формат..

Дима, поставь формат ячейки текстовый. Excel воспринимает значение как число, в целый оно не помещается, он преобразует в double, и так и показывает. А так будет строка

 Отправлено: 07.10.24 20:26. Заголовок: Pasha пишет: Дима, ..

Pasha пишет:

цитата:

Дима, поставь формат ячейки текстовый

Конечно я пробовал , не работает.
Сделал пока как советует выше M$ , перед таким текстом поставить ' , работает

 Отправлено: 10.10.24 14:50. Заголовок: Dima пишет: Конечно..

Dima пишет:

цитата:

Конечно я пробовал , не работает.

Если формат ячейки установлен текстовый и через VBA вставляешь текст, то и отображает как текст без преобразований
А если формат общий, а вставляешь текст, то он приводит значение к числу со степенью и изменение формата после вставки не работает.

 Отправлено: 10.10.24 17:58. Заголовок: MIKHAIL Так уже раз..

MIKHAIL
Так уже разобрались
Сохранение начальных нулей и больших чисел
И в конце советуют Перед числом можно ввести апостроф ('), и Excel будет обрабатывать его как текст. , в этом случае самого апострофа не видно в ячейке

MIKHAIL пишет:

цитата:

Если формат ячейки установлен текстовый и через VBA вставляешь текст, то и отображает как текст без преобразований

Насчёт NumberFormat:="@" , мысль понял
Что то я прозевал этот момент....

 Отправлено: 18.11.24 20:03. Заголовок: Добавил примечание к..

Добавил примечание к ячейке через AddComment() и заполнил его
Шрифт примечания Consolas
Текст внутри примечания это таблица рисованная с
помощью псевдографики и всё как бы идеально ,
но есть небольшие но видимые разрывы псевдографики
между строк.
Каким образом уменьшить межстрочный интервал , программно.

 Отправлено: 05.12.24 13:30. Заголовок: Всех с наступающим Н..

Всех с наступающим Новым Годом! Здоровья и благополучия!!!
Нужно при открытии файла проверить на:
1- наличие пароля на книгу
2- наличие пароля на лист
и снять пароли (пароли занесем в справочник) и как пароль передать в момент открытия файла Excel
oExcel :Workbooks:Open(FileInput)

необходимость снятия пароля обусловлена тем что, функция
oRange :=oExcel:ActiveCell:SpecialCells(xlLastCell)
cRecno :=oRange:Row
cColumn :=oRange:Column
не возвращает значения количество строк и количество столбцов на листе
а нам нужны эти значения...

Или есть функция, которая возвращает количество строк /столбцов/ на закрытом паролем листе /книге/?

 Отправлено: 05.12.24 14:00. Заголовок: Oskar_AAA пишет: oE..

Oskar_AAA пишет:

цитата:

oExcel :Workbooks:Open(FileInput)

Попробуй так
Workbooks:Unprotect:="твой пасс"
ну или так Osheet:Unprotect:="твой пасс"

 Отправлено: 05.12.24 16:44. Заголовок: При коде: oExcel ..

При коде:
oExcel :Workbooks:Open(FileInput)
oExcel :Workbooks:Unprotect:="111"
Ошибка:
|Error Excel.Application:WORKBOOKS/14 DISP_E_BADPARAMCOUNT: _UNPROTECT Arguments|
|: ( [ 1] = Type: C Val: 111)

 Отправлено: 05.12.24 16:52. Заголовок: При коде: cSheets..

При коде:
cSheets :=oExcel:WorkSheets:Count
oSheet :=oBook :Sheets(cSheets-1)
oBook :=oExcel:ActiveWorkBook
oAs :=oExcel:ActiveSheet()
oSheet :=oBook :Sheets(cSheets-1):Select()
oSheet :=oBook :Sheets(cSheets-1)
oSheet :=Unprotect:="111"
oRange :=oExcel:ActiveCell:SpecialCells(xlLastCell)

тут ошибка:
|Error Excel.Application:ACTIVECELL/0 S_OK: SPECIALCELLS Arguments: ( [ 1] = Type: N Val: 11)

 Отправлено: 05.12.24 19:09. Заголовок: пост 1762 от Andrey ..

пост 1762 от Andrey было
oSheet:UsedRange:Columns:Count // количество столбцов

сделал у себя аналогично:

cRecno :=oSheet:UsedRange:Rows:Count
cColumn:=oSheet:UsedRange:Columns:Count
возвращает количество строк и столбцов на листе не зависимо от наличия пароля на листе....
то что нам нужно

вместо
oRange :=oExcel:ActiveCell:SpecialCells(xlLastCell)

 Отправлено: 05.12.24 20:08. Заголовок: Oskar_AAA А так ? o..

Oskar_AAA
А так ?
oAS := oExcel:ActiveSheet()
oAs:UnProtect( "password" )

 Отправлено: 08.12.24 18:03. Заголовок: Спасибо, на днях поп..

Спасибо, на днях попробуем ...

 Отправлено: 24.03.25 09:20. Заголовок: Добрый день, требует..

Добрый день, требуется создать XML файл по заданной структуре.
Данные мы формируем из БД с последующей записью в XLSX файл, меняем имена столбцов как требуется в XML....
Что и как дальше делать (желательно все преобразования провести в программе, консольный xHarbour)?
Не хотелось бы нагружать Пользователя в премудрости конвертации в диалоговом режиме Excel.
или есть конвертор, который по заданной схеме преобразует XLS(x) в XML?

 Отправлено: 24.03.25 13:55. Заголовок: Oskar_AAA Если есть..

Oskar_AAA
Если есть структура XML , не вижу проблем сделать на уровне Harbour , нужное
преобразование из XLS
XML это текст (расширяемый язык разметки)