VB中调用EXCEL.docx

VB操作EXCEL 全面控制 Excel 首先创建 Excel 对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口： ExcelID.Visible := True; 2) 更改 Excel 标题栏： ExcelID.Caption := 应用程序调用 Microsoft Excel; 3) 添加新工作簿： ExcelID.WorkBooks.Add; 4) 打开已存在的工作簿： ExcelID.WorkBooks.Open( C:ExcelDemo.xls ); 5) 设置第2个工作表为活动工作表： ExcelID.WorkSheets2.Activate; 或 ExcelID.WorkSheets Sheet2 .Activate; 6) 给单元格赋值： ExcelID.Cells1,4.Value := 第一行第四列; 7) 设置指定列的宽度（单位：字符个数），以第一列为例： ExcelID.ActiveSheet.Columns1.ColumnsWidth := 5; 8) 设置指定行的高度（单位：磅）（1磅0.035厘米），以第二行为例： ExcelID.ActiveSheet.Rows2.RowHeight := 1/0.035; / 1厘米 9) 在第8行之前插入分页符： ExcelID.WorkSheets1.Rows8.PageBreak := 1; 参考代码：ActiveSheet.HPageBreaks(1).Location = Range(A22) 10) 在第8列之前删除分页符： ExcelID.ActiveSheet.Columns4.PageBreak := 0; 11) 指定边框线宽度： ExcelID.ActiveSheet.Range B3:D4 .Borders2.Weight := 3; 1-左 2-右 3-顶 4-底 5-斜( ) 6-斜( / ) 12) 清除第一行第四列单元格公式： ExcelID.ActiveSheet.Cells1,4.ClearContents; 13) 设置第一行字体属性： ExcelID.ActiveSheet.Rows1.Font.Name := 隶书; ExcelID.ActiveSheet.Rows1.Font.Color := clBlue; ExcelID.ActiveSheet.Rows1.Font.Bold := True; ExcelID.ActiveSheet.Rows1.Font.UnderLine := True; 14) 进行页面设置：I.VB创建Excel表:vb view plaincopyprint?1. 定义Excel操作变量 2. DimxlAppAsNewExcel.Application3. DimxlBookAsExcel.Workbook4. DimxlSheetAsExcel.Worksheet5. 6. 创建Excel进程，并打开目标Excel文件 7. SetxlApp=CreateObject(Excel.Application)8. xlApp.Visible=True9. xlApp.DisplayAlerts=False10. SetxlBook=xlApp.Workbooks.Add11. SetxlSheet=xlBook.Worksheets(1)12. xlBook.SaveAs路径/文件名II.VB打开Excel表:vb view plaincopyprint?1. 定义Excel操作变量 2. DimxlAppAsNewExcel.Application3. DimxlBookAsExcel.Workbook4. DimxlSheetAsExcel.Worksheet5. 6. 打开目标Excel文件 7. SetxlApp=NewExcel.Application8. xlApp.Visible=True9. xlApp.DisplayAlerts=False10. SetxlBook=xlApp.Workbooks.Open(路径/文件名)11. SetxlSheet=xlBook.Sheets(1)12. xlBook.SaveIII.VB关闭Excel表:vb view plaincopyprint?1. 定义Excel操作变量 2. DimxlAppAsNewExcel.Application3. DimxlBookAsExcel.Workbook4. DimxlSheetAsExcel.Worksheet5. 6. 已经打开目标Excel文件 7. SetxlApp=NewExcel.Application8. xlApp.Visible=True9. xlApp.DisplayAlerts=False10. SetxlBook=xlApp.Workbooks.Open(路径/文件名)11. SetxlSheet=xlBook.Sheets(1)12. xlBook.Save13. 14. 关闭目标Excel文件 15. xlApp.Quit16. SetxlBook=Nothing17. SetxlSheet=Nothing18. SetxlApp=NothingIV.VB写入Excel表:vb view plaincopyprint?1. 定义Excel操作变量 2. DimxlAppAsNewExcel.Application3. DimxlBookAsExcel.Workbook4. DimxlSheetAsExcel.Worksheet5. 6. 打开目标Excel文件并且写入 7. SetxlApp=NewExcel.Application8. xlApp.Visible=True9. xlApp.DisplayAlerts=False10. SetxlBook=xlApp.Workbooks.Open(“路径/文件名)11. SetxlSheet=xlBook.Sheets(1)12. WithxlSheet13. .Cells(1,1)=A14. .Cells(1,2)=B15. .Cells(1,3)=C16. EndWith17. xlBook.SaveV.VB读取Excel表:vb view plaincopyprint?1. 定义Excel操作变量 2. DimxlAppAsNewExcel.Application3. DimxlBookAsExcel.Workbook4. DimxlSheetAsExcel.Worksheet5. 定义用于保存Excel单元格内容的字符串 6. DimxlStringAsString7. 定义整形变量用于保存Excel表的行数与列数 8. DimxlNum,xlColAsInteger9. 10. 打开目标Excel文件并且读取保存Excel内容 11. SetxlApp=NewExcel.Application12. xlApp.Visible=True13. xlApp.DisplayAlerts=False14. SetxlBook=xlApp.Workbooks.Open(路径/文件名)15. SetxlSheet=xlBook.Sheets(1)16. 读取Excel表中记录行数 17. xlNu