|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Excel - формат полей при импорте
Проблема в следующем!
Из программы на Delphi 7 создаю экселевский файл и запихиваю туда данные... данные всякие. При записи в ячейку строки, например "0001234" эксель считает, что это число и записывает его как "1234", а нужно именно чтобы эксель воспринимал это как строку, т.е "0001234", именно с ведущими нулями. Отсюда собственно впрос, как установить нужный формат ячейки и дать понять экселю, что мне нужно, чтобы он воспринимал данные именно как строку, а не как число! Заранее, Спасибо! |
#2
|
|||
|
|||
//------------ Форматы ячеек -----------------------------------
// "mmmm yy" // "#,##0.00_ ;[Red]-#,##0.00 " // "@" // "#,##0.00$;[Red]#,##0.00$" Код:
Function GetFormatRange(sheet:variant;range:string):string; begin try GetFormatRange:=E.ActiveWorkbook.Sheets.Item[sheet].Range[range].NumberFormat; except GetFormatRange:=''; end; End; Function SetFormatRange(sheet:variant;range:string;format:string):boolean; begin SetFormatRange:=true; try E.ActiveWorkbook.Sheets.Item[sheet].Range[range].NumberFormat:=format; except SetFormatRange:=false; end; End; |
#3
|
|||
|
|||
пиши перед числом апостроф
тогда всё что после - воспримется как строка (правда сложить такое число не получится ), но чисто для отчётов - то что надо!
Так же поможет, если строка начинается со знака "=" Удачи! |
#4
|
|||
|
|||
При экспорте в Excel из Delphi нужно поменять цвет фона строки и поставить границы между колонками.
Подскажите как это сделать. Заранее Спасибо. |
#5
|
||||
|
||||
Хотя бы так.
XL.Range[Cell1, Cell2].Borders.ColorIndex := 15; - серый цвет |