1. You can connect by ADODB connection with excel sheet
Dim cn as ADODB.Connection
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\MyFolder\MyWorkbook.xls;" & _
"Extended Properties=Excel 8.0;"
.Open
End With
2. Then get all data to a dataset and then you can get column name by following line
dt.Columns[0].ColumnName