Delphi操作Excel日志记录
2014-05-30 11:48
471 查看
1、导出数据
uses Comobj; procedure TForm10.ExeclExit; var h,k:integer; Excelid: OleVariant; s: string; begin try Excelid := CreateOLEObject('Excel.Application'); except Application.MessageBox('Excel没有安装!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL); Exit; end; try k:=ADOQry.RecordCount; Excelid.Visible := True; Excelid.WorkBooks.Add; Excelid.worksheets[1].range['A1:D1'].Merge(True); Excelid.WorkSheets[1].Cells[1,1].Value :='缺件记录表' ; Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4; Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4; Excelid.WorkSheets[1].Cells[2,1].Value := '编号'; Excelid.WorkSheets[1].Cells[2,2].Value := '元件名'; Excelid.WorkSheets[1].Cells[2,3].Value := '数量'; Excelid.WorkSheets[1].Cells[2,4].Value := '备注信息'; Excelid.Columns[2].ColumnWidth:=20; //设置列宽度 Excelid.Columns[4].ColumnWidth:=40; Excelid.Cells[1,1].Interior.Color:=clGray; //设置单元格背景颜色 Excelid.worksheets[1].range['A1:D2'].Interior.Color:=clGray; Excelid.worksheets[1].Range['A1:D1'].Font.Name := '宋体'; Excelid.worksheets[1].Range['A1:D1'].Font.Size := 14; Excelid.worksheets[1].range['A1:D2'].font.bold:=true; Excelid.worksheets[1].Range['A2:D2'].Font.Size := 10; Excelid.worksheets[1].Range['A2:D2'].HorizontalAlignment := $FFFFEFF4; Excelid.worksheets[1].Range['A2:D2'].VerticalAlignment := $FFFFEFF4; h:=3; ADOQry.First; while not ADOQry.Eof do begin Excelid.WorkSheets[1].Cells[h,1].Value := Adoqry.FieldByName('编号').AsString; Excelid.WorkSheets[1].Cells[h,2].Value := Adoqry.FieldByName('元件名').AsString; Excelid.WorkSheets[1].Cells[h,3].Value := Adoqry.FieldByName('数量').AsString; Excelid.WorkSheets[1].Cells[h,4].Value := Adoqry.FieldByName('备注').AsString; Excelid.Cells[h,4].NumberFormatLocal:='@'; //设置单元格为文本格式 Inc(h); Adoqry.Next; end; //画表格边框线 s := 'A2:D'+ IntToStr(k+2); Excelid.worksheets[1].Range[s].Font.Name := '宋体'; Excelid.worksheets[1].Range[s].Font.size := 9; Excelid.worksheets[1].Range[s].Borders.LineStyle := 1; Excelid.Quit; except Application.MessageBox('导入数据出错!请检查文件的格式是否正确!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL); end; MessageBox(GetActiveWindow(), 'EXCEL数据导出成功!', '提示信息', MB_OK +MB_ICONWARNING); end;
相关文章推荐
- 写日志函数AppLog(记录程序中的错误或操作流程) Delphi
- alfresco用户操作日志记录,以及操作记录的Excel导出
- delphi中GRID数据导出到EXCEL的操作
- 近期研究dotnet操作Excel,在这里作一个记录。
- python文件操作(2)--分析扫描得到的日志文件把文件状态导入Excel表格
- Delphi操作Excel(1) ---获取excel的行数和列数
- 用DELPHI操作EXCEL
- Delphi关于Excel的操作
- DELPHI 操作EXCEL
- delphi 操作excel 文章转载
- 用delphi操作excel
- Delphi中的EXCEL操作命令
- 最小日志记录操作在三种恢复模型中的不同
- 我的Delphi操作Excel(值长日报的打印)
- 关于delphi的log的class已经完成,一如既往的open 他delphi ,日志class,临界区,文件操作
- Delphi操作Excel(Use Oel)
- 天外飞仙的专栏(Delphi操作XML,Excel,Word等)
- 记录用户操作日志
- 用DELPHI操作EXCEL====转帖收藏
- SSH架构中记录操作日志