如何将EXECL导入固定的ACCESS表里面

xgy0214dxy

对ACCESS还是起步阶段，怎么将一个固定格式的EXECL表（也是标准的数据库格式）引入到ACCESS固定的表里面（对应ACCESS表也是和ECEXL同一格式），虽然主菜单里面有了外部数据引入，但想通过代码来做，请高手能给事例

xgy0214dxy

噢，对了，需要多次引入的，ACCESS对应的表相当于存储数据用的，只不过不用手工输入，而是通过引入的形式

humengqiang

其实用access的导入外部数据命令比代码方便多了，为什么一定要用代码呢？下面这段代码是把sheet2中的数据整体一次性导入access数据库的表“住院补偿”的命令，因为你没有附件，就这样传给你，你自己复制粘贴后就可以用（自己修改表名）
Sub 导入数据()
    Sheets("sheet2").Activate
    If Len([a2]) = 0 Then
      MsgBox "你的信息表中没有数据，如何导入？请先汇总数据！"
      Exit Sub
    End If
     Dim endroww%, roww%, addr$, sql$
     Start = Timer
     Set conn = CreateObject("ADODB.Connection")
     conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & _
                "\db1.mdb;" & ";jet oledb:"
     endroww = [a65536].End(xlUp).Row
     addr = Range(Cells(1, "a"), Cells(endroww, [IV1].End(xlToLeft).Column)).Address(0, 0)
     sql = "INSERT INTO [住院补偿] SELECT * FROM [Excel 8.0;Database=" & ThisWorkbook.FullName & ";HDR=YES].[sheet2$" & addr & "];"
     conn.Execute sql
     conn.Close
     Set conn = Nothing
     MsgBox "数据导入成功。用时 " & Timer - Start & " 秒"
End Sub

xgy0214dxy

谢谢了,等会试试