请问excel表怎么导入到VB中的datagrid?
我想实现datagrid表内容的导入导出,导出到excel已经搞定,导入一直不会弄,就是把excel表的内容导入到datagrid1,哪位高手给个代码呀?我是新手,什么都...
我想实现datagrid表内容的导入导出,导出到excel已经搞定,导入一直不会弄,就是把excel表的内容导入到datagrid1,哪位高手给个代码呀?我是新手,什么都不会!所以请给个详细的代码
展开
2个回答
展开全部
Dim adoCon As New ADODB.Connection
Dim adoRs As New ADODB.Recordset
adoCon.CursorLocation = adUseClient
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\123.xls;Extended Properties='Excel 8.0;HDR=yes;IMEX=1'"
If adoRs.State <> adStateClosed Then adoRs.Close
adoRs.CursorLocation = adUseClient
adoRs.Open "select * from [sheet1$]", adoCon, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = adoRs
看看这个行不行
Dim adoRs As New ADODB.Recordset
adoCon.CursorLocation = adUseClient
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\123.xls;Extended Properties='Excel 8.0;HDR=yes;IMEX=1'"
If adoRs.State <> adStateClosed Then adoRs.Close
adoRs.CursorLocation = adUseClient
adoRs.Open "select * from [sheet1$]", adoCon, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = adoRs
看看这个行不行
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
为什么非要EXCEL啊,用ACCESS啊!
EXCEL功能十分有限
http://hi.baidu.com/freewolf/blog/item/674a0b24f1680a37c99559a9.html
EXCEL功能十分有限
http://hi.baidu.com/freewolf/blog/item/674a0b24f1680a37c99559a9.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询