Отправить столбец из Excel в MSSQL 5 раз в секунду

Question

Мне нужно передавать столбцы Excel 5 раз в секунду на сервер mssql.Я хочу перезаписать существующие данные на сервере SQL.Я пробовал много кода в Интернете, но он не будет работать.У меня есть рабочий код для чтения таблицы SQL на лист в Excel.Можно ли записать данные на сервер sql?У меня не так много опыта работы с VBA или SQL Server.Я надеюсь, что кто-то может помочь с кодом.

Я опубликовал свой рабочий код для чтения данных из таблицы на сервере SQL, я удалил пароль.Извините за плохой английский.

Sub ADOExcelSQLServer()


   ' Carl SQL Server Connection
  '
   ' FOR THIS CODE TO WORK
    ' In VBE you need to go Tools References and check Microsoft Active X Data Objects 2.x library

    Dim cn As ADODB.Connection
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset

    Server_Name = "NLDONL0113" ' Enter your server name here
    Database_Name = "Stroomwaarden" ' Enter your database name here
    User_ID = "Admin" ' enter your user ID here
    Password = "" ' Enter your password here
    SQLStr = "SELECT * FROM [Stroomwaarde]" ' Enter your SQL here"

    Set cn = New ADODB.Connection
  cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
   ";Uid=" & User_ID & ";Pwd=" & Password & ";"

   rs.Open SQLStr, cn, adOpenStatic
    ' Dump to spreadsheet
   With Worksheets("sheet1").Range("M3:M500") ' Enter your sheet name and range here
       .ClearContents
       .CopyFromRecordset rs
   End With
    '            Tidy up
   rs.Close
   Set rs = Nothing
   cn.Close
   Set cn = Nothing

End Sub