能否用代码判定某个指定的Excel文件是否打开？...

xryacc2

能否用代码判定某个指定的Excel文件是否打开？如果是打开的就保存并关闭这个指定的Excel文件（保存和关闭不影响其他正在打开的Excel文件），期待高手......

todaynew

Function CloseE(strname As String)
'功能:关闭指定Excle文件。
'参数：strname---完整目标文件名
On Error GoTo CloseE_Err
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook

Set xlBook = xlApp.Workbooks(strname)
xlApp.Application.Visible = True
xlBook.Close
xlApp.Quit

CloseE_Exit:
    Exit Function

CloseE_Err:
    MsgBox Error$
    Resume CloseE_Exit
End Function

xryacc2

下标越界等
好像不行。

简

如果是换为word，又该如何用代码判断某个word文件是否打开，如果打开就关闭这个指定的word文件，但不影响其它打开的word文件呢。

期待答复中~~~

简

这个问题我也在关注中~~~

xryacc2

继续关注，继续期待高手。。。

todaynew

下标越界等
好像不行。
xryacc2 发表于 2010-2-23 21:25

Function CloseE(strname As String)
'功能:关闭指定Excle文件。
'参数：strname---文件名
On Error GoTo CloseE_Err
Dim xlBook  As Excel.Workbook
For Each xlBook In Workbooks
　　If xlBook.Name = strname Then
　　　　xlBook.Save
　　　　xlBook.Close
　　　　Set xlBook = Nothing
　　　　Exit Function
　　End If
Next xlBook
Set xlBook = Nothing
CloseE_Exit:
　　Exit Function
CloseE_Err:
　　MsgBox Error$
　　Resume CloseE_Exit
End Function


注意：双击文件夹查找文件。

xryacc2

功能未达到！
（1）我改引用了我用的Office 2000版的excel9.0.olb后还是不行（先前引用的excel11.0.olb丢失）
（2）双击文件夹，出错在“Dim fd As FileDialog”，文件已引用scruun.dll，我重新regsvr32.exe成功后还是出错
（3）我的文件在d:\excel\book1.xls，我在文件夹中输入d:\excel\或d:\excel，文件来源中都有book1.xls，就点打开，但打开的是C:\，我手工打开这个book1.xls，再点关闭，无效；
在文件中输入完整的路径:d:\excel\book1.xls，点“打开”，OK！点“关闭”，无反应！
(如果todaynew试过可行的话，可能就是我的office版本低的缘故了！)还是谢谢todaynew ！之前我用捕捉错误的办法判定文件是否打开并实现关闭功能都未见效，也定义过excel.workbook

todaynew

功能未达到！
（1）我改引用了我用的Office 2000版的excel9.0.olb后还是不行（先前引用的excel11.0.olb丢失）
（2）双击文件夹，出错在“Dim fd As FileDialog”，文件已引用scruun.dll，我重新regsvr32.exe成功后 ...
xryacc2 发表于 2010-2-25 22:02

呵呵，活该，让你改用2003版你不听。

xryacc2

公司统一用的Office 2000版。
另外我所说的“我改引用了我用的Office 2000版的excel9.0.olb后还是不行（先前引用的excel11.0.olb丢失）”，是指判定（或关闭指定文件）指定文件是否开启的功能效果未达到，而非引用不行。当然可以改引用的　。