如何用VB or VBA 读取excel所有数据范文杂锦.docVIP

如何用VB or VBA 读取excel所有数据范文杂锦范文大全 如何用VB or VBA 读取excel所有数据 取得excel文件所有内容： add microsoft ado frist. private sub command2_click() dim adoconnection as new adodb.connection dim adorecordset as new adodb.recordset commondialog1.showopen ole db + odbc driver 方式: adoconnection.open data provider=msdasql.1;driver=microsoft excel driver (*.xls);dbq=e:\temp\book2.xls microsoft.jet.oledb.4.0 方式,(建?) adoconnection.open provider=microsoft.jet.oledb.4.0;persist security info=false;data source= amp; commondialog1.filename amp; ;extended properties=excel 8.0;hdr=yes adorecordset.open select * from [sheet1$], adoconnection, adopenkeyset, adlockoptimistic debug.print adorecordset.recordcount dim i as integer do until adorecordset.eof for i = 0 to adorecordset.fields.count - 1 debug.prin t adorecordset.fields.item(0).name debug.print adorecordset.fields.item(0).value next i adorecordset.movenext loop end sub 但还不知道如何取得sheet名，不好意思，那位老鸟知道请告知，谢谢 sheet名用excel.application对象 dim xlapp as excel.application dim xlbook as excel.workbook set xlapp = new excel.application set xlbook = xlapp.workbooks.open(c;\123.xls)) for i = 1 to intsheetsum strtemp=xlbook.worksheets(i).name next i dim xlsconn as new adodb.connection dim xlscmd as new mand dim rs as new adodb.recordset xlsconn.connectionstring = provider=microsoft.jet.oledb.4.0;data source=c:\1.xls;extended properties=html export;persist security info=false xlsconn.open set rs = xlsconn.execute(select * from [sheet1]) set mshflexgrid.datasource=rs rs.close mshflexgrid.refresh dim xlsconn as new adodb.connection dim xlscmd as new mand dim rs as new adodb.recordset xlscon n.connectionstring = provider=microsoft.jet.oledb.4.0;data source=c:\1.xls;extended properties=excel 8.0;persist security info=false xlsconn.open set rs = xlsconn.execute(select * from [sheet1]) set mshflexgrid.datasource=rs rs.close mshflexgrid.refresh 水平管内伴有悬