读取excel

Question

 CommonDialog1.ShowOpen
   
   conn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" + CommonDialog1.FileName + ";Extended Properties=Excel 8.0"
  conn.Open
     
          adoRS.Open "select * from [sheet1$]", conn, adOpenDynamic, adLockReadOnly
          
          If adoRS.RecordCount <= 0 Then '为空
            MsgBox "请确认" & CommonDialog1.FileTitle & "的 “员工基本信息”工作簿内容不为空！否则无法导入任何数据！"
            Exit Sub
          End If
          
以上是我读取excel的代码。明明excel里是有数据的，但是adoRS.RecordCount 总是等于-1.大家给指点下吧~~~

Answer 1

不知道你的这个为什么会有错，但是我有别的方法导入EXCEL数据，你可以试试。
If Text1.Text = "" Then
MsgBox "请选择要导入的表！"
Else
Dim conn As New Access.Application
conn.OpenCurrentDatabase App.Path & "\数据库名.mdb"
conn.DoCmd.TransferSpreadsheet aclmport, acSpreadsheetTypeExcel9, "员工基本信息", CommonDialog1.FileName, True, Sheet1
xmxx.Quit
MsgBox "数据导入成功！"End If

Answer 2

http://download.csdn.net/source/2341786