Главная страница
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.015 c
14-30133
Cr@sh
2003-02-17 20:52
2003.03.10
Первая встреча мастаков в Екатеринбурге!


1-29949
smok_er
2003-02-26 12:35
2003.03.10
AlphaBlend...


14-30085
SergeN
2003-02-21 15:29
2003.03.10
Меня вот что напрягает


3-29761
KA_
2003-02-19 11:00
2003.03.10
Почему не работает UPPER?


1-29843
Colt
2003-02-26 06:48
2003.03.10
Прорисовка текста