vbs操作excel常见方法.docx

VBS 操作 Excel 常见方法 _933 VBS 操作 Excel 常见方法 dim oExcel,oWb,oSheet Set oExcel= CreateObject(Excel.Application) Set oSheet = oWb.Sheets(Sheet1) Set oSheet = oWb.Sheets(Sheet1) MsgBox oSheet.Range(B2).Value # 提取单元格 B2 内容 3 、如果是 XP 系统，可以使用如下代码 Dim objFileDlg Set objFileDlg = CreateObject(UserAccounts.CommonDialog) objFileDlg.Filter = Excel File (*.xls) |*.xls If objFileDlg.ShowOpen Then msgbox 您选择的文件是： objFileDlg.FileName vbCrLf End If VBS 控制 Excel 的一些常见方法： ( 一 ) 使用动态创建的方法 首先创建 Excel 对象，使用 ComObj: oExcel = CreateObject( Excel.Application ) 显示当前窗口： oExcel.Visible = True 2) 更改 Excel 标题栏： oExcel.Caption = 应用程序调用 Microsoft Excel 添加新工作簿： oExcel.WorkBooks.Add 打开已存在的工作簿： oExcel.WorkBooks.Open( C:\Excel\Demo.xls ) 设置第 2 个工作表为活动工作表： oExcel.WorkSheets(2).Activate 或 oExcel.WorksSheets( Sheet2 ).Activate 给单元格赋值： oExcel.Cells(1,4).Value = 第一行第四列 设置指定列的宽度(单位：字符个数)，以第一列为例： oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5 设置指定行的高度(单位：磅)(1磅二0.035厘米)， oExcel.ActiveSheet.Rows(2).RowHeight = 1/0.035 1 在第 8 行之前插入分页符： oExcel.WorkSheets(1).Rows(8).PageBreak = 1 在第 8 列之前删除分页符： oExcel.ActiveSheet.Columns(4).PageBreak = 0 指定边框线宽度： oExcel.ActiveSheet.Range( B3:D4 ).Borders(2).Weight = 3 1- 左 2- 右 3- 顶 4- 底 5- 斜( \ ) 6- 斜( / ) 清除第一行第四列单元格公式： oExcel.ActiveSheet.Cells(1,4).ClearContents 设置第一行字体属性： oExcel.ActiveSheet.Rows(1).Font.Name = 隶书 oExcel.ActiveSheet.Rows(1).Font.Color = clBlue oExcel.ActiveSheet.Rows(1).Font.Bold = True oExcel.ActiveSheet.Rows(1).Font.UnderLine = True 进行页面设置： a. 页眉： oExcel.ActiveSheet.PageSetup.CenterHeader = b. 页脚： oExcel.ActiveSheet.PageSetup.CenterFooter = c. 页眉到顶端边距 2cm ： oExcel.ActiveSheet.PageSetup.HeaderMargin = 2/0.035 页脚到底端边距 3cm： oExcel.ActiveSheet.PageSetup.HeaderMargin = 3/0.035 顶边距 2cm ： oExcel.ActiveSheet.PageSetup.TopMargin = 2/0.035 f. 底边距 2cm ： oExcel.ActiveSheet.PageSetup.BottomMargin = 2/0.035 g. 左边距 2cm ： oExcel.ActiveSheet.PageSetup.LeftMargin = 2/0.035 h. 右边距 2cm ： oExcel.ActiveSheet.PageSetup.RightMargin = 2/0.035 页面水平居中： oExcel.ActiveSheet.Page