vb将Excel导入到DataGrid(或数据库).docVIP

方法一： 把Excel当作数据库来操作（这样速度快）或用Excel对象来做，读取数据，然后循环导入 读取数据然后一条条的导进去，循环操作因为数据量大很慢。如何把excel像数据库那样读？难道写成结构体数组么？当作数据库操作： 引用ado：工程引用Microsoft ActiveX Data Object 2.x（版本号）Private Sub Form_Load()????Dim cn As New ADODB.Connection, rs As New ADODB.Recordset????cn.CursorLocation = adUseClient????cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= App.Path \temp.xls;Extended Properties=Excel 8.0;HDR=Yes????rs.Open select * from [Sheet1$], cn, adOpenDynamic, adLockOptimistic????Set DataGrid1.DataSource = rsEnd Sub 方法二： EXCEL文件要设置固定格式，还要设置命名范围，然后才可以导入大致思路如下：// 设置打开 EXCEL 文件的连接字符串strConn = Provider=Microsoft.Jet.OLEDB.4.0; _Data Source=excel文件名;Extended Properties=Excel 8.0// 以记录集的形式打开 Excel 文件，adoConn 为 ADODB.Connection 对象adoConn.Open strConn// 将数据插入到指定的表中（以ODBC的方式打开SQL数据库）strSQL = INSERT INTO [odbc;Driver={SQL Server};Server=服务器IP;Database=数据库;UID=用户名;PWD=密码].SQL中的表名 SELECT EXCEL中的字段 FROM EXCEL工作表名// 执行导入语句adoConn.Execute strSQL, , adExecuteNoRecords 方法三： Dim Conn As ADODB.ConnectionSet Conn = New ADODB.ConnectionConn.Open 连接到你的数据库XJGL.MDB的字符串Conn.Execute select * into tmptable from [excel 8.0;database= + 你的excel表名 + ].[sheet名$]Conn.Execute insert into xsda(学籍号,准考证号,姓名,性别,出生年月,班级)select 学籍号,准考证号,姓名,性别,出生年月,班级 from tmptableConn.Execute drop tabel tmptableSet Conn = Nothing VB新建Excel文档 Public xlApp As Excel.ApplicationPublic xlBook As Excel.WorkbookPublic xlChar As New Excel.ChartPublic xlSheet As New Excel.WorksheetSet xlApp = New Excel.ApplicationSet xlApp = CreateObject(Excel.Application)Set xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets.AddxlSheet.Cells(1, 1) = 测试 写入内容xlBook.SaveAs (FILENAME) 保存文件xlApp.QuitSet xlApp = Nothing????本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方法打开。如果不存在，则用add添加，并保存。 vb导出数据到Excel Public Function ExporToExcel(strOpen As String) 入参为SQL查询语句**************************************************