读取excel

[空怀]

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.大家给指点下吧~~~

[nancy_2500]

不知道你的这个为什么会有错，但是我有别的方法导入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

[nancy_2500]

最后那个xmxx应该改成conn

[贝隆]

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