Question

我有一个模板excel表，希望用户每天填写。一张纸告诉我哪些单元格是可读写的（意味着我想将哪些单元格发送到数据库）。该形式不是管状的。有时会设置数据（A3-> A4）或（A3-> B3）。

我想知道是否有一个excel插件，或者我能以某种方式读取某些单元格，然后在表单完成后将它们发送到我的数据库中。

我研究了Excel文档。其中说：使用以下工具之一，将数据直接从Excel直接导入到SQL中： SQL Server导入和导出向导 SQL Server集成服务（SSIS） OPENROWSET功能您可以分两个步骤导入数据，方法是将数据从Excel导出为文本，然后使用以下工具之一导入文本文件：导入平面文件向导 BULK INSERT语句 BCP 复制向导（Azure数据工厂） Azure数据工厂我也研究了VBA。

其中之一将是最佳途径吗？

任何建议都值得赞赏。

我尝试将SQL Server导入和导出向导与 SQL Server集成服务（SSIS）但我的模板没有遵循我无法控制的规范化表布局。

我尝试使用内置在JavaScript API中的Microsoft Excel，但是我找不到将服务器端语言连接到它的方法。

Answer 1

您可以通过两种方法实现这一目标：

使用SQL命令作为数据源

在Excel Source编辑器中，将Access模式更改为SQL Command，并在工作表名称后指定范围，例如：

SELECT * FROM [Sheet1$A3:A4]

Ignoring column from Excel file while importing to SQL Server

使用脚本组件作为源

您可以使用脚本组件作为源，并且在脚本内可以使用Interop.Excel.ddl程序集读取Excel单元并生成所需的输出：

有用的链接

Answer 2

要从SQL Server将数据提取到Excel中，请运行示例代码。

'  Tools > References > Microsoft ActiveX Data Objects 2.8 Library
Sub TestMacro()

' Create a connection object.
Dim cnPubs As ADODB.Connection
Set cnPubs = New ADODB.Connection

' Provide the connection string.
Dim strConn As String

'Use the SQL Server OLE DB Provider.
strConn = "PROVIDER=SQLOLEDB;"

'Connect to the Pubs database on the local server.
strConn = strConn & "DATA SOURCE=(local);INITIAL CATALOG=NORTHWIND.MDF;"

'Use an integrated login.
strConn = strConn & " INTEGRATED SECURITY=sspi;"

'Now open the connection.
cnPubs.Open strConn

' Create a recordset object.
Dim rsPubs As ADODB.Recordset
Set rsPubs = New ADODB.Recordset

With rsPubs
    ' Assign the Connection object.
    .ActiveConnection = cnPubs
    ' Extract the required records.
    .Open "SELECT * FROM YourTable"
    ' Copy the records into cell A1 on Sheet1.
    Sheet1.Range("A1").CopyFromRecordset rsPubs

    ' Tidy up
    .Close
End With

cnPubs.Close
Set rsPubs = Nothing
Set cnPubs = Nothing

End Sub

要将数据从Excel推送到SQL Server，请运行这样的示例代码。

'  Tools > References > Microsoft ActiveX Data Objects 2.8 Library
Sub InsertInto()

'Declare some variables
Dim cnn As adodb.Connection
Dim cmd As adodb.Command
Dim strSQL As String

'Create a new Connection object
Set cnn = New adodb.Connection

'Set the connection string
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=Northwind;Data Source=Your_Server_Name_Here"


'Create a new Command object
Set cmd = New adodb.Command

'Open the Connection to the database
cnn.Open

'Associate the command with the connection
cmd.ActiveConnection = cnn

'Tell the Command we are giving it a bit of SQL to run, not a stored procedure
cmd.CommandType = adCmdText

'Create the SQL...using a Where clause here...can be anything you want...
strSQL = "UPDATE TBL SET JOIN_DT = '2019-06-12' WHERE EMPID = 1"

'Pass the SQL to the Command object
cmd.CommandText = strSQL


'Execute the bit of SQL to update the database
cmd.Execute

'Close the connection again
cnn.Close

'Remove the objects
Set cmd = Nothing
Set cnn = Nothing

End Sub

有没有一种方法可以从excel特定单元格收集数据以发送到SQL Server？

2 个答案:

使用SQL命令作为数据源

使用脚本组件作为源