VBS操作Excel常见方法

《VBS操作Excel常见方法》由会员分享，可在线阅读，更多相关《VBS操作Excel常见方法（7页珍藏版）》请在金锄头文库上搜索。

1、VBS操作Excel 常见方法 _933VBS操作Excel常见方法dim oExcel,oWb,oSheet Set oExcel= CreateObject(Excel.Application) Set oWb = oExcel.Workbooks.Open(E:其他新装电话表.xls) Set oSheet = oWb.Sheets(Sheet1) MsgBox oSheet.Range(B2).Value #提取单元格B2内容 . 3、如果是XP系统，可以使用如下代码 Dim objFileDlg Set objFileDlg = CreateObject(UserAccounts.C

2、ommonDialog) objFileDlg.Filter = Excel File (*.xls) |*.xls If objFileDlg.ShowOpen Then msgbox 您选择的文件是： & objFileDlg.FileName & vbCrLf End If VBS控制Excel的一些常见方法： (一) 使用动态创建的方法 首先创建 Excel 对象，使用 ComObj: oExcel = CreateObject( Excel.Application ) 1) 显示当前窗口： oExcel.Visible = True 2) 更改 Excel 标题栏： oExcel.C

3、aption = 应用程序调用 Microsoft Excel 3) 添加新工作簿： oExcel.WorkBooks.Add 4) 打开已存在的工作簿： oExcel.WorkBooks.Open( C:ExcelDemo.xls ) 5) 设置第2个工作表为活动工作表： oExcel.WorkSheets(2).Activate 或 oExcel.WorksSheets( Sheet2 ).Activate 6) 给单元格赋值： oExcel.Cells(1,4).Value = 第一行第四列 7) 设置指定列的宽度（单位：字符个数），以第一列为例： oExcel.ActiveSheet.

4、Columns(1).ColumnsWidth = 5 8) 设置指定行的高度（单位：磅）（1磅0.035厘米），以第二行为例： oExcel.ActiveSheet.Rows(2).RowHeight = 1/0.035 1厘米 9) 在第8行之前插入分页符： oExcel.WorkSheets(1).Rows(8).PageBreak = 1 10) 在第8列之前删除分页符： oExcel.ActiveSheet.Columns(4).PageBreak = 0 11) 指定边框线宽度： oExcel.ActiveSheet.Range( B3:D4 ).Borders(2).Weight

5、 = 3 1-左 2-右 3-顶 4-底 5-斜( ) 6-斜( / ) 12) 清除第一行第四列单元格公式： oExcel.ActiveSheet.Cells(1,4).ClearContents 13) 设置第一行字体属性： 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 14)

6、 进行页面设置： a.页眉： oExcel.ActiveSheet.PageSetup.CenterHeader = 报表演示 b.页脚： oExcel.ActiveSheet.PageSetup.CenterFooter = 第&P页 c.页眉到顶端边距2cm： oExcel.ActiveSheet.PageSetup.HeaderMargin = 2/0.035 d.页脚到底端边距3cm： oExcel.ActiveSheet.PageSetup.HeaderMargin = 3/0.035 e.顶边距2cm： oExcel.ActiveSheet.PageSetup.TopMargin

7、= 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 i.页面水平居中： oExcel.ActiveSheet.PageSetup.CenterHorizontally = 2/0.035 j.页面垂直居中： oExcel.ActiveSheet.PageSetup.

8、CenterVertically = 2/0.035 k.打印单元格网线： oExcel.ActiveSheet.PageSetup.PrintGridLines = True 15) 拷贝操作： a.拷贝整个工作表： oExcel.ActiveSheet.Used.Range.Copy b.拷贝指定区域： oExcel.ActiveSheet.Range( A1:E2 ).Copy c.从A1位置开始粘贴： oExcel.ActiveSheet.Range.( A1 ).PasteSpecial d.从文件尾部开始粘贴： oExcel.ActiveSheet.Range.PasteSpeci

9、al 16) 插入一行或一列： a. oExcel.ActiveSheet.Rows(2).Insert b. oExcel.ActiveSheet.Columns(1).Insert 17) 删除一行或一列： a. oExcel.ActiveSheet.Rows(2).Delete b. oExcel.ActiveSheet.Columns(1).Delete 18) 打印预览工作表： oExcel.ActiveSheet.PrintPreview 19) 打印输出工作表： oExcel.ActiveSheet.PrintOut 20) 工作表保存： if not oExcel.Active

10、WorkBook.Saved then oExcel.ActiveSheet.PrintPreview 21) 工作表另存为： oExcel.SaveAs( C:ExcelDemo1.xls ) 22) 放弃存盘： oExcel.ActiveWorkBook.Saved = True 23) 关闭工作簿： oExcel.WorkBooks.Close 24) 退出 Excel： oExcel.Quit (二) 使用VBS 控制Excle二维图 1）选择当第一个工作薄第一个工作表 set oSheet=oExcel.Workbooks(1).Worksheets(1) 2）增加一个二 维图 ac

11、hart=oSheet.chartobjects.add(100,100,200,200) 3）选择二维图 的形态 achart.chart.charttype=4 4）给二维图赋值 set series=achart.chart.seriescollection range=sheet1!r2c3:r3c9 series.add range,true 5）加上二维图 的标题 achart.Chart.HasTitle=True achart.Chart.ChartTitle.Characters.Text= Excle二维图 6）改变二维图 的标题字体大小 achart.Chart.Char

12、tTitle.Font.size=18 7）给二维图 加下标说明 achart.Chart.Axes(xlCategory, xlPrimary).HasTitle = True achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 下标说明 8）给二维图 加左标说明 achart.Chart.Axes(xlValue, xlPrimary).HasTitle = True achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 左标说

13、明 9）给二维图 加右标说明 achart.Chart.Axes(xlValue, xlSecondary).HasTitle = True achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = 右标说明 10）改变二维图的显示区大小 achart.Chart.PlotArea.Left = 5 achart.Chart.PlotArea.Width = 223 achart.Chart.PlotArea.Height = 108 如何用vbs把 excel的单元格数据写到txt 复制代码 代 码如下: If W

14、Script.Arguments.Count 0 Then Filename = WScript.Arguments(0) Set a = CreateObject(Excel.Application) If Filename = Then Filename = a.GetOpenFilename(Excel Files (*.xls), *.xls) If VarType(Filename) = vbBoolean Then MsgBox Excel2Txt用于将Excel文件的每个Sheet保存为一个文本文件。 & vbCr & vbLf & vbCr & vbLf & 用法: Excel

15、2Txt filename.xls 或在对话框中打开Excel文件。 WScript.Quit End If End If Set w = a.Workbooks.Open(Filename) n = Replace(Replace(w.Name, .xls, ), .XLS, ) a.DisplayAlerts = False For Each s In w.Sheets s.SaveAs w.Path & & n & _ & s.Name & .txt, 20 Next a.Quit 把以上代码存为Excel2Txt.vbs 双击执行就行了 VBS操作Excel 复制代码 代 码如下: Set objExcel = CreateObject(Excel.Application) 建一个exel对象 Set objWorkbook = objExcel.Workbooks.Open _ (E:DOCHewl领域模型 .xls) 打开文件 strToBeWrited = - & vbcrlf & _ - Generated by ScriptGenerator - & vbcrlf & _ - & vbcrlf & vbcrlf Count = objWorkbook.WorkSheets.Count 取sheet 数量 Set my = CreateObj