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.monDialog")objFileDlg.Filter="ExcelFile(*.xls)|*.xls"IfobjFileDlg.ShowOpenThenmsgbox"您选择的文件是："&objFileDlg.FileName&vbCrLfEndIfVBS控制Excel的一些常见方法：(一)使用动态创建的方法首先创建Excel对象，使用Obj:oExcel=CreateObject("Excel.Application")1)显示当前窗口：oExcel.Visible=True2)更改Excel标题栏：oExcel.Caption="应用程序调用MicrosoftExcel"3)添加新工作簿：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.035...f.底边距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:r3c9"series.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.Count>0ThenFilename=WScript.Arguments(0)Seta=CreateObject("Excel.Application")IfFilename=""ThenFilename=a.GetOpenFilename("ExcelFiles(*.xls),*.xls")IfVarType(Filename)=vbBooleanThenMsgBox"Excel2Txt用于将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=" 目录 工贸企业有限空间作业目录特种设备作业人员作业种类与目录特种设备作业人员目录1类医疗器械目录高值医用耗材参考目录 "ormy.Name="SecondHandHouse"Then'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).Value=""'Wscript.Echo"sAMAccountName:"&my.Cells(rowNum,2).ValuestrToBeWrited=strToBeWrited&""&my.Cells(rowNum,2).Value&""&my.Cells(rowNum,3).Value&"notnull"Ifnotmy.Cells(rowNum,9).Value=""ThenstrToBeWrited=strToBeWrited&"default"&my.Cells(rowNum,9).ValueEndIfstrToBeWrited=strToBeWrited&","&vbcrlfrowNum=rowNum+1LoopstrToBeWrited=strToBeWrited&"constraintPK_"&my.Name&"primarykey(id)"&vbcrlfstrToBeWrited=strToBeWrited&")"&vbcrlfEndIfstrToBeWrited=strToBeWrited&vbcrlfNextForEachmyInobjWorkbook.WorkSheets'遍历sheetIfmy.Name="目录"ormy.Name="SecondHandHouse"Then'donothingElsestrToBeWrited=strToBeWrited&"constraintPK_"&my.Name&"primarykey(id)"&vbcrlfstrToBeWrited=strToBeWrited&")"&vbcrlfEndIf...strToBeWrited=strToBeWrited&vbcrlfNext'写文件setfs=createobject("scripting.filesystemobject")setf=fs.opentextfile("E:\DOC\Hewl\dbscript.sql",2,true)'Wscript.EchostrToBeWritedf.writestrToBeWritedf.closeSetf=nothingSetfs=nothingobjExcel.Quit'结束退出复制代码代码如下:DimExcelSetExcel=CreateObject("Excel.Application")'不显示提示信息,这样保存的时候就不会提示是否要覆盖原文件Excel.DisplayAlerts=FALSE'调用EXCEL文件的时候不显示Excel.visible=FALSEExcel.workbooks.open("D:\test.XLS")'将sheet1设置为活动sheetExcel.workbooks(1).activate'插入行,这条我找MSDN都没找到,最后乱试试出来的Excel.ActiveSheet.rows(1).insertExcel.ActiveSheet.Cells(1,1).Value=DateExcel.ActiveSheet.Cells(1,2).Value="row1"Excel.ActiveSheet.Cells(1,3).Value="ment1"Excel.ActiveSheet.rows(2).insertExcel.ActiveSheet.Cells(2,1).Value=DateExcel.ActiveSheet.Cells(2,4).Value="row2"Excel.ActiveSheet.Cells(2,7).Value="ment2"Excel.saveExcel.quitSetExcel=NothingExcel.ActiveSheet.rows(1).insert...不用找MSDN，在EXCEL帮助中就能找到，看“编程信息”/“MicrosoftExcelVisualBasic参考”/“属性”/“Q-R”/“Rows属性”的介绍，和“编程信息”/“MicrosoftExcelVisualBasic参考”/“方法”/“I-L”/“Insert方法”的介绍，就能明白这条语句的语法。因为在EXCEL的VBA中，“Rows”、“Columns”、“Cells”属性返回的都是Range对象，所以对它们的应用可以等同Range对象的应用。例如：你在EXCEL的VBA编辑器中可以这样写cells(1,1).value="abc"cells(1,1).wraptext=false在写这些语句时，你应该注意到，在写完“cells(1,1).”之后，并没有弹出应该弹出的属性/方法列表，但是这些语句确实可以正常运行。我的方法是：在EXCEL中录制宏，然后在EXCEL的VBA编辑器中修改语句，调试运行无误后再粘贴到VBS语句中，进行适当的修改。..