如何将记录表中的信息保存到未打开的工作簿中去

709320636

各位老师、高人，现有一个问题请求帮助，就是我在记录单中录入数据后，如何保存到未打开的工作簿中去，记录单中的数据可以有一或多行，保存到数据库工作簿中时，自动接到已有数据的下方。再次感谢！

709320636

那如何宏代码来实现呢，请高手明示，谢谢！

魂断蓝桥

数据库sheet1需要先设置一下。

比如

姓名        年龄        学历        籍贯        毕业院校        工作年限        入职时间
文本         0        文本        文本        文本                    0                    0

含义是让excel知道这些字段的类型

录入代码

Sub 向其它工作簿插入()
    Dim cnn As Object, sql$, m%
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\数据库.xls"
    sql = "INSERT INTO [Sheet1$] SELECT * FROM [Excel 8.0;Database=" _
        & ThisWorkbook.FullName & ";].[Sheet1$" & Range("A1").CurrentRegion.Address(0, 0) & "]"
    cnn.Execute sql, m
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    MsgBox m & "条数据录入"
End Sub