|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.10.2010, 01:04 | #1 |
Пользователь
Регистрация: 25.04.2010
Сообщений: 22
|
Excel с циклом
procedure TForm1.Button1Click(Sender: TObject);
var Sheet,Colum:Variant; i,i1,f,f1,rc:Integer; begin E := CreateOleObject('Excel.Application' ); E.Workbooks.Add; if SaveDialog1.Execute then E.ActiveWorkbook.SaveAs(SaveDialog1 .FileName); E.Workbooks[1].WorkSheets[1].Name:='Каталог'; Colum:=E.Workbooks[1].WorkSheets['Каталог'].Columns; Colum.Columns[1].ColumnWidth:=17.86; Colum.Columns[2].ColumnWidth:=15.71; Colum.Columns[3].ColumnWidth:=17.86; Colum.Columns[4].ColumnWidth:=19.29; Colum.Columns[5].ColumnWidth:=22.29; Colum.Columns[6].ColumnWidth:=12.29; Colum:=E.Workbooks[1].WorkSheets['Каталог'].Rows; Colum.Rows[2].Font.Bold:=true; Sheet:=E.Workbooks[1].WorkSheets['Каталог']; Sheet.Cells[2,1]:='Название'; Sheet.Cells[2,2]:='Страна'; Sheet.Cells[2,3]:='Тип телевизора'; Sheet.Cells[2,4]:='Поддержка стерео'; Sheet.Cells[2,5]:='Частота разверстки, Гц'; Sheet.Cells[2,6]:='Цена, руб'; for i:=1 to stringgrid1.RowCount-1 do begin for i1:=1 to 5 do begin rc:=stringgrid1.rowcount; for f:=1 to rc do for f1:=3 to 6 do Sheet.Cells[f,f1]:=stringgrid1.Cells[i1,i]; end; end; E.ActiveWorkbook.Close; end; неправильно сохраняет в Excel, как исправить? |
30.10.2010, 08:38 | #2 | |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
Цитата:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вопрос с циклом | Ученик.6Б | Общие вопросы Delphi | 36 | 11.06.2010 19:44 |
Помогите с циклом!!!! | klimpashka23 | Microsoft Office Excel | 1 | 27.09.2009 17:06 |
помогите с циклом | pobedin | БД в Delphi | 2 | 28.08.2009 14:56 |
Задача с циклом for в c++ | Many man | Помощь студентам | 5 | 14.12.2008 12:01 |
Помогите с циклом | Almost_Famous | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 8 | 27.03.2008 21:08 |