用vb如何将execl中某一单元格的内容送入access中

Question

用vb如何将execl中某一单元格的内容送入access中

Answer 1

vb操作excel是用cells（x,y）取单元格的内容，然后直接望access中插入即可！
    Set excel_app = CreateObject("excel.application")                  'excel对象
    Set excel_app = New Excel.Application
'    excel_app.Visible = True
    excel_app.Workbooks.Open FileName:="D:\astroboy\111.xls"
上面是打开excel文件，然后就可以直接操作了！

Answer 2

在ACCESS中的位置也是固定的？请问怎么插入到这个相应的位置？

Answer 3

   Dim VBExcel As Excel.Application
    Dim xlbook As Excel.Workbook '定义Excel工作簿对象
    Dim xlsheet As Excel.Worksheet '定义Excel工作表对象
    Set VBExcel = CreateObject("excel.application")
    VBExcel.Visible = True '根据操作人员是否需要见到Excel此处可设为TRUE或FALSE
    Set xlbook = VBExcel.Workbooks.Open("d:\as\ok.xls")    
    Set xlsheet = xlbook.Worksheets(1) '1为Excel模板工作表的index，或者用表名称，如：Sheet1
    xlsheet.Activate
adodc1.recordset.fields("字段1").value=xlsheet.Cells(3, 3).Value搞定！

Answer 4

ACCESS中的表要有一个编号才行.