[dmit2222]

Как сделать столбец текстового типа через Delphi?

[Delphist]

А поподробней??? откуда и куда, и какой столбец??? Тут программисты, а не телепаты.

[dmit2222]

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

А поподробней??? откуда и куда, и какой столбец??? Тут программисты, а не телепаты.

Вобщем из Delphi в Excel экспортируется таблица с данными. И допустим в Excel "столбец А" предназначен для записи в виде "2-1" или "3-2". Но в Excel по умолчанию формат ячейки "Общий" и мои данные автоматически заменяются соответственно на "02.янв" и "03.фев". Для того чтобы этого не происходило необходимо чтобы формат ячейки был "Текстовый".
Как это сделать через Delphi?

P.S. Создать файл и сделать необходимые ячейки тестовыми не выход - мне необходимо чтобы каждый раз создавался новый файл.

[lmikle]

В очередной раз:
1. Идем в Эксель.
2. Включаем запись макросов.
3. Делаем все руками.
4. Отключаем запись макросов и смотрим что записалось.
5. Включаем голову и пишем тоже самое на Delphi через OLE.

[Zhigalov]

так

Код:

Sheet.Cells[ind,4]:=DataModule2.Query.FieldByName('Column3').Value;

или так

Код:

Sheet.Cells[ind,4]:=DataModule2.Query.FieldByName('Column3').AsString;

[dmit2222]

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

так

Код:

Sheet.Cells[ind,4]:=DataModule2.Query.FieldByName('Column3').Value;

или так

Код:

Sheet.Cells[ind,4]:=DataModule2.Query.FieldByName('Column3').AsString;

Ты наверное не совсем меня понял. Если значение "DataModule2.Query.FieldByName('Column3').AsString " будет иметь вид "2-1", то в excel оно автоматически заменится на 02.янв.
Как этого избежать? Как сделать так чтобы "2-1" осталось "2-1".

[Ildar-tsr]

Код:

ExcelApp.Columns[4].Select;
ExcelApp.Selection.NumberFormat:= '@';

[dmit2222]

Сообщение от Ildar-tsr

Код:

ExcelApp.Columns[4].Select;
ExcelApp.Selection.NumberFormat:= '@';

Огромное спасибо!