如何将excel中数据用vba代码存入access文件中.docVIP

如何将excel中的数据用vba代码存入access文件中？ excel中的日期 供应商 货物名称 单价 数量 金额9月10日 联想公司 笔记本 3500 2 7000 将表中的内容存储到D:\备份.mdb中，如果mdb中有其他记录?，将记录存入以前的记录后面。每天都要将当天采购的记录录入并保存到mdb文件?中。谢谢 以下是我用了实现从Excel导数据进ACCESS的代码，你参考一下，应该就可以做出来了：（Excel和Access两个文件放一个文件夹下）Public Sub 客户正常供价批量维护()If Cells(4, 6) = ThenMsgBox 请先选择需要维护价格的系统！, vbInformationCells(4, 6).SelectExit SubElseDim i As Integer, j As Integer, k As Integer, sht As Worksheet i,j,k为整数变量；sht 为excel工作表对象变量，指向某一工作表Dim cn As New ADODB.Connection 定义 HYPERLINK /search?word=%E6%95%B0%E6%8D%AE%E9%93%BEfr=qb_search_expie=utf8 \t _blank 数据链接对象 ，保存连接数据库信息；请先添加ADO引用Dim rs As New ADODB.Recordset 定义 HYPERLINK /search?word=%E8%AE%B0%E5%BD%95%E9%9B%86fr=qb_search_expie=utf8 \t _blank 记录集对象，保存 HYPERLINK /search?word=%E6%95%B0%E6%8D%AE%E8%A1%A8fr=qb_search_expie=utf8 \t _blank 数据表Dim strCn As String, strSQL As String 字符串变量Dim mdbFile As String HYPERLINK /search?word=On%20Errorfr=qb_search_expie=utf8 \t _blank On ErrorGoTo add_errmdbFile = ActiveWorkbook.Path \DY_DATA.mdbstrCn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= mdbFile 定义 HYPERLINK /search?word=%E6%95%B0%E6%8D%AE%E5%BA%93%E9%93%BEfr=qb_search_expie=utf8 \t _blank 数据库链接字符串cn.Open strCn 与数据库建立连接，如果成功，返回连接对象cnSet rs = New ADODB.Recordsetrs.Open dbl直营客户正常供价表, cn, adOpenKeyset, adLockOptimistick = Cells(4, 8) + 8For i = 9 To kIf Cells(i, 7) = ThenElsers.AddNewrs(1) = Cells(i, 2)rs(2) = Cells(i, 7)rs(3) = Cells(i, 8)rs.UpdateCells(i, 7) = Cells(i, 8) = End IfNextMsgBox 数据记录添加成功！, vbInformationCells(4, 6).SelectActiveWorkbook.RefreshAlladd_exit:Exit SubEnd Ifadd_err:MsgBox Err() vbCrLf Error()Resume add_exitEnd Sub 追问 vba中excel的单元格用cells(1,1),cells(1,2),cells(2,1),cells(2,2),cells(i,j)表示，在vba中access对应的单元格如何表示这些？