vba转换为vbs的方法_VBS操作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.CommonDialog")

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.Caption = "应用程序调用 Microsoft Excel"

3) 添加新工作簿：

oExcel.WorkBooks.Add

4) 打开已存在的工作簿：

oExcel.WorkBooks.Open( "C:\Excel\Demo.xls" )

5) 设置第2个工作表为活动工作表：

oExcel.WorkSheets(2).Activate

或

oExcel.WorksSheets( "Sheet2" ).Activate

6) 给单元格赋值：

oExcel.Cells(1,4).Value = "第一行第四列"

7) 设置指定列的宽度(单位：字符个数)，以第一列为例：

oExcel.ActiveSheet.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 = 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) 进行页面设置：a.页眉：

oExcel.ActiveSheet.PageSetup.CenterHeader = "报