[求助]能不能在打开WORD文件的同时打开EXCEL文件？

mzfsyml

有一WORD文件，链接了很多另一EXCEL文件里的内容，而EXCEL文件又启用了宏，编辑WORD文件时必须先打开EXCEL文件，如果一不小心先打开WORD的话，会有很多启用宏的提示，很慢很慢，有没有办法把这两个文件绑定，在开WORD的同时也打开EXCEL文件？

ht19791979

用vb做一下，就可以绕开宏提示。在vb6.0中做个按钮，用下面这段代码就可以打开word和excel文件，excel不会出现宏提示。红色代码是文件路径，你自己修改就行了！

Private Sub Command1_Click()

Dim word As Object
Dim documents As Object

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set word = CreateObject("word.application")
Set documents = word.documents.Open("d:\1.doc")
word.Visible = True


Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path + "\ywhz1101.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
End Sub

mzfsyml

QUOTE:

以下是引用ht19791979在2007-3-19 18:05:53的发言：

用vb做一下，就可以绕开宏提示。在vb6.0中做个按钮，用下面这段代码就可以打开word和excel文件，excel不会出现宏提示。红色代码是文件路径，你自己修改就行了！

......

多谢这位朋友，对VB不熟悉，试了一下，在调试到xlApp As Excel.Application时出现编辑错误：用户定义类型未定义。能不能把具体做法示范一遍？谢了。

守柔

QUOTE:

以下是引用mzfsyml在2007-3-19 22:36:35的发言：

多谢这位朋友，对VB不熟悉，试了一下，在调试到xlApp As Excel.Application时出现编辑错误：用户定义类型未定义。能不能把具体做法示范一遍？谢了。

在VB/工程/引用中，引用Microsoft Excel Version(版本号) Object Library即可.