excel导入access

Question

网上找到好多都不是很明白谁有vb写的excel导入Access的例子发一份给我  Access为已有的表已存在 可以通过按钮选择要转换的excel文件谢谢大侠们了 或加我的qq 412776470 

Answer 1

Set xlsApp = CreateObject("Excel.Application")
    With xlsApp
        Set xlsBook = .Workbooks.Open(strToExcelFileName, , False, , "", "")
        Set xlsSheet = xlsBook.Worksheets(1)
        xlsSheet.Activate
        .Visible = False
    End With
    With xlsSheet
        lngP = 1
        Do
            .Cells(lngP + 8, 1).value = ""   '填写单元格
            .Cells(lngP + 8, 2).value = ""     '填写单元格
            .Cells(lngP + 8, 3).value = ""     '填写单元格
            .Cells(lngP + 8, 4).value = ""     '填写单元格
            .Cells(lngP + 8, 5).value = ""     '填写单元格
            lngP = lngP + 1
        Loop Until lngP >= 100
    End With
    xlsBook.Save
    xlsBook.Close
    Set xlsSheet = Nothing
    Set xlsBook = Nothing
    Set xlsApp = Nothing

Answer 2

好像不是我要的东西，顺便说一下可否判断access中已有的数据和要导入的excel中的数据是否有重复然后只导入不重复的部分

Answer 3

Excel表头什么的都确定吗？要是不确定只能针对的，一行中所有列导入。循环行

Answer 4

参考http://bingning.net/free/source/programing/index.html