vba - 将数据从 Excel 插入 SQL DB

Question

我创建了一个 Excel 工作表，它执行一些查找以格式化需要插入到另一个表中的数据。需要将此 Excel 工作簿提供给一些可以自由添加一些新行的用户，然后需要能够点击“插入数据库”按钮并转换记录并将其作为新记录插入到 SQL 表中。我正在使用 Excel 2010 和 SQL Server 2008。我有一个到数据库的连接，因为我使用它来拉回一些数据以验证添加的新行，但我不知道如何将数据插入回来.

Answer 1

您可以使用 ADO 做很多事情:

Dim cn As New ADODB.Connection

''You should probably change Activeworkbook.Fullname to the
''name of your workbook
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& ActiveWorkbook.FullName _
 & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

cn.Open strCon

s = "INSERT INTO [ODBC;Description=TEST;DRIVER=SQL Server;" _
& "SERVER=Server;Trusted_Connection=Yes;" _
& "DATABASE=test].SomeTable ( Col1, Col2, Col3, Col4 ) " _
& "SELECT  a.Col1, a.Col2, a.Col3, a.Col4 " _
& "FROM [Sheet2$] a " _
& "LEFT JOIN [ODBC;Description=TEST;DRIVER=SQL Server;" _
& "SERVER=Server;Trusted_Connection=Yes;" _
& "DATABASE=test].SomeTable b ON a.Col1 = b.Col1 " _
& "WHERE b.Col1 Is Null"
cn.Execute s

您还可以使用 ACE 连接:http://www.connectionstrings.com/或 OPENROWSET 和 SQL Server 连接。在所有情况下，您都可能会遇到列中混合数据类型的问题，具体取决于您的注册表设置 ( http://forum.lessthandot.com/viewtopic.php?f=17&t=12043&p=59669&hilit=excel#p59669 )