实用的EXCELVBA编程大全总结.docVIP

实用的EXCEL VBA程小： 最近位内部的目里要用到些表EXCEL的生成，JAVA 的POI可以有能力，但得是可能比麻，因此是用.net来搞，用Visual Studio2003配合office 2003，用到了一些VBA，因此小并之，了些料在里，以今后考首先建 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;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：ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;i.面水平居中：ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;j.面垂直居中：ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;k.打印元格网：ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;15) 拷操作：a.拷整个工作表：ExcelID.Active