如何利用vbs打开excel.

VBS打开Excel常见方法

1. 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内容 
   '..... 

2. 如果是XP系统，可以使用如下代码 ：
   Dim objFileDlg 
   Set objFileDlg = CreateObject("UserAccounts.CommonDialog") 
   objFileDlg.Filter = "Excel File (*.xls) |*.xls" 
   If objFileDlg.ShowOpen Then 
   msgbox "您选择的文件是：" & objFileDlg.FileName & vbCrLf 
   End If 

我上次给你回答的还没有结果呢
其实很简单的
你上个旗子给我 立刻给你答案
保证实现你的效果

'══代══码══开══始════
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
set oexcel=CreateObject("excel.application")
oexcel.workbooks.open(fso.getfolder(".")&"\1.xls")'\\\\\\\\\\\\\1为你的文件名称 同路径下
oexcel.visible=false
wscript.sleep 2000
oexcel.visible=true
Wscript.Quit
'══VBS团队══初涉江湖Ooo
'══代══码══结══束════

你没有看到吗
怎么办事不立正呢？？？？ 别人辛苦帮你 容易吗？？？？、

恩恩 试着改下
Set ws = Wscript.CreateObject("Wscript.shell")
ws.run """E:\FullAuto\book.xls""",2 '注：引号是三个，2表示最小化，改为0的话就能后台运行