用于读取第一行中所有列的SQL命令

您需要在连接字符串中提到“HDR=No;”。然后可以使用以下查询:

Select Top 1 * from [SheetName$]

话虽如此,我不知道是否有SQL语句从表中获取列名。如果有,则可以在连接字符串中使用HDR=Yes并使用该SQL语句。

SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = [YourTableName]

这在Excel中使用保存的工作簿工作,并枚举列(字段)名称。

Sub ListFieldADO()

    strFile = Workbooks(1).FullName
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
        & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"


    Set cn = CreateObject("ADODB.Connection")

    cn.Open strCon

    ''You can also use the name of a named range
    Set rs = cn.OpenSchema(adSchemaColumns, _
        Array(Empty, Empty, "Sheet1$")) 
    While Not rs.EOF
        Debug.Print "     " & rs!Column_Name
        rs.MoveNext
    Wend

    rs.Close
    Set rs = Nothing
End Sub

Select Top 1 * into #temp from [SheetName$]

use tempdb

sp_help #temp.

通过此操作,您可以获得 #temp

use yourDBName

将数据放在临时表中,读取临时表的属性,从中可以得到列名列表。