SHOW:
|
|
- or go back to the newest paste.
1 | procedure TFlistadoLlamadas.Button1Click(Sender: TObject); | |
2 | var | |
3 | workBook : _WORKBOOK; | |
4 | workSheet : _WORKSHEET; | |
5 | i,b,c: Integer; | |
6 | begin | |
7 | try | |
8 | barraProgreso.Min := 0; | |
9 | i := 4; | |
10 | //Columnas: Numero, Fecha, Duracion, Extension, Celular, Ent. o Sal., Usuario, Linea | |
11 | workBook := Excel.Workbooks.Add(NULL,0); | |
12 | workSheet := workBook.Sheets[1] as _WORKSHEET; | |
13 | workSheet.Cells.Item[1,1].ColumnWidth := 2; | |
14 | workSheet.Cells.Item[2,3]:='Reporte de llamadas realizadas.'; | |
15 | workSheet.Cells.Item[2,3].font.size:=16; | |
16 | ||
17 | ||
18 | workSheet.Cells.Item[4,2] := 'Numero'; | |
19 | workSheet.Cells.Item[4,2].ColumnWidth := 30; | |
20 | workSheet.Cells.Item[4,3] := 'Fecha'; | |
21 | workSheet.Cells.Item[4,3].ColumnWidth := 30; | |
22 | workSheet.Cells.Item[4,4] := 'Duracion'; | |
23 | workSheet.Cells.Item[4,2].ColumnWidth := 10; | |
24 | workSheet.Cells.Item[4,5] := 'Extension'; | |
25 | workSheet.Cells.Item[4,5].ColumnWidth := 10; | |
26 | workSheet.Cells.Item[4,6] := 'Celular'; | |
27 | workSheet.Cells.Item[4,6].ColumnWidth := 20; | |
28 | workSheet.Cells.Item[4,7] := 'Ent. o Sal. '; | |
29 | workSheet.Cells.Item[4,7].ColumnWidth := 20; | |
30 | workSheet.Cells.Item[4,8] := 'Usuario'; | |
31 | workSheet.Cells.Item[4,8].ColumnWidth := 10; | |
32 | workSheet.Cells.Item[4,9] := 'Linea'; | |
33 | workSheet.Cells.Item[4,9].ColumnWidth := 13; | |
34 | ||
35 | max := DBGridDetalles.DataSource.DataSet.RecordCount; | |
36 | ShowMessage(IntToStr(max)); | |
37 | barraProgreso.Max := max; | |
38 | barraProgreso.Visible := true; | |
39 | ||
40 | - | //In this part I export row by row |
40 | + | |
41 | begin | |
42 | First; | |
43 | while not EOF do | |
44 | begin | |
45 | i := i + 1; | |
46 | workSheet.Cells.Item[i,2] := DBGridDetalles.Fields[0].AsString; | |
47 | Next; | |
48 | barraProgreso.StepIt; | |
49 | end; | |
50 | end; | |
51 | ||
52 | for b := 4 to i do | |
53 | begin Worksheet.Range['b'+IntToStr(b),'b'+IntToStr(b)].BorderAround(xlContinuous,xlTransparent,xlAutomatic,EmptyParam); Worksheet.Range['c'+IntToStr(b),'c'+IntToStr(b)].BorderAround(xlContinuous,xlTransparent,xlAutomatic,EmptyParam); Worksheet.Range['d'+IntToStr(b),'d'+IntToStr(b)].BorderAround(xlContinuous,xlTransparent,xlAutomatic,EmptyParam); Worksheet.Range['e'+IntToStr(b),'e'+IntToStr(b)].BorderAround(xlContinuous,xlTransparent,xlAutomatic,EmptyParam); Worksheet.Range['f'+IntToStr(b),'f'+IntToStr(b)].BorderAround(xlContinuous,xlTransparent,xlAutomatic,EmptyParam); Worksheet.Range['g'+IntToStr(b),'g'+IntToStr(b)].BorderAround(xlContinuous,xlTransparent,xlAutomatic,EmptyParam); | |
54 | end; | |
55 | barraProgreso.Visible := false; | |
56 | finally | |
57 | Excel.Visible[1]:=true; | |
58 | end; | |
59 | end; |