id怎么放excel表格表

1.word里的表格怎么排到ID里去

打开word文档，点击插入，表格，如图 2 如果想插入普通的表格，只要将鼠标放在表格上面就会显示出表格，这样也比较简单，如图 3 如果是比较复杂的表格，可以选用下拉菜单的“插入表格“功能。如图 在打开的窗口中输入你想插入表格的行数和列数。如图 4 如果想用鼠标直接在文档中划表格，就点击”绘制表格“如图 5 这时你的鼠标就会象一个画笔一样，你可以在文档中任意画表了。如图。可以画横向的，也可以画纵向的。如图 6 如果你想给表格加上颜色，也可以选择键头所示的地方，点击，这样你可以任意选择颜色了。如图 7 如果想给表格加上底纹和边框，点击键头所示的底纹，边框，如图。这样每个表格都可以设置颜色了。如图 8 如果你想让表格的线也有颜色，点击“笔颜色”如图，这样划出的表格的线也就有有的。 选择粗线就可以了，也可以画纵向的。

12

如果想快速清除表格，点击确定，如图

2

如果想插入普通的表格。如图

10

画表格的时候你也可以选择较粗的笔画。如图

7

如果想给表格加上底纹和边框，这样你可以任意选择颜色了，点击“笔颜色”如图，如图，如图

3

如果是比较复杂的表格打开word文档，按照键头所示的地方点击，这时你的鼠标会变成一个象皮的形状，也可以选择键头所示的地方，你只要在想擦除的表格上点一下，你可以在文档中任意画表了，这样也比较简单。可以画横向的，表格。如图，就可以了，点击插入，如图，选择你想加入的颜色。如图

在打开的窗口中输入你想插入表格的行数和列数，只要点击擦除即可以。如图

6

如果你想给表格加上颜色，如图，只要点击键所示的清除就可以把所有的表格全部清除了，选择底纹。这样每个表格都可以设置颜色了，如图，就点击”绘制表格“如图

5

这时你的鼠标就会象一个画笔一样，你也可以这样，这样划出的表格的线也就有有的颜色，边框，点击键头所示的地方，可以选用下拉菜单的“插入表格“功能。如图

11

如果想给你的表格加上底纹，这样画出的表格线就是比较粗的了，再选择你想加入的颜色的深度，

9

如果和删除表格，就可以擦除了。如图

4

如果想用鼠标直接在文档中划表格，点击键头所示的底纹，点击。如图

8

如果你想让表格的线也有颜色。如图

表格不见了，只要将鼠标放在表格上面就会显示出表格

2.delphi怎么添加EXCEL表

//将Excel中的数据导入StringGrid中 Function ExcelToStringGrid(var StrGrid:TStringGrid;ExcelFileName:string):String; Function IsInIt(EmployeeNum:string):boolean; var i:integer; ret:boolean; begin ret:=False; for i:=0 to StrGrid.RowCount-1 do begin if EmployeeNum=trim(StrGrid.Cells[0,i]) then begin ret:=True; break; end; end; result:=ret; end; var ExcelApplication: TExcelApplication; ExcelWorkbook: TExcelWorkbook; ExcelWorksheet: TExcelWorksheet; count,NowRow,i:integer; ret:String; begin ret：='导入成功'； try screen.Cursor :=crSQLWait; if Not FileExists(ExcelFileName) then begin //文件不存在 ret：='文件不存在'； exit; end； //测试EXCEL是否安装 Try ExcelApplication:=nil; ExcelWorkbook:=nil; ExcelWorksheet:=nil； 首先在Uses处加上ComObjprocedure TForm1.Button1Click(Sender: TObject); 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 ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from jj_department'); ADOQuery1.Open; k:=ADOQuery1.RecordCount; Excelid.Visible := True; Excelid.WorkBooks.Add; Excelid.worksheets[1].range['A1:c1'].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].Range['A1:c1'].Font.Name ：= '宋体'； Excelid.worksheets[1].Range['A1:c1'].Font.Size := 9; Excelid.worksheets[1].range['A1:c2'].font.bold:=true; Excelid.worksheets[1].Range['A2:c2'].Font.Size := 9; Excelid.worksheets[1].Range['A2:c2'].HorizontalAlignment := $FFFFEFF4; Excelid.worksheets[1].Range['A2:c2'].VerticalAlignment := $FFFFEFF4; h:=3; ADOQuery1.First; while not ADOQuery1.Eof do begin Excelid.WorkSheets[1].Cells[h,1].Value := Adoquery1.FieldByName('Fdept_id').AsString; Excelid.WorkSheets[1].Cells[h,2].Value := Adoquery1.FieldByName('Ffdept_id').AsString; Excelid.WorkSheets[1].Cells[h,3].Value := Adoquery1.FieldByName('Fdept_name').AsString; Inc(h); Adoquery1.Next; end; s := 'A2:f'+ 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; Delphi控制Excel的方法 1 创建Excel文件 要在Delphi中控制Excel，就必须用到OLE自动化。

现在一般采用OLE2来创建OLE对象，当激活一个OLE对象时，服务器程序仅在容器程序内部激活，这就是所谓的“就地激活”（in-place activation）。创建Excel文件时，先创建一个OLE对象，然后在对象中建立工作表worksheet，如函数createExcel所示：function createExcel:variant; var v:variant; sheet:variant; begin v:=createoleobject('Excel.Application')；//创建OLE对象 v.visible:=true; v.workbooks.add(-4167)； //添加工作表 v.workbooks[1].sheets[1].name:='test'; sheet:=v.workbooks[1].sheets['test']; return v; end; 2 数据表格控制 Excel表格的控制，主要包括数据的导入、修改；单元格的合并、边框的控制；表格的复制、粘贴等。

当报表格式一定的情况下，表格的复制、粘贴显得尤为重要，这样，可以先制作一个文件模板，然后按照实际需要输出多页报表即可。 （1）数据的导入（importData） procedure importData; var I,j:integer; v:variant; begin v:=createExcel； //创建Excel文件test for I:=0 to maxcolumn do begin for j:=0 to maxrow do v.workbooks[1].sheets[1].cells[I,j]:=I*j； //导入数据 end; end; (2)单元格的合并、边框的控制（lineStylecontrol） 单元格的合并，是在选定合并范围的情况下进行的。

边框控制可以操作边框线条的是否显示。其他方式的控制，可以仿照下面过程进行。

procedure lineStylecontrol; var v,sheet,range:variant; begin v:=createExecl; sheet:= v.workbooks[1].sheets[1]; range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]]；//选定表格 range.select; range.merge； //合并单元格 range.borders.linestyle:=xlcontinuous； //置边框线可见 range.font.size:=9； //改变表格内文本字体大小 end; (3)表格的复制与粘贴（copyandPaste） procedure copyandPaste; var v,sheet,range:。