[求助]如何在WORD中关闭一个已打开的"测试.xls"

yangzh

如何在WORD中用VBA关闭一个已打开的“测试.xls”，如果已打开则关闭，反之则打开，“测试.xls”文件放在C:\根目录下

守柔

QUOTE:

以下是引用yangzh在2007-1-2 12:04:44的发言：
如何在WORD中用VBA关闭一个已打开的“测试.xls”，如果已打开则关闭，反之则打开，“测试.xls”文件放在C:\根目录下

请参考：

Option Explicit

Sub Example()
    Dim myExcel As Object, TF As Boolean, oXls As Object
    On Error Resume Next
    Set myExcel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Err.Clear
        Set myExcel = CreateObject("Excel.Application")
        TF = True
    End If
    For Each oXls In myExcel.workbooks
        If oXls.FullName = "C:\测试.xls" Then
            oXls.Close
            If TF = True Then myExcel.Quit
            Exit Sub
        End If
    Next
    myExcel.workbooks.Open ("C:\测试.xls")
    If TF = True Then myExcel.Visible = True
End Sub

xqm2373521

我也收下了，强！