VBS操作Excel常见方法

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横向打印//

vbs如何设置excel横向打印、纸张类型的解决方法如下 ：
1、将常量换成相应数值，如下：
Dim woexcel
Set woexcel = CreateObject("Excel.Application")
woexcel.DisplayAlerts = False
woexcel.Visible = True
woexcel.Workbooks.Open ("c:\activex.xlsx")
'将工作表第一张表格设置为活动
woexcel.Worksheets(1).Activate
'设置纸张类型
woexcel.ActiveSheet.PageSetup.PaperSize = 9
'打印方向设置为横向：
woexcel.ActiveSheet.PageSetup.Orientation = 2
2、相关参数的说明：
'xlLandscape 2 横向模式。
'xlPortrait 1 纵向模式。
'xlPaper11x17 17 11 英寸 x 17 英寸
'xlPaperA3 8 A3（297 毫米 x 420 毫米）
'xlPaperA4 9 A4（210 毫米 x 297 毫米）
'xlPaperA4Small 10 A4（小）（210 毫米 x 297 毫米）
'xlPaperA5 11 A5（148 毫米 x 210 毫米）
'xlPaperB4 12 B4（250 毫米 x 354 毫米）
'xlPaperB5 13 A5（148 毫米 x 210 毫米）
3、vba中支持系统常量，但是vbs中没有这些常量，应该换成相应数值，数值可以在vba帮助中查找。

''设置工作表  打印顶端标题///

     '''''oExcel.ActiveSheet.PageSetup.PrintTitleRows = oExcel.ActiveSheet.Rows(1).Address     '''''打印第1行为顶端标题

       ExcelSheet.PageSetup.PrintTitleRows = ExcelSheet.Rows(36).Address         '''''打印第36行为顶端标题

''设置工作表  打印左端标题/

 '''''oExcel.ActiveSheet.PageSetup.PrintTitleColumns = oExcel.ActiveSheet.Columns(A:A).Address    '''''打印A列为左端标题

  ExcelSheet.PageSetup.PrintTitleColumns =ExcelSheet.Columns("A:B").Address          '''''打印A列B列为左端标题

//  VBS控制Excel的一些常见方法：//

(一) 使用动态创建的方法

首先创建 Excel 对象，使用ComObj:
oExcel = CreateObject( "Excel.Application" )

1) 显示当前窗口：
oExce