365体育篮球 ,针对大量Excel表格文件数据内容提取,如对100个多个同样格式的Excel的同一位置数据进行提取数据汇总
本软体只支持office2003版本的Excel,所以电脑要求安装该版本才可以!2003以后版本要加装装丁,只要2003版本能打开就可以了!
VB操作EXCEL 全面控制 Excel首先创建 Excel 对象,使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application1) 显示当前窗口:ExcelID.Visible := True;2) 更改 Excel 标题栏:ExcelID.Caption := \‘应用程序调用 Microsoft Excel\‘;3) 添加新工作簿: ExcelID.WorkBooks.Add;4) 打开已存在的工作簿: ExcelID.WorkBooks.Open( \‘C:\\Excel\\Demo.xls\‘ );5) 设置第2个工作表为活动工作表: ExcelID.WorkSheets[2].Activate; 或 ExcelID.WorkSheets[ \‘Sheet2\‘ ].Activate;6) 给单元格赋值: ExcelID.Cells[1,4].Value := \‘第一行第四列\‘;7) 设置指定列的宽度(单位:字符个数),以第一列为例: ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例: ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米9) 在第8行之前分页符: ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;参考代码:ActiveSheet.HPageBreaks(1).Location = Range(“A22“)10) 在第8列之前删除分页符: ExcelID.ActiveSheet.Columns[4].PageBreak := 0;11) 指定边框线宽度: ExcelID.ActiveSheet.Range[ \‘B3:D4\‘ ].Borders[2].Weight := 3; 1-左 2-右 3-顶 4-底 5-斜( \\ ) 6-斜( / )12) 清除第一行第四列单元格公式: ExcelID.ActiveSheet.Cells[1,4].ClearContents;13) 设置第一行字体属性:ExcelID.ActiveSheet.Rows[1].Font.Name := \‘隶书\‘;ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;ExcelID.ActiveSheet.Rows[1].Font.Bold := True;ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;14) 进行页面设置: a.页眉: ExcelID.ActiveSheet.PageSetup.CenterHeader := \‘报表演示\‘; b.页脚: ExcelID.ActiveSheet.PageSetup.CenterFooter := \‘第&P页\‘; c.页眉到顶端边距2cm: ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; d.页脚到底端边距3cm: ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; e.顶边距2cm: ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035; f.底边距2cm: ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035; g.左边距2cm: ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035; h.右边距2cm: Ex