VBS操作Excel常见方法

1、VBS操作Excel常见方法dim oExcel,oWb,oSheetSet oExcel= CreateObject("Excel.Application"Set oSheet = oWb.Sheets("Sheet1"MsgBox oSheet.Range("B2".Value '#提取单元格B2内容'.3、如果是XP系统,可以使用如下代码Dim objFileDlgSet objFileDlg = CreateObject("UserAccounts.CommonDialog" objFile

2、Dlg.Filter = "Excel File (*.xls |*.xls"If objFileDlg.ShowOpen Thenmsgbox "您选择的文件是:" & objFileDlg.FileName & vbCrLfEnd IfVBS控制Excel的一些常见方法:(一 使用动态创建的方法首先创建 Excel 对象,使用ComObj:oExcel = CreateObject( "Excel.Application" 1 显示当前窗口:oExcel.Visible = True2 更改 Excel 标题栏:o

3、Excel.Caption = "应用程序调用 Microsoft Excel"3 添加新工作簿:4 打开已存在的工作簿:5 设置第2个工作表为活动工作表:oExcel.WorkSheets(2.Activate或oExcel.WorksSheets( "Sheet2" .Activate6 给单元格赋值:oExcel.Cells(1,4.Value = "第一行第四列"7 设置指定列的宽度(单位:字符个数,以第一列为例:9 在第8行之前插入分页符:oExcel.WorkSheets(1.Rows(8.PageBreak = 110

4、在第8列之前删除分页符:11 指定边框线宽度:12 清除第一行第四列单元格公式:13 设置第一行字体属性:14 进行页面设置:a.页眉:b.页脚:c.页眉到顶端边距2cm:d.页脚到底端边距3cm:e.顶边距2cm:f.底边距2cm:g.左边距2cm:h.右边距2cm:i.页面水平居中:15 拷贝操作:a.拷贝整个工作表:b.拷贝指定区域:c.从A1位置开始粘贴:d.从文件尾部开始粘贴:16 插入一行或一列:17 删除一行或一列:18 打印预览工作表:19 打印输出工作表:20 工作表保存:21 工作表另存为:oExcel.SaveAs( "C:ExcelDemo1.xls"

5、; 22 放弃存盘:23 关闭工作簿:24 退出 Excel:oExcel.Quit(二 使用VBS 控制Excle二维图1选择当第一个工作薄第一个工作表set oSheet=oExcel.Workbooks(1.Worksheets(12增加一个二维图3选择二维图的形态4给二维图赋值range="sheet1!r2c3:r3c9"series.add range,true5加上二维图的标题6改变二维图的标题字体大小7给二维图加下标说明8给二维图加左标说明9给二维图加右标说明10改变二维图的显示区大小如何用vbs把excel的单元格数据写到txt复制代码代码如下:WScri

6、pt.Arguments(0Set a = CreateObject("Excel.Application"If Filename = "" ThenFilename = a.GetOpenFilename("Excel Files (*.xls, *.xls"If VarType(Filename = vbBoolean ThenMsgBox "Excel2Txt用于将Excel文件的每个Sheet保存为一个文本文件。" & vbCr & vbLf & vbCr & vbLf &a

7、mp; "用法: Excel2Txt filename.xls 或在对话框中打开Excel文件。"WScript.QuitEnd IfEnd Ifn = Replace(Replace(w.Name, ".xls", "", ".XLS", ""a.DisplayAlerts = FalseFor Each s In w.Sheetss.SaveAs w.Path & "" & n & "_" & s.Name &

8、".txt", 20Nexta.Quit把以上代码存为Excel2Txt.vbs双击执行就行了VBS操作Excel复制代码代码如下:("E:DOCHewl领域模型.xls" '打开文件strToBeWrited = "-" & vbcrlf & _"- Generated by ScriptGenerator -" & vbcrlf & _"-" & vbcrlf & vbcrlfSet my = CreateObject("Ex

9、cel.Sheet" '新建sheet对象For Each my In objWorkbook.WorkSheets '遍历sheetIf my.Name = "目录" or my.Name = "SecondHandHouse" Then'do nothingElse'Wscript.Echo my.Name '获得sheet名字'strToBeWrited = strToBeWrited & "create table " & my.Name & v

10、bcrlfstrToBeWrited = strToBeWrited &"/*= =*/" & vbcrlfstrToBeWrited = strToBeWrited & "/* Table: " & my.Name & " */" & vbcrlfstrToBeWrited = strToBeWrited &"/*= =*/" & vbcrlfstrToBeWrited = strToBeWrited & "create table

11、 " & my.Name & " (" & vbcrlfrowNum = 3Do Until my.Cells(rowNum,1.Value = ""'Wscript.Echo "sAMAccountName: " & my.Cells(rowNum, 2.Value strToBeWrited = strToBeWrited & " " & my.Cells(rowNum,2.Value & " " & my.C

12、ells(rowNum,3.Value & " not null"If not my.Cells(rowNum,9.Value = "" ThenstrToBeWrited = strToBeWrited & " default " &my.Cells(rowNum,9.ValueEnd IfstrToBeWrited = strToBeWrited & "," & vbcrlfrowNum = rowNum + 1LoopstrToBeWrited = strToBeWri

13、ted & " constraint PK_" & my.Name & " primary key (id" & vbcrlfstrToBeWrited = strToBeWrited & "" & vbcrlfEnd IfstrToBeWrited = strToBeWrited & vbcrlfNextFor Each my In objWorkbook.WorkSheets '遍历sheetIf my.Name = "目录" or my.Name = "SecondHandHouse" Then'do nothingElse因为在 EXCEL 的 VBA 中，“Rows”、“Columns”、“Cells”属性返回的都是 Range 对 象，所以对它们的应用可以等同 Range 对象的应用。 例如：你在 EXCEL 的