怎样在打开WORD文档时运行另一EXECEL文档?

zkq · 发表于 2005-4-7 13:33

请教:

怎样在打开一个WORD文档的同时运行(打开)另一EXECEL文档?用VBA控制的代码如何写?

谢谢!!!

守柔 · 发表于 2005-4-8 06:43

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-8 06:43:45 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub Document_Open() Call GetExcApp End Sub '---------------------- Sub GetExcApp() Dim xlObj As Excel.Application, xlWb As Excel.Workbook On Error Resume Next '忽略错误 '如果任务栏中有Excel程序则调用该现有程序,反之则创建一个新的EXCEL程序 If Tasks.Exists("Microsoft Excel") = True Then Set xlObj = GetObject(, "Excel.Application") Else Set xlObj = CreateObject("Excel.Application") End If xlObj.Visible = True '设为可见 Set xlWb = xlObj.Workbooks.Open("c:\ok.xls") '打开指定的工作薄 'your main'设计你的代码 xlObj.Quit '关闭Excel进程 End Sub '----------------------

zkq · 发表于 2005-4-8 10:53

谢谢守柔版主!!!

该代在win98中的OFFICE2000中通过,但在WINXP中没有通过,引用中已引用了EXCEL11.0,但还是没通过,请赐教!!!

守柔 · 发表于 2005-4-8 11:57

我想,你应该给我说明是哪个出了问题,比如运行到某一句时,出错了.(也可以使用F8逐语句调试)

也可以把你的代码上传,我看一下,你在粘贴过程中,是否有问题.

		自动登录	找回密码
密码			免费注册