VBS操作Excel常见方法

1、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(*.xl

2、s)|*.xlsIfobjFileDlg.ShowOpenThenmsgbox您选择的文件是：&objFileDlg.FileName&vbCrLfEndIfVBS控制Excel的一些常见方法：(一)使用动态创建的方法首先创建Excel对象，使用ComObj:oExcel=CreateObject(Excel.Application)显示当前窗口：oExcel.Visible=True更改Excel标题栏：oExcel.Caption=应用程序调用MicrosoftExcel添加新工作簿：oExcel.WorkBooks.Add打开已存在的工作簿：oExcel.WorkBooks.Open(C

3、:ExcelDemo.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.0351厘米在第8行之前插入分页符：oExcel

4、.WorkSheets(1).Rows(8).PageBreak=1在第8列之前删除分页符：oExcel.ActiveSheet.Columns(4).PageBreak=0指定边框线宽度：oExcel.ActiveSheet.Range(B3:D4).Borders(2).Weight=31-左2-右3-顶4-底5-斜()6-斜(/)清除第一行第四列单元格公式：oExcel.ActiveSheet.Cells(1,4).ClearContents设置第一行字体属性：oExcel.ActiveSheet.Rows(1).Font.Name=隶书oExcel.ActiveSheet.Rows(1

5、).Font.Color=clBlueoExcel.ActiveSheet.Rows(1).Font.Bold=TrueoExcel.ActiveSheet.Rows(1).Font.UnderLine=True14)进行页面设置：页眉：oExcel.ActiveSheet.PageSetup.CenterHeader=报表演示页脚：oExcel.ActiveSheet.PageSetup.CenterFooter=第&P页页眉到顶端边距2cm:oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035页脚到底端边距3cm：oExcel.ActiveSh

6、eet.PageSetup.HeaderMargin=3/0.035顶边距2cm：oExcel.ActiveSheet.PageSetup.TopMargin=2/0.035底边距2cm：oExcel.ActiveSheet.PageSetup.BottomMargin=2/0.035左边距2cm：oExcel.ActiveSheet.PageSetup.LeftMargin=2/0.035右边距2cm：oExcel.ActiveSheet.PageSetup.RightMargin=2/0.035页面水平居中：oExcel.ActiveSheet.PageSetup.CenterHorizo

7、ntally=2/0.035页面垂直居中：oExcel.ActiveSheet.PageSetup.CenterVertically=2/0.035打印单元格网线：oExcel.ActiveSheet.PageSetup.PrintGridLines=True拷贝操作：拷贝整个工作表：oExcel.ActiveSheet.Used.Range.Copy拷贝指定区域：oExcel.ActiveSheet.Range(A1:E2).Copy从A1位置开始粘贴：oExcel.ActiveSheet.Range.(A1).PasteSpecial从文件尾部开始粘贴：oExcel.ActiveSheet

8、.Range.PasteSpecial插入一行或一列：oExcel.ActiveSheet.Rows(2).InsertoExcel.ActiveSheet.Columns(1).Insert删除一行或一列：a.oExcel.ActiveSheet.Rows(2).Deleteb.oExcel.ActiveSheet.Columns(1).Delete打印预览工作表：oExcel.ActiveSheet.PrintPreview打印输出工作表：oExcel.ActiveSheet.PrintOut工作表保存：ifnotoExcel.ActiveWorkBook.SavedthenoExcel.

9、ActiveSheet.PrintPreview工作表另存为：oExcel.SaveAs(C:ExcelDemo1.xls)放弃存盘：oExcel.ActiveWorkBook.Saved=True关闭工作簿：oExcel.WorkBooks.Close退出Excel：oExcel.Quit(二)使用VBS控制Excle二维图选择当第一个工作薄第一个工作表setoSheet=oExcel.Workbooks(1).Worksheets(1)增加一个二维图achart=oSheet.chartobjects.add(100,100,200,200)选择二维图的形态achart.chart.cha

10、rttype=4给二维图赋值setseries=achart.chart.seriescollectionrange=sheet1!r2c3:r3c9series.addrange,true加上二维图的标题achart.Chart.HasTitle=Trueachart.Chart.ChartTitle.Characters.Text=Excle二维图改变二维图的标题字体大小achart.Chart.ChartTitle.Font.size=18给二维图加下标说明achart.Chart.Axes(xlCategory,xlPrimary).HasTitle=Trueachart.Chart.

11、Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text=下标给二维图加左标说明achart.Chart.Axes(xlValue,achart.Chart.Axes(xlValue,9)给二维图加右标说明achart.Chart.Axes(xlValue,achart.Chart.Axes(xlValue,10)改变二维图的显示区大小xlPrimary).HasTitle=TruexlPrimary).AxisTitle.Characters.Text=左标说明xlSecondary).HasTitle=TruexlSecondary).Axi

12、sTitle.Characters.Text=右标说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(*.x

13、ls),*.xls)IfVarType(Filename)=vbBooleanThenMsgBoxExcel2Txt用于将Excel文件的每个Sheet保存为一个文本文件。&vbCr&vbLExcel2Txtfilename.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

14、.Quit把以上代码存为Excel2Txt.vbs双击执行就行了VBS操作Excel复制代码代码如下：SetobjExcel=CreateObject(Excel.Application)建个exel对象SetobjWorkbook=objExcel.Workbooks.Open_(E:DOCHewl领域模型.xls)打开文件strToBeWrited=&vbcrlf&_-GeneratedbyScriptGenerator&vbcrlf&_&vbcrlf&vbcrlfCount=objWorkbook.WorkSheets.Count取sheet数量Setmy=CreateObject(Ex

15、cel.Sheet)新建sheet对象ForEachmyInobjWorkbook.WorkSheets遍历sheetIfmy.Name=目录ormy.Name=SecondHandHouseThendonothingElseWscript.Echomy.Name获得sheet名字Wscript.Echomy.Rows.CountstrToBeWrited=strToBeWrited&createtable&my.Name&vbcrlfstrToBeWrited=strToBeWrited&/*=&vbcrlfstrToBeWrited=strToBeWrited&/*Table:&my.Na

16、me&*/&vbcrlfstrToBeWrited=strToBeWrited&/*=&vbcrlfstrToBeWrited=strToBeWrited&createtable&my.Name&(&vbcrlfrowNum=3DoUntilmy.Cells(rowNum,1).Value=Wscript.EchosAMAccountName:&my.Cells(rowNum,2).ValuestrToBeWrited=strToBeWrited&my.Cells(rowNum,2).Value&mynotnullIfnotmy.Cells(rowNum,9).Value=ThenstrToB

17、eWrited=strToBeWrited&default&my.Cells(rowNum,9).ValueEndIfstrToBeWrited=strToBeWrited&,&vbcrlfrowNum=rowNum+1LoopstrToBeWrited=strToBeWrited&constraintPK_&my.Name&primarykstrToBeWrited=strToBeWrited&)&vbcrlfEndIfstrToBeWrited=strToBeWrited&vbcrlfNextForEachmyInobjWorkbook.WorkSheets遍历sheetIfmy.Name

18、=目录ormy.Name=SecondHandHouseThendonothingElsestrToBeWrited=strToBeWrited&constraintPK_&my.Name&primarykstrToBeWrited=strToBeWrited&)&vbcrlfEndIfstrToBeWrited=strToBeWrited&vbcrlfNext写文件setfs=createobject(scripting.filesystemobject)setf=fs.opentextfile(E:DOCHewldbscript.sql,2,true)Wscript.EchostrToBe

19、Writedf.writestrToBeWritedf.closeSetf=nothingSetfs=nothingobjExcel.Quit结束退出复制代码,代码如下：DimExcelSetExcel=CreateObject(Excel.Application)不显示提示信息,这样保存的时候就不会提示是否要覆盖原文件Excel.DisplayAlerts=FALSE调用EXCEL文件的时候不显示Excel.visible=FALSEExcel.workbooks.open(D:test.XLS)将sheetl设置为活动sheetExcel.workbooks(1).activate插入行，

20、这条我找MSDN都没找到，最后乱试试出来的Excel.ActiveSheet.rows(1).insertExcel.ActiveSheet.Cells(1,1).Value=DateExcel.ActiveSheet.Cells(1,2).Value=row1Excel.ActiveSheet.Cells(1,3).Value=comment1Excel.ActiveSheet.rows(2).insertExcel.ActiveSheet.Cells(2,1).Value=DateExcel.ActiveSheet.Cells(2,4).Value=row2Excel.ActiveShee

21、t.Cells(2,7).Value=comment2Excel.saveExcel.quitSetExcel=NothingExcel.ActiveSheet.rows(1).insert不用找MSDN,在EXCEL帮助中就能找至U，看“编程信息”/“MicrosoftExcelVisualBasic性”的介绍，和“编程信息”/“MicrosoftExcelVisualBasic参考”/“方法”/“I-L”/“Ins，的语法。因为在EXCEL的VBA中,“Rows”、“Columns”、“Cells”属性返回的都是Range对象，所以对用。例如：你在EXCEL的VBA编辑器中可以这样写cells(1,1).value=abccells(1,1).wraptext=false在写这些语句时，你应该注意到，在写完“cells(1,1).”之后，并没有弹出应该弹出的属性/方法列行。我的方法是：在EXCEL中录制宏，然后在EXCEL的VBA编辑器中修改语句，调试运行无误后再粘一、声明变量声明为整型变量声