如何利用vbs打开excel.
发布网友
发布时间：2022-04-21 08:13
共3个回答
热心网友
时间：2022-04-22 12:39
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内容
'.....
如果是XP系统，可以使用如下代码 ：
Dim objFileDlg
Set objFileDlg = CreateObject("UserAccounts.CommonDialog")
objFileDlg.Filter = "Excel File (*.xls) |*.xls"
If objFileDlg.ShowOpen Then
msgbox "您选择的文件是：" & objFileDlg.FileName & vbCrLf
End If
热心网友
时间：2022-04-22 13:57
我上次给你回答的还没有结果呢
其实很简单的
你上个旗子给我 立刻给你答案
保证实现你的效果
'══代══码══开══始════
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
'══代══码══结══束════
你没有看到吗
怎么办事不立正呢？？？？ 别人辛苦帮你 容易吗？？？？、
热心网友
时间：2022-04-22 15:31
恩恩 试着改下
Set ws = Wscript.CreateObject("Wscript.shell")
ws.run """E:\FullAuto\book.xls""",2 '注：引号是三个，2表示最小化，改为0的话就能后台运行
