excelexcel导入access

《excelexcel导入access》由会员分享，可在线阅读，更多相关《excelexcel导入access（12页珍藏版）》请在装配图网上搜索。

1、完全正确的过程，我先做完实验才回答的：第一步：建立好你的access数据表对应excel的各个字段。第二步：asp与excel建立联系，从excel中读取数据，具体代码如下：第三步：建立asp与access的联系，循环将刚刚数据集中的内容填入access表中，具体代码：第四步：如果有问题可以联系我，然后如果有效，请加分给我，谢谢。conn.asp 连接串自己写代码如下%on error resume nextsub dataIntoSqlServer_out(strname,strSheetName)set myConnection=server.createobject(adodb.conn

2、ection)set rsXsl=Server.Createobject(ADODB.Recordset)set rsSql=Server.CreateObject(ADODB.Recordset)set cmd=Server.CreateObject(ADODB.Command)set cmd.ActiveConnection=connmyConn_Xsl=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & strName& ;Extended Properties=Excel 8.0打开连接Response.Write(strname&strSh

3、eetName)myconnection.open myConn_XslIf Err ThenResponse.Write(Error #&Cstr(Err.Number)&,&Err.Description&)Err.ClearSet myConnection=NothingSet rsXsl=NothingSet rsSql=NothingSet cmd=Nothingconn.Close:Set conn=NothingResponse.End()End If打开表str_Xsl=select * from & strSheetName &$rsXsl.open str_Xsl,myco

4、nnection,1,1response.write 共导入 & area & 0加油信息。&vbcrj=1Do While not rsXsl.eofstr_Sql=insert into outcar(cardno,compname,opetime,content,litter,amount,balance,area) values(&rsXsl(0)&,&rsXsl(1)&,&CDate(rsXsl(2)&, & rsXsl(4)& ,&rsXsl(5) &, & rsXsl(7)& , & rsXsl(9)& ,&area&) cmd.CommandText=str_Sql cmd.E

5、xecute()If Err ThenResponse.Write(Error #&Cstr(Err.Number)&,&Err.Description&)Err.ClearSet myConnection=NothingSet rsXsl=NothingSet rsSql=NothingSet cmd=Nothingconn.Close:Set conn=NothingResponse.End()End Ifresponse.write document.all.&strSheetName&.innerHTML=&j&;& vbcrresponse.Flush() j=j+1 rsXsl.m

6、ovenextLoopresponse.write 共导入 & area & & j & 加油信息。set rsXsl=nothingset rsSql=nothingset myconnection=nothingset cmd=nothingconn.close:set conn=nothingend sub%调用方法 call dataIntoSqlServer_out(excel文件名,工作表名)建议做一个上传excel表格的页面，获得地址后调用评论(0) 0 0 发表评论 罗湖浪子 7级 2007-11-28 那要这么麻烦啊,完全可以在两种工具间自由转换啊评论(0) 0 0 发表评论

7、 ankou 2级 2007-11-28 一、直接导入法 1.启动Access，新建一数据库文件。 2.在“表”选项中，执行“文件获取外部数据导入”命令，打开“导入”对话框。 3.按“文件类型”右侧的下拉按钮，选中“Microsoft Excel（.xls）”选项，再定位到需要转换的工作簿文件所在的文件夹，选中相应的工作簿，按下“导入”按钮，进入“导入数据表向导”对话框 4.选中需要导入的工作表（如“工程数据”），多次按“下一步”按钮作进一步的设置后，按“完成”按钮。 注意：如果没有特别要求，在上一步的操作中直接按“完成”按钮就行了。 5.此时系统会弹出一个导入完成的对话框，按“确定”按钮。

8、至此，数据就从Excel中导入到Access中。 二、建立链接法 1.启动Access，新建一数据库文件。 2.在“表”选项中，执行“文件获取外部数据链接表”命令，打开“链接”对话框。 3.以下操作基本与上述“直接导入法”相似，在此不再赘述，请大家自行操练。 注意：“直接导入法”和“建立链接法”均可以将Excel数据转换到Access中，两者除了在Access中显示的图标不同外，最大的不同是：前者转换过来的数据与数据源脱离了联系，而后者转换过来的数据会随数据源的变化而自动随时更新评论(0) 0 0 发表评论 笑话 6级 2007-11-28 1、建立Excel对象setobjExcelApp=

9、CreateObject(Excel.Application) 注意不是：Server.CreateObject（EXCEL.APPLICATION）objExcelApp.DisplayAlerts=false不显示警告objExcelApp.Application.Visible=false不显示界面2、新建Excel文件objExcelApp.WorkBooks.addsetobjExcelBook=objExcelApp.ActiveWorkBooksetobjExcelSheets=objExcelBook.WorksheetssetobjExcelSheet=objExcelBoo

10、k.Sheets(1)/第一个工作薄3、读取已有Excel文件strAddr=Server.MapPath(.)objExcelApp.WorkBooks.Open(strAddr&Table.xls)setobjExcelBook=objExcelApp.ActiveWorkBooksetobjExcelSheets=objExcelBook.WorksheetssetobjExcelSheet=objExcelBook.Sheets(1)setobjExcelSheet.cells（1,1）.value 这个就是重中之重中了，可以取到1行1列的值也可以向里面写内容4、另存Excel文件ob

11、jExcelBook.SaveAsstrAddr&TempTable.xls5、保存Excel文件objExcelBook.Save（笔者测试时保存成功，页面报错。）6、退出Excel操作objExcelApp.Quit一定要退出setobjExcelApp=Nothing给分吧！-&Exce表bookl.xsl,表的结构如下：1 序号 名称 金额2 1 张三 1003 2 李四 2004 3 王五 300程序如下：%Set xlApp=server.CreateObject(Excel.Application)strsourc=c:bookl.xlsSet xlbook=xlApp.Work

12、books.open(strsourc)set xlsheet=xlbook.Worksheets(1)i=1response.writewhile slsheer.cells(i,1)response.writeresponse.write & xlsheet.Cells(i,1) & response.write & xlsheet.Cells(i,2) & response.write & xlsheet.Cells(i,3) & response.write i=i+1wendresponse.writeset xlsheet=nothingset xlbook=nothingxlAp

13、p.quit 一定要加这一句set xlApp=nothing无法释放空间%下面我已程序代码做成模块，只要导入必要之参数即可！ 此一模块共有四个参数： 1、sSheetName：要导出资料的文件名称 (Sheet name)，例如 Sheet1 2、sExcelPath：要导出资料的 Excel 档案路径名称 (Workbook path)，例如 C:book1.xls 3、sAccessTable：要导入的 Access Table 名称，例如 TestTable 4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:Test.mdb 在声明中加入以下： Priva

14、te Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String) Dim db As Database Dim rs As Recordset Set db = OpenDatabase(sExcelPath, True, False, Excel 5.0) Call db.Execute(Select * into ;database= & sAccessDBPath & . & sAccessTable &

15、FROM & sSheetName & $) MsgBox Table exported successfully., vbInformation, Yams End Sub 使用范例如下：將 C:book1.xls 中的 Sheet1 导入 C:Test.mdb 成为 TestTable ExportExcelSheetToAccess Sheet1, C:book1.xls, TestTable, C:Test.mdbASP excel导出/导入Access数据库(代码+实例下载)Excel导出函数%Sub ExportToExcel Response.ContentType = appl

16、ication/vnd.ms-Excel Response.AddHeader Content-Disposition, attachment;Filename=Results.xls Response.Write Response.Write Call WriteTableData Response.Write Response.Write Response.Write End Sub %Excel导入数据库%dim FileNameFileName=Excel.xls 取得文件名，来自项目经理的指定，路径固定在某个虚拟路径中Dim conn, rsset conn=CreateObject

17、(ADODB.connection)conn.Open Driver=Microsoft Excel Driver (*.xls); & _DriverId=790; & _Dbq= & Server.mappath(&FileName&) & ; & _DefaultDir=G: set rs=createobject(ADODB.recordset)rs.Open Select * From Sheet1$,conn, 2, 2if rs.eof thenresponse.write Excel表中无纪录elseset connDB = Server.CreateObject(ADODB.

18、Connection)DBPath = Server.MapPath(Excel.mdb)RESPONSE.WRITE DBpathconnDB.Open driver=Microsoft Access Driver (*.mdb);dbq= & DBPathSet RsDB = Server.CreateObject(ADODB.Recordset)SQLDB=Select * from ExcelRsDB.open SQLDB,connDB,1,3do while not rs.eof 利用循环读出数据RsDB.addnewRsDB(filename)=rs(0)RsDB(id1)=rs(

19、1)RsDB(id2)=rs(2)RsDB(id3)=rs(3)RsDB(id4)=rs(4)Rs.updateRsDB.movenextrs.movenextloopresponse.redirect FileNameend ifRsDB.movefirstif RsDB.eof thenresponse.write 数据库中无记录elsedo while not RsDB.EOFresponse.write RsDB(filename)& response.write RsDB(id1)& response.write RsDB(id2)& response.write RsDB(id3)

20、& response.write RsDB(id4)& response.write RsDB.movenextloopend ifrs.closeset rs=nothingset conn=nothing%ASP excel导出 EXCEL导入数据库,作者:hayden 日期:2007-03-15字体大小: 小 中 大以下是一个Excel导出函数引用内容Sub ExportToExcel Response.ContentType = application/vnd.ms-Excel Response.AddHeader Content-Disposition, attachment;Fil

21、ename=Results.xls Response.Write Response.Write Call WriteTableData Response.Write Response.Write Response.Write End Sub 关于Excel导入数据库引用内容%dim FileNameFileName=Excel.xls取得文件名，来自项目经理的指定，路径固定在某个虚拟路径中Dim conn, rsset conn=CreateObject(ADODB.connection)conn.Open Driver=Microsoft Excel Driver (*.xls); & _

22、DriverId=790; & _ Dbq= & Server.mappath(&FileName&) & ; & _ DefaultDir=G: set rs=createobject(ADODB.recordset)rs.Open Select * From Sheet1$,conn, 2, 2if rs.eof thenresponse.write Excel表中无纪录elseset connDB = Server.CreateObject(ADODB.Connection)DBPath = Server.MapPath(Excel.mdb)RESPONSE.WRITE DBpathco

23、nnDB.Open driver=Microsoft Access Driver (*.mdb);dbq= & DBPathSet RsDB = Server.CreateObject(ADODB.Recordset)SQLDB=Select * from ExcelRsDB.open SQLDB,connDB,1,3do while notrs.eof 利用循环读出数据RsDB.addnewRsDB(filename)=rs(0)RsDB(id1)=rs(1)RsDB(id2)=rs(2)RsDB(id3)=rs(3)RsDB(id4)=rs(4)Rs.updateRsDB.movenext

24、rs.movenextloopresponse.redirect FileNameend ifRsDB.movefirstif RsDB.eof then response.write 数据库中无记录else do while not RsDB.EOFresponse.write RsDB(filename)&response.write RsDB(id1)&response.write RsDB(id2)&response.write RsDB(id3)&response.write RsDB(id4)&response.write RsDB.movenext loopend ifrs.closeset rs=nothingset conn=nothing%