ADO读取EXCEL所有表名

        Dim cnFrom     As New ADODB.Connection    'from excel
        Dim cnTo     As New ADODB.Connection      'to sqlserver
        Dim rsFrom     As New ADODB.Recordset
        Dim rsTo     As New ADODB.Recordset
        Dim rsTableName As New ADODB.Recordset
       
        Dim intTblCnt As Integer
        Dim str1    As String
        Dim intCounts     As Integer
        '连sqlserver
        cnTo.Open "Driver={sql server};server=./hd;uid=sa;pwd=1;database=pms_t"

          '连接Excel
         cnFrom.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                     "Data Source=C:/vb/aa.xls;" & _
                    "Extended Properties=Excel 8.0"
        cnFrom.CursorLocation = adUseClient

        '取excel所有表单名
        Set rsTableName = cnFrom.OpenSchema(adSchemaTables)