大家好，请问如何在程序中取得我所连接到的Excel文件中哪些表，而各个表又有哪些字段？

Question

'引用 ADO & ADOX
Dim adoConnection As New ADODB.Connection
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\excel97.xls;Extended Properties='Excel 5.0;HDR=no';Persist Security Info=False"
Dim adoxCatalog As New ADOX.Catalog
Set adoxCatalog.ActiveConnection = adoConnection
Dim i As Long
Dim j As Long
For i = 0 To adoxCatalog.Tables.Count - 1
    For j = 0 To adoxCatalog.Tables.Item(i).Columns.Count - 1
        Debug.Print "[" & adoxCatalog.Tables.Item(i).Name & "].[" & adoxCatalog.Tables.Item(i).Columns(j).Name & "]"
    Next j
Next i

Answer 1

playyuer(女㊣爱)，我执行了之后，为何它所显示的列名为F1,F2...，而并非实际的列名？另外，该如何取得某一列的字段类型（数值型还是字符型还是？）谢谢！