如何从Excel提出数据？？？？？？？/在线等

Question

用ado,表为sss.xls,第一列为aa Dim cn As ADODB.Connection
         Set cn = New ADODB.Connection
         cn.Open
         Dim s As String
         s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sss.xls;User ID=Admin;Password=;Extended properties=Excel 5.0"
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  
  rs.Open "select aa from sss ", cn, adOpenStatic, adLockReadOnly, adCmdText怎么改？？？？？

Answer 1

Dim cn As ADODB.Connection
         Set cn = New ADODB.Connection
         cn.Open
         Dim s As String
         s = "Provider='Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\sss.xls;Extended properties=Excel 5.0'"
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  
  rs.Open "select aa from [sss$] ", cn, adOpenStatic, adLockReadOnly, adCmdText

Answer 2

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim s As String
s = "Provider='Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\sss.xls;Extended properties=Excel 5.0'"
cn.Open s
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordsetrs.Open "select aa from [sss$] ", cn, adOpenStatic, adLockReadOnly, adCmdText