Есть ли способ сбора данных из определенных ячеек Excel для отправки на SQL Server? - PullRequest
Новая
       19

Есть ли способ сбора данных из определенных ячеек Excel для отправки на SQL Server?

4 голосов
/ 24 мая 2019

У меня есть шаблон Excel, который я хочу, чтобы пользователи ежедневно заполняли. Один лист сообщает мне, какие ячейки доступны для чтения / записи (то есть, какие я хочу отправить в свою базу данных). Форма не трубчатая т.е. иногда данные настраиваются (A3 -> A4) или (A3-> B3).

Мне было интересно, есть ли дополнение к Excel или каким-либо образом я могу прочитать определенные ячейки, а затем отправить их в мою базу данных после заполнения формы.

Я изучил документацию Excel. который говорит: импортировать данные за один шаг, прямо из Excel в SQL, используя один из следующих инструментов: Мастер импорта и экспорта SQL Server Службы интеграции SQL Server (SSIS) Функция OPENROWSET Вы можете импортировать данные в два этапа, экспортировав данные из Excel в виде текста, а затем используя один из следующих инструментов для импорта текстового файла: Мастер импорта плоских файлов ОБЪЕМНАЯ ВСТАВКА BCP Мастер копирования (фабрика данных Azure) Фабрика данных Azure Я также немного заглянул в VBA.

Будет ли один из них лучшим путем?

любые предложения приветствуются.

Я пытался использовать Мастер импорта и экспорта SQL Server с Службы интеграции SQL Server (SSIS) Но мои шаблоны не соответствуют нормализованному макету таблицы, которым я не могу управлять.

Я пытался использовать Microsoft Excels, встроенный в JavaScript API, но не смог найти способ подключить к нему более серьезный язык.

Ответы [ 2 ]

3 голосов
/ 24 мая 2019

Этого можно достичь двумя способами:

Использование команды SQL в качестве источника данных

В редакторе исходного кода Excel измените режим доступа на команду SQL и укажите диапазон после имени листа, например: 

SELECT * FROM [Sheet1$A3:A4]

Использование компонента скрипта в качестве источника

Вы можете использовать компонент Script в качестве источника, а в Script вы можете использовать сборку Interop.Excel.ddl, чтобы прочитать ячейки Excel и сгенерировать желаемый результат:

Полезные ссылки

1 голос
/ 12 июня 2019

Для извлечения данных в Excel из SQL Server, запустите пример кода, как этот. 

'  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
...