Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

OLE: OpenText и Dialog.Show в Excel.Workbooks   Найти похожие ветки 

 
Sandman   (2003-02-28 11:28) [0]

Здравствуйте.

Нужно сохранять в формате xls данные из файла отчета БД.
Используется Delphi 6 и Excel2000.pas
Если пишу напрямую:
Excel.Workbooks.OpenText(FileName, xlMSDOS, 1,
xlDelimited,xlTextQualifierNone, false, false,
false, false, false, true, "|", FieldInfo,
0,".",",",0)
то все работает, файл читается. (Excel имеет тип TExcelApplication)
А вот если я хочу использовать диалог, чтобы дать пользователю возможность указать формат файла (считать файл не с разделителями, а со строками фиксированной длины, например), то программа вылетает по ошибке.
Я пишу:
Excel.Dialogs.Item[xlDialogOpenText].Show(FileName, xlMSDOS, 1,
xlDelimited,xlTextQualifierNone, false, false,
false, false, false, true, "|", FieldInfo,
0,".",",",0,null,null,null,null,null,
null,null,null,null,null,null,null,null);
Возможно, я неверно записываю последние (неиспользуемые) параметры метода. Я пробовал писать 0 вместо null, но результат был тот же. Пробовал и конструкцию, где все параметры, кроме первого (имени файла), были null - таким образом я пытался заставить Excel подобрать значения автоматически, как это происходит при попытке открытия файла вручную.

Еще один вопрос - что означает параметр lcid типа integer в методах Excel.TextOpen, Excel.ActiveWorkBook.SaveCopyAs, Excel.ActiveWorkBook.Close И т.д. А то использовать - использую (ставлю 0), а смысла не понимаю. И смех, и грех :-)

Буду очень признателен за любую помощь.


 
Sandman   (2003-02-28 16:19) [1]

Наконец-то нашел хороший учебник по Excel компонентам.
http://www.afalinasoft.com/rus/tips/index.html
Теперь ясно, что использовать в качестве lcid :)



Страницы: 1 вся ветка

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-29932
OneOfTheFew
2003-02-27 11:51
2003.03.10
Из дельфовой проги запустить внешнее приложение...


9-29687
Fog
2002-10-12 13:51
2003.03.10
3 вопроса про OpenGL


6-29993
Lancelot
2003-01-17 17:40
2003.03.10
Пакетный драйвер под Windows?


14-30035
Ketmar
2003-02-22 13:51
2003.03.10
как часто и активно вы используете в программах Assert ы?


14-30014
konstantinov
2003-02-24 02:00
2003.03.10
Проблема с модулем SDRAM 128Mb