|
#1
|
|||
|
|||
excel
Как сделать границы?
Код:
begin try XLApp := CreateOleObject('Excel.Application'); XLApp.WorkBooks.Add(GetCurrentDir+'\xls\Отчет.xls'); except raise Exception.Create('not Excel'); end; Sheet:=XLApp.Workbooks[1].Worksheets['Отчет']; index:=3; DataModule2.ADOQuery1.First; for i:=0 to DataModule2.ADOQuery1.RecordCount-1 do begin Sheet.Cells[index,1]:=DataModule2.ADOQuery1.Fields.Fields[1].AsString; Sheet.Cells[index,2]:=DataModule2.ADOQuery1.Fields.Fields[2].AsString; Sheet.Cells[index,3]:=DataModule2.ADOQuery1.Fields.Fields[3].AsString; Sheet.Cells[index,4]:=DataModule2.ADOQuery1.Fields.Fields[4].AsString; Sheet.Cells[index,5]:=DataModule2.ADOQuery1.Fields.Fields[7].AsString; Sheet.Cells[index,6]:=DataModule2.ADOQuery1.Fields.Fields[8].AsString; Sheet.Cells[index,7]:=DataModule2.ADOQuery1.Fields.Fields[9].AsString; Sheet.Cells[index,8]:=DataModule2.ADOQuery1.Fields.Fields[10].AsString; Sheet.Cells[index,9]:=DataModule2.ADOQuery1.Fields.Fields[11].AsString; Inc(index); DataModule2.ADOQuery1.Next; XLApp.Visible := true; end; |
#2
|
||||
|
||||
Запиши в экселе макрос, посмотри его код. Перепиши этот код себе.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
сделал! Тема закрыта!
|