vba - 使用 ADO 连接到 Excel - 不知道工作表名称

Question

我正在使用 ADO 连接到 Excel，但只有在指定工作表名称时它才有效。我在运行时不会知道这些。有什么方法可以获取工作表名称吗？ Excel 自动化？

谢谢。

Answer 1

打开 ADO 连接后，需要调用 OpenSchema() 方法，该方法返回工作表名称为“table_name”的结果集

我对 VBA 有点生疏，但看起来应该是这样的

Dim oConn
DIm oRs
Set oConn = New ADODB.Connection
Dim sConn
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=somepathtoXLS; xxx not sure some other connection str props..."
oConn.Open sConn

Set oRS = oConn.OpenSchema(adSchemaTables)
Do While Not oRS.EOF 
   sSheetName = oRS.Fields("table_name").Value
   '// do something with the sSheetName
   oRS.MoveNext
Loop