如何判断文件已经打开，或是某一工作表已经存在？

cherenlin · 发表于 2007-7-2 19:57

我想把B workbook中的B worksheet拷贝到当前的A WORKBOOK中。
需要判断B WORKBOOK是否打开，如果没有打开需要打开，然后拷贝B WORKSHEET到A WORKBOOK。
但是如果B已经存在需要删除。
请问如何判断1。B WORKBOOK是否打开
2。b WORKSHEET是否存在？

着急
谢谢

LangQueS · 发表于 2007-7-2 20:44

建议楼主上传附件说明问题。

cherenlin · 发表于 2007-7-2 20:55

我想知道如何判断某个EXCEL文件是否打开。
谢谢。

仁者乐山 · 发表于 2007-7-2 21:51

用下面的语句试试.filename是你要想知道是否打开的文件名

if activeworkbook.Name="filename.xls" then msgbox "文件已打开"

LangQueS · 发表于 2007-7-2 22:09

QUOTE:

以下是引用仁者乐山在2007-7-2 21:51:42的发言：

用下面的语句试试.filename是你要想知道是否打开的文件名

if activeworkbook.Name="filename.xls" then msgbox "文件已打开"

这段代码只能检测当前文件。

StartMe · 发表于 2007-7-2 22:50

重命名那个文件，如果出错则应该已打开。

yuanzhuping · 发表于 2007-7-2 23:43

判断B工作簿是否已打开：

Sub yuan()
Dim x As Integer
    For x = 1 To Workbooks.Count
        If Workbooks(x).Name = "B.xls" Then
            MsgBox "文件已打开"
            Exit Sub
        End If
    Next
    MsgBox "文件未打开"
End Sub

LangQueS · 发表于 2007-7-2 23:56

yuanzhuping版解答收藏了，谢谢！

cherenlin · 发表于 2007-7-3 19:48

这么多朋友热心回答，真是感谢。

StartMe · 发表于 2007-7-3 23:16

哎，版主的方法不是任何情况均可以的。

如果通过两个excel实例打开的那样判断就不行了。

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

如何判断文件已经打开，或是某一工作表已经存在？

点评

谢谢大家。

最新热点 /1