CONEXAO VIA EXCEL

USUARIO.EXCLUIDOS 27/04/2007 12:28:25
#214039

With Me.CDialogo
.ShowOpen
.CancelError = True
sPathPlan = .FileName
.Filter = "Planilha Excel (*.xls)|*.xls"
bErro = True
End With

If sPathPlan <> "" Then
If (adocnExcel.State) Then adocnExcel.Close
adocnExcel.ConnectionString = "Driver={Microsoft Excel Driver *.xls)};DriverId=790;Dbq=" & sPathPlan & ";"
adocnExcel.Open
Else
Exit Sub
End If


With adorsExcel
.ActiveConnection = adocnExcel
.LockType = adLockOptimistic
End With

If (adorsExcel.State) Then adorsExcel.Close
'realiza a seleção dos dados da planilha via ODBC ado

adorsExcel.Open "SELECT * FROM [" & Me.TxtPlan.Text & "$];"
sCampoContra = adorsExcel.Fields(Asc(Me.CboLetra(1).Text) - 65).Name


* O problema é na linha em negrito em que eu verifico o nome da coluna excel, mais ele me retorna "F1", mas preciso retornar o nome da coluna exatamente.