[求助]怎样判断EXCEL中工作表已存在?

想不通

怎样判断EXCEL中工作表已存在?

wu8313

dir

想不通

工作表,不是工作薄

fan0217

将以下函数稍作更改就可以了：



'===============================================================================
'-函数名称:     GetExcelSheel
'-功能描述:     获取文件信息Excel文件的工作表名称
'-输入参数说明: 参数1: 必选 strExcelFile As String Excel文件路径和名称
'-返回参数说明: 返回Excel文件的工作表名称
'-使用语法示例: Msgbox GetExcelSheel("C:\Abc.xls")
'-参考:
'-使用注意:     需要引用ADOX
'-兼容性:       2000,XP,2003
'-作者:         fan0217@tom.com
'-更新日期：    2006-05-20
'===============================================================================
Function GetExcelSheel(strExcelFile As String) As String
On Error GoTo Err_GetExcelSheel
Dim cat As New ADOX.Catalog
Dim strTemp As String
Dim i As Integer

cat.ActiveConnection = "Driver=Microsoft Excel Driver (*.xls);dbq=" & strExcelFile

   For i = 0 To cat.Tables.Count - 1
        strTemp = strTemp & Left(cat.Tables(i).Name, Len(cat.Tables(i).Name) - 1) & ";"
        'strTemp = strTemp & cat.Tables(i).Name & ";"
   Next
   
   GetExcelSheel = Left(strTemp, Len(strTemp) - 1)
   
    Set cat = Nothing

Exit_GetExcelSheel:
    Exit Function

Err_GetExcelSheel:
    Set cat = Nothing
    MsgBox Err.Description
    Resume Exit_GetExcelSheel

End Function

想不通

我想你的意思理解错了.

怎样判断工作表是否存在?

不是查找工作表的名字.

andymark

以下是引用想不通在2007-2-9 13:59:00的发言：


我想你的意思理解错了.

怎样判断工作表是否存在?

不是查找工作表的名字.

      须循环读取工作表的名称,再加以判断

     如果表名在列表中,则表示此工作表已存在,反之则不存在

einstein_supeng

dim fs

dim Filename

Filename="d:\data.xls"

Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(Filename) = True Then
msgbox "Data is in!"

else

msgbox "Data is not in!"

end if

试试看，如果.XLS是变量就用"*.XLS"