VBS操作Excel常见方法

VBS操作Excel常见方法dimoExcel,oWb,oSheetSetoExcel=CreateObject(Excel.Application)SetoWb=oExcel.Workbooks.Open(E:\其他\新装电话表.xls)SetoSheet=oWb.Sheets(Sheet1)MsgBoxoSheet.Range(B2).Value'#提取单元格B2内容'.....3、如果是XP系统，可以使用如下代码DimobjFileDlgSetobjFileDlg=CreateObject(UserAccounts.CommonDialog)objFileDlg.Filter=ExcelFile(*.xls)|*.xlsIfobjFileDlg.ShowOpenThenmsgbox您选择的文件是：&objFileDlg.FileName&vbCrLfEndIfVBS控制Excel的一些常见方法：(一)使用动态创建的方法首先创建Excel对象，使用ComObj:oExcel=CreateObject(Excel.Application)1)显示当前窗口：oExcel.Visible=True2)更改Excel标题栏：oExcel.Caption=应用程序调用MicrosoftExcel3)添加新工作簿：oExcel.WorkBooks.Add4)打开已存在的工作簿：oExcel.WorkBooks.Open(C:\Excel\Demo.xls)5)设置第2个工作表为活动工作表：oExcel.WorkSheets(2).Activate或oExcel.WorksSheets(Sheet2).Activate6)给单元格赋值：oExcel.Cells(1,4).Value=第一行第四列7)设置指定列的宽度（单位：字符个数），以第一列为例：oExcel.ActiveSheet.Columns(1).ColumnsWidth=58)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：oExcel.ActiveSheet.Rows(2).RowHeight=1/0.035'1厘米9)在第8行之前插入分页符：oExcel.WorkSheets(1).Rows(8).PageBreak=110)在第8列之前删除分页符：oExcel.ActiveSheet.Columns(4).PageBreak=011)指定边框线宽度：oExcel.ActiveSheet.Range(B3:D4).Borders(2).Weight=31-左2-右3-顶4-底5-斜(\)6-斜(/)12)清除第一行第四列单元格公式：oExcel.ActiveSheet.Cells(1,4).ClearContents13)设置第一行字体属性：oExcel.ActiveSheet.Rows(1).Font.Name=隶书oExcel.ActiveSheet.Rows(1).Font.Color=clBlueoExcel.ActiveSheet.Rows(1).Font.Bold=TrueoExcel.ActiveSheet.Rows(1).Font.UnderLine=True14)进行页面设置：a.页眉：oExcel.ActiveSheet.PageSetup.CenterHeader=报表演示b.页脚：oExcel.ActiveSheet.PageSetup.CenterFooter=第&P页c.页眉到顶端边距2cm：oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035d.页脚到底端边距3cm：oExcel.ActiveSheet.PageSetup.HeaderMargin=3/0.035e.顶边距2cm：oExcel.ActiveSheet.PageSetup.TopMargin=2/0.035f.底边距2cm：oExcel.ActiveSheet.PageSetup.BottomMargin=2/0.035g.左边距2cm：oExcel.ActiveSheet.PageSetup.LeftMargin=2/0.035h.右边距2cm：oExcel.ActiveSheet.PageSetup.RightMargin=2/0.035i.页面水平居中：oExcel.ActiveSheet.PageSetup.CenterHorizontally=2/0.035j.页面垂直居中：oExcel.ActiveSheet.PageSetup.CenterVertically=2/0.035k.打印单元格网线：oExcel.ActiveSheet.PageSetup.PrintGridLines=True15)拷贝操作：a.拷贝整个工作表：oExcel.ActiveSheet.Used.Range.Copyb.拷贝指定区域：oExcel.ActiveSheet.Range(A1:E2).Copyc.从A1位置开始粘贴：oExcel.ActiveSheet.Range.(A1).PasteSpeciald.从文件尾部开始粘贴：oExcel.ActiveSheet.Range.PasteSpecial16)插入一行或一列：a.oExcel.ActiveSheet.Rows(2).Insertb.oExcel.ActiveSheet.Columns(1).Insert17)删除一行或一列：a.oExcel.ActiveSheet.Rows(2).Deleteb.oExcel.ActiveSheet.Columns(1).Delete18)打印预览工作表：oExcel.ActiveSheet.PrintPreview19)打印输出工作表：oExcel.ActiveSheet.PrintOut20)工作表保存：ifnotoExcel.ActiveWorkBook.SavedthenoExcel.ActiveSheet.PrintPreview21)工作表另存为：oExcel.SaveAs(C:\Excel\Demo1.xls)22)放弃存盘：oExcel.ActiveWorkBook.Saved=True23)关闭工作簿：oExcel.WorkBooks.Close24)退出Excel：oExcel.Quit(二)使用VBS控制Excle二维图1）选择当第一个工作薄第一个工作表setoSheet=oExcel.Workbooks(1).Worksheets(1)2）增加一个二维图achart=oSheet.chartobjects.add(100,100,200,200)3）选择二维图的形态achart.chart.charttype=44）给二维图赋值setseries=achart.chart.seriescollectionrange=sheet1!r2c3:r3c9series.addrange,true5）加上二维图的标题achart.Chart.HasTitle=Trueachart.Chart.ChartTitle.Characters.Text=Excle二维图6）改变二维图的标题字体大小achart.Chart.ChartTitle.Font.size=187）给二维图加下标说明achart.Chart.Axes(xlCategory,xlPrimary).HasTitle=Trueachart.Chart.Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text=下标说明8）给二维图加左标说明achart.Chart.Axes(xlValue,xlPrimary).HasTitle=Trueachart.Chart.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text=左标说明9）给二维图加右标说明achart.Chart.Axes(xlValue,xlSecondary).HasTitle=Trueachart.Chart.Axes(xlValue,xlSecondary).AxisTitle.Characters.Text=右标说明10）改变二维图的显示区大小achart.Chart.PlotArea.Left=5achart.Chart.PlotArea.Width=223achart.Chart.PlotArea.Height=108如何用vbs把excel的单元格数据写到txt复制代码代码如下:IfWScript.Arguments.Count0ThenFilename=WScript.Arguments(0)Seta=CreateObject(Excel.Application)IfFilename=ThenFilename=a.GetOpenFilename(ExcelFiles(*.xls),*.xls)IfVarType(Filename)=vbBooleanThenMsgBoxExcel2Txt用于将Excel文件的每个Sheet保存为一个文本文件。&vbCr&vbLf&vbCr&vbLf&用法:Excel2Txtfilename.xls或在对话框中打开Excel文件。WScript.QuitEndIfEndIfSetw=a.Workbooks.Open(Filename)n=Replace(Replace(w.Name,.xls,),.XLS,)a.DisplayAlerts=FalseForEachsInw.Sheetss.SaveAsw.Path&\&n&_&s.Name&.txt,20Nexta.Quit把以上代码存为Excel2Txt.vbs双击执行就行了VBS操作Excel复制代码代码如下:SetobjExcel=CreateObject(Excel.Application)'建一个exel对象SetobjWorkbook=objExcel.Workbooks.Open_(E:\DOC\Hewl\领域模型.xls)'打开文件strToBeWrited=-----------------------------------&vbcrlf&_--GeneratedbyScriptGenerator---&vbcrlf&_-----------------------------------&vbcrlf&vbcrlfCount=objWorkbook.WorkSheets.Count'取sheet数量Setmy=CreateObject(Excel.Sheet)'新建sheet对象ForEachmyInobjWorkbook.WorkSheets'遍历sheetIfmy.Name=目录ormy.Name=SecondHandHouseThen'donothingElse'Wscript.Echomy.Name'获得sheet名字'Wscript.Echomy.Rows.Count'strToBeWrited=strToBeWrited&createtable&my.Name&vbcrlfstrToBeWrited=strToBeWrited&/*==============================================================*/&vbcrlfstrToBeWrited=strToBeWrited&/*Table:&my.Name&*/&vbcrlfstrToBeWrited=strToBeWrited&/*==============================================================*/&vbcrlfstrToBeWrited=strToBeWrited&createtable&my.Name&(&vbcrlfrowNum=3DoUntilmy.Cells(rowNum,1).