请问各位师傅们vb怎样获得excel表的工作表sheet名？

[lanlanxiezhqhd]

我想得到excel表左下角的sheet名，就一个！希望大家知道的赐教!谢谢!

[zdf9218]

啥意思
直接WorkSheets(i).Name不可以了吗？

[贝隆]

呵呵，UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

[clear_zero]

WorkSheets(i).Name

[lanlanxiezhqhd]

具体应该怎么做啊？谢谢

[lanlanxiezhqhd]

我是用在访问这个excel中的，不知道有没有比较简便的方法得到excel的工作表名（这个工作表名是不固定的，用户自己修改成什么就获得什么），还是要用其它一些对象之类的来得到！希望大家能指教一下，我是想力求简便！
Set openExcel = Nothing


Dim DSN As String
Dim sError As String


CurrentImportedFileType = "EXCEL"
On Error GoTo errp

DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='" + FileName + "';" _
+ "Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"

Set myDbfCN = New Connection
myDbfCN.CursorLocation = adUseClient
myDbfCN.IsolationLevel = adXactUnspecified
myDbfCN.Open DSN

If Err.Number <> 0 Then
sError = "VBC" & "excel连接失败：" & Err.description
GoTo errp
End If

Set openExcel = New ADODB.Recordset
strSql = "SELECT * FROM [Sheet1$]" '注意，将excel第一个工作表的名称固定！

[liuyinax]

参考:....\MSDN98\98VS\2052\SAMPLES\VB98\GeoFacts的演示的源代码。