怎样用SHELL调用一个EXCEL文件和WORD文件?

[nieer]

在磁盘上有一个已做好格式的EXCEL文件book1和一个WORD文件test1,希望用SHELL调用,怎么实现?谢谢.

[nieer]

不行,"文件未找到"

[trite]

shell "winword.exe " & FileName

[nieer]

还是不行.

[iwzw]

Shell "C:\Program Files\Microsoft Office\Office\winword.exe " & "c:\1.doc"

[conghui]

可以作为参考:如
Shell "D:\Program Files\Microsoft Office\Office\EXCEL.exe", vbNormalFocus 其解释为第一个参数是想要调用的可执行文件的路径和文件名，第二个参数为文件打开时窗体的状态（例如是最大化，还是最小化，还是标准模式）。

[monday48427]

用OLE控件

[conghui]

你可以通过以下这种方式调用的:
'如果在你的系统中安装了Excel,你就可以使用OLE Automation来控制Excel,打开VB.
'点击Project | Reference项,在References列表中应该有一项:
'Microsoft Excel x.x Object Library ,其中x.x是不同Excel的版本号.选中该项,点击确定键.
'就可以将Excel的说明库加入到工程中了,下面是利用Excel打开工程的例子:

Dim x As New Excel.Application

Private Sub Command1_Click()
Dim shtTemp As Worksheet
Dim wbtemp As Workbook

x.Visible = True
Set wbtemp = x.Workbooks.Open("E:\Efile\12\MsgboxCrus0050.xls")
Set wbtemp = Nothing
Set x = Nothing
End Sub

[conghui]

这一种也是可以:
Shell "D:\Program Files\Microsoft Office\Office10\EXCEL.exe E:\book1.xls",vbNormalFocus
Shell "D:\Program Files\Microsoft Office\Office10\WINWORD.EXE E:\test1.doc",vbNormalFocus

[lxqlogo0]

shell "start.exe c:\dd.doc", vbHide