Форум

Цитата
nordk пишет: Вы из плагина открываете Excel ?

Я ничего не открываю, но очень бы хотелось. О каком плагине идет речь?
Просто есть exel-файл. Надо поменять там значения, открыть файл в exel и запустить макрос (сделать это в Б-5 доп функцией)... Я вообще кроме как CreateObject( "Excel.Application" ) не имею представления о том как делать Импор\экспорт данных в\из эксель таблиц. Не отказался бы от информации на эту тему, или хотя бы от конкретных функций\классов, которые мне потребовались бы.

Цитата

nordk пишет: Там чего-то супер особого нет. В старом форуме есть пример работы из харбора с Excel. Особенности открытия объекта в БЭСТ-5 есть на этом - недавно тема была. Дальше пишете в харборе на скрипте Visual Basic. Скрипт предполагает несколько отличный синтаксис и принцип написания а так все тоже самое почти... Есть предложение сначала ознакомиться с материалом и подозреваю ы врядли будут. Макрос прямо в плагин перепишите...А вообще нужен ли Вам именно Excel - может экраны средствами БЭСТа лучше нарисовать ? Не знаю Вашей задачи...

Было бы просто супер БЕСТом все сделать. Ситуация следущая:
На предприятии уже давным давно чертежи многих типов изделий есть в EXEL. Меняем там ячейки, отвечающие за размер, получаем новый чертеж на новое изделие новых размеров.

Цитата

nordk пишет: Ну да - тогда посмотрите как мы открываем и работаем с Exel на старом форуме есть пример.Потом по образцу и подобию трансформируйте макросы Excel в харбор...Когда непонятно что вернет та или иная запись ее можно пробовать в отладчике в командном окне - если не отрабатывает (некорректен синтаксис и т.п., то будет писать что не знаю такой объект - что-то типа)и еще для плагина не забудьте подключить excel.ch

Спасибо! Буду ковырять!

Цитата
Саак Шахламджян пишет: Пример на старом форуме нашёл ( Считать данные из Excel'я ), но не получается даже "запустить" Exel :( На oApp := CreateObject( "Excel.Application" ) ругань, что нет такой функции, явно упускаю что-то важное и простое из виду...

снят, нашёл пример для Б-5 (CreateObject в Б5).
Думается, вопросов будет больше по тому самому скриптовому языку VB (да и вообще по классу Excel.Application), там чистый VB? Можно, в принципе уже начинать искать описание синтаксиса этого языка и пользоваться ими или лучше все же дергать куски из примеров, приведенных на форумах?

Выгрузка данных в Exel.
Очень хочется при выгрузке длинных текстовых строк, чтобы они в одной ячейке переносились.
Поставил символ окнчания строки (как в файле .txt формата), exel переносит, однако там появляется некрасивый символ. (м\б нужен другой символ?)
М\б есть номальный способ "заставить" Exel делать перенос строки, если она не помещается в колонку по ширине?

Код
Local cString1:="Одна маленькая строка",cString,nEnd:=2573 cString:=cString1+W2bin(nEnd) cString+=cString1 ........ oAS:Range("A2"):formula:=cString //Пример из справочника к Б-4. oemtoansi() не пригодилось

Правда, как я понял запись oAS:Range("A2") - это запись в конкретную ячейку.
А запись вида

Код
oAS:Cells(nLine,1):Value:=HB_OEMTOANSI(Dt_Schet) oAS:Cells(nLine,1):NumberFormat:="@"

Запись в ячейку по номеру столбца, номеру ячейки и определение формата.... М\б Есть способ либо формат определить (во втором случае) или строку по-особому сформировать (как в первом). Подскажите, пожалуйта.

Цитата
nordk пишет: Не совсем понятно давайте пойдем по другому. 1.Вы сделаете файл с длинной строкой как есть. 2.Включите в Excel создание Макроса 3.Сделаете с ячейкой преобразование, которое Вам надо. 4.Остановите запись макроса. 5.Покажете полученный текст макроса.

Боюсь, в этом случае долго будет... Если из Бэст сразу выгружать как надо, быстрее будет? Хотя это мне так кажется.
Да нужно чтобы было красиво.. Проще картинку прикрепить, но попробую на пальцах:

№|К1.шир10|К2 шир50...|К3.......
.1|Номер 23 |Название.....|цифра3

.2|Номер 13 |Длинное наз|цифра2
...|...............|вание......... |

.3|Номер 444|Название2...|цифра3

Под символом № - новер ячейки EXEL. Символ "."=" "

"Длинное название" - лежит в одной ячейке номер 2, Колонка 2 широной 50 так и осталась шириной 50, но "Длинное название" перенеслось так, что его видно целиком.
А сейчас, когда выгружаю в Exel, получаю:

№|К1.шир10|К2 шир50...|К3.......
.1|Номер 23 |Название.....|цифра3

.2|Номер 13 |Длинное наз|цифра2

.3|Номер 444|Название2...|цифра3

От "Длинное название" видно только "Длинное наз", хотя, в ячейке оно целиком присутствует. Нужно, как бы высоту ячейки изменить, чтобы "Длинное название" было в несколько строк.

Для того, чтобы текст в ячейке переносился и высота втоматически подбиралась, Вам необходимо установить свойство WrapText в true. примерно так:
oWorkSheet:cells(nLine,nCol):WrapText:=.T.

Поставил так:
oWorkSheet:Range("B3"):WrapText:=.T.

Т.е. как бы обратился сразу к ячейке B3. Как правильно это назвать не знаю... Так работает!!! Спасибо!!
Но все-таки хотелось бы "правильное" решение :
oWorkSheet:cells(nLine,2):WrapText:=.T.

А оно почему-то не работает. Просто обращаться к ячейкам в цикле так:

Код
While ! Eof() ..... oWorkSheet:Range("B"+Var2Char(nLine)):WrapText:=.T. ..... enddo

Будет немного дольше....