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內(nèi)容
'.....
3、如果是XP系統(tǒng)，可以使用如下代碼
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的一些常見方法：
(一) 使用動態(tài)創(chuàng)建的方法
首先創(chuàng)建 Excel 對象，使用ComObj:
oExcel = CreateObject( "Excel.Application" )
1) 顯示當前窗口：
oExcel.Visible = True
2) 更改 Excel 標題欄：
oExcel.Caption = "應用程序調(diào)用 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) 設置指定列的寬度（單位：字符個數(shù)），以第一列為例：
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 = "報表演示"
b.頁腳：
oExcel.ActiveSheet.PageSetup.CenterFooter = "第&P頁"
c.頁眉到頂端邊距2cm：
oExcel.ActiveSheet.PageSetup.HeaderMargin = 2/0.035
d.頁腳到底端邊距3cm：
oExcel.ActiveSheet.PageSetup.HeaderMargin = 3/0.035
e.頂邊距2cm：
oExcel.ActiveSheet.PageSetup.TopMargin = 2/0.035
f.底邊距2cm：
oExcel.ActiveSheet.PageSetup.BottomMargin = 2/0.035
g.左邊距2cm：
oExcel.ActiveSheet.PageSetup.LeftMargin = 2/0.035
h.右邊距2cm：
oExcel.ActiveSheet.PageSetup.RightMargin = 2/0.035
i.頁面水平居中：
oExcel.ActiveSheet.PageSetup.CenterHorizontally = 2/0.035
j.頁面垂直居中：
oExcel.ActiveSheet.PageSetup.CenterVertically = 2/0.035
k.打印單元格網(wǎng)線：