При экспорте в Excel - Страница 2 - NAV: Программирование

balashov · 16.05.2007, 11:56

Цитата:

Сообщение от smoyk

Во изврат... Я что-то не понимаю, чем не устраивает расшаренная сетевая папка? Шаблон будет братся из одного места для всех пользователей, централизованное обновление... Сделать скрытой, чтобы ламо всякие не лазили и не удалили случайно. А BLOB... Потеряете и в скорости (эт точно), и в удобстве (ну а это уже субьективно).

2 qrif
Обьясните, о какой гибкости вы говорите? Что именно вы потеряете (в плане гибкости)?

Сталкивался с этим, сетевые диски имеют свойство постоянно отваливаться, в результате чего перешел на BLOB. Удобно и красиво, непонял а причем сдесь скорость...

RedFox · 16.05.2007, 12:15

Цитата:

Сообщение от IGHG

В BLOB загонять и оттуда брать
Вообще в таких случаях лучше макрос записать в Excele по любым действиям что интересуют а потом посмотреть код

А можете тогда пример работы привести?

balashov · 16.05.2007, 13:14

Цитата:

Сообщение от RedFox

А можете тогда пример работы привести?

Загонять в блоб, код размещается в событие контрола

Код:

IF FieldName.IMPORT('', TRUE) = '' THEN
  EXIT;
IF FieldName.HASVALUE THEN
  IF NOT CONFIRM(Text001, TRUE, FIELDCAPTION(FieldName)) THEN
	EXIT;
CurrForm.SAVERECORD;

Выгрузка из blob

Код:

IF COPYSTR(Path, STRLEN(Path), 1) <> '\' THEN
  Path := Path + '\';
FileName:='FileName';
TableName.CALCFIELDS(FieldName);
IF (TableName.FieldName.HASVALUE) AND (STRLEN(Path)>0) THEN BEGIN
  PathFileName:=TableName.FieldName.EXPORT(Path+FileName);

smoyk · 17.05.2007, 05:09

2 balashov
Если постоянно отваливаются диски - пинайте сисада (надеюсь это не Вы?

)... Глючная сеть не повод отказыватся от неплохого решения (имхо), а повод эту сеть настроить. Но это в общем. А в частности признаю вы правы, такая проблема может быть. Упустил из виду, наверно потому, что сам пока с ней не сталкивался

А скорость вы теряете на этой самой выгрузке из блоба.

2 qrif
В смысле? Вы не знаете, где находится папка, в которой Вы разместили шаблон?

andrevk · 17.05.2007, 09:15

Цитата:

Сообщение от RedFox

А можете тогда пример работы привести?

Я для хранения шаблонов использую таблицу 12413 - Extern. Report Name. Там сделан интерфейс для загрузки файлов в BLOB.
Все шаблоны хранятся в одном месте. И легко их администрировать.
Плюс хранения шаблонов в BLOB - в том, что если я могу работать с шаблонами в независимости от места расположения базы.
А особых тормозов при работе с шаблонами, хранящимися в BLOB, я не вижу.

Padre · 18.05.2007, 17:52

Вопрос. Можно ли в excel выгружать картинки из blob полей

grif · 29.05.2007, 14:39

Цитата:

Сообщение от smoyk

2 qrif
В смысле? Вы не знаете, где находится папка, в которой Вы разместили шаблон?

Нет, я как раз про то что писали выше

gennady · 30.05.2007, 05:16

Цитата:

Сообщение от Padre

Вопрос. Можно ли в excel выгружать картинки из blob полей

Можно, но только через файл. Вот как я это сделал, используя временный файл:

(FSCntrl – Automation.Microsoft Scripting Runtime.FileSystemObject)

File.CREATETEMPFILE;
FName := File.NAME;
File.CLOSE;
IF ISCLEAR(FSCntrl) THEN CREATE(FSCntrl, TRUE);
Table.BLOBPicture.EXPORT(FName, FALSE);
XlWrkSht.Shapes.AddPicture(FName, 1, 1, PicLeft, PicTop, PicWidth, PicHeight);
FSCntrl.DeleteFile(FName);

Padre · 14.06.2007, 10:18

Проверил все работает. Спасибо за помощь

yes · 15.12.2009, 15:47

Вот какая задача - нужно закодировать выгрузку данных в органы статистики. Для этого написал отчет. отчет выгружает данные в Excel файл. ужна сохранить файл в формате txt с разделителями табуляции.

ActiveWorkbook.SaveAs
Filename := "C:\Documents and Settings\kmv\Мои документы\Книга1.txt",
FileFormat := xlText...
примерно так эта операция выглядит в VB.

а так выглядит сохранение файла в NAV
xlBook.SaveAs(FileName)

Есть ли возможность реализовать задуманное? Пробовал так
Filename := "C:\Мои документы\Книга1";
FileFormat := 'xlText';
xlBook.SaveAs(FileName, FileFormat); //валится с ошибкой

и так
Filename := "C:\Мои документы\Книга1.txt";
xlBook.SaveAs(FileName); //сохраняет, но в каком-то непонятном формате

Шрэк · 15.12.2009, 16:50

Вместо
xlBook.SaveAs(FileName, FileFormat);

Попробуйте так:
xlWkSheet.SaveAs(FileName, -4158); // Метод SaveAs относится к объекту Лист - xlWkSheet

-4158 Это целое. Значение Excel переменной xlText

Чтобы понять, что скрывается за именованной переменной в Excel нужно в макросе Excel написать строчку:

MsgBox("Имя переменной")

И запустить макрос. На экране появится сообщение со значением переменной, которое вы потом можете использовать в Навижн.

В данном случае в макросе в Excel можно написать:
MsgBox(xlText);

Выведется значение -4158.

Storkich · 15.12.2009, 22:40

Можно же просто в файл писать из нава (возможна проблема с кодировкой). В сто раз быстрее.

Шрэк · 16.12.2009, 09:37

Цитата:

Сообщение от Storkich

Можно же просто в файл писать из нава (возможна проблема с кодировкой). В сто раз быстрее.

Действительно... Непонятно зачем такой хитрый способ - вывод через Excel в текстовый файл.
Можно просто датапорт использовать.

yes · 16.12.2009, 10:16

Да, все верно - 4158 помогло. Теперь сохраняется. За идею с формированием через датапорт спасибо. Как-то в голову не пришло

GGNAME · 21.02.2010, 11:43

Доброго времени суток! Подскажите пожалуйста как при выгрузке в Excel рисовать таблицу, создавал макросы в Excel, изучал их потом, перечитал всё что было, но не нашёл ответа -( перепробывал разный синтаксис написания, ничего не получается. Или подскажите откуда черпать информацию об этом. Заранее благодарен!