Word:
Dim app As New Word.Application
app.Documents.Open "E:\1.doc"
app.Visible = True
Set app = Nothing
Excel:
Dim app As New Excel.Application
app.Workbooks.Open "E:\1.xls"
app.Visible = True
Set app = Nothing
PowerPoint:
Dim app As New PowerPoint.Application
app.Presentations.Open "E:1.ppt"
app.Visible = True
Set app = Nothing
这个就不行了。。。
[此贴子已经被作者于2006-11-24 9:19:58编辑过]