Office中国论坛/Access中国论坛

标题: [求助]怎样判断EXCEL中工作表已存在? [打印本页]

作者: 想不通 时间: 2007-1-30 03:53
标题: [求助]怎样判断EXCEL中工作表已存在?
怎样判断EXCEL中工作表已存在?

作者: wu8313 时间: 2007-1-30 03:57
dir

作者: 想不通 时间: 2007-1-30 04:14
工作表,不是工作薄

作者: fan0217 时间: 2007-1-30 17:59
将以下函数稍作更改就可以了：

'===============================================================================
'-函数名称:    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

作者: 想不通 时间: 2007-2-9 21:59
我想你的意思理解错了.

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

不是查找工作表的名字.

作者: andymark 时间: 2007-2-9 22:42

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

我想你的意思理解错了.

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

不是查找工作表的名字.

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

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

作者: einstein_supeng 时间: 2007-2-13 01:14
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"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)