Gibt es eine schnellere Möglichkeit, Zeilen in Excel nach SQL Server zu exportieren?

Question

Ich habe 8.500 Zeilen mit 36 ​​Spalten, die ich in eine SQL Server-Tabelle einfügen muss, und derzeit dauert es 9 Minuten. Ich habe mich gefragt, ob es einen schnelleren Weg dafür gibt. Ich habe Bulk-Inserts gelesen, aber ich spare das als letzten Ausweg.

Derzeit, wie ich es mache, ist, dass ich eine für jede Schleife verwenden und eine if-Anweisung zu überprüfen, ob jede Zelle richtig formatiert ist (wahrscheinlich ein Grund, warum es langsam ist, aber ich brauche es dort). Und ich verkette sie alle, um sie gleichzeitig zu exportieren.

Vielen Dank im Voraus.

Answer 1

Zuerst neeed Sie diesen Treiber installieren ([Microsoft.ACE.OLEDB.12.0]) auf die Instanz von SQL-Server

Download Here - Driver

dann diese Abfrage auf SQL-Sever ausführen:

select * 
    into mytable 
    from OpenDataSource('Microsoft.ACE.OLEDB.12.0', 'Excel 12.0;HDR=Yes;IMEX=1;Database=c\desktop\myExcelfile.xlsm')...[mySheet$] 

Sie dieses Zeichen nicht entfernen

„$“

Answer 2

Sie können drastisch die Leistung durch die Arbeit mit einem Array verbessern und durch einen Puffer mit dem que bauen Ry. Es sollte nur ein paar Millisekunden dauern, um eine Abfrage mit 10000 Zeilen zu erstellen. Hier ist ein Beispiel:

Sub build_query() 
    Dim buffer As String, length&, data(), r&, c& 

    ' load the data in an array ' 
    data = Range("A2:C5") 

    ' create the string buffer ' 
    buffer = String$(2048, vbNullChar) 

    ' write the header ' 
    Append buffer, length, "INSERT INTO [MyTable] ('ColA', 'ColB', 'ColB') Values(" & vbCrLf 

    ' iterate each cell ' 
    For r = 1 To UBound(data) 
    Append buffer, length, "(" 
    For c = 1 To UBound(data, 2) 
     If c > 1 Then Append buffer, length, "," 

     ' convert each type ' 
     Select Case VarType(data(r, c)) 
     Case vbDate: 
      Append buffer, length, format(data(r, c), "'yyyy-mm-dd HH:nn:ss'") 
     Case vbString: 
      Append buffer, length, "'" & data(r, c) & "'" 
     Case Else: 
      Append buffer, length, CStr(data(r, c)) 
     End Select 

    Next 
    Append buffer, length, ")," & vbCrLf 
    Next 

    ' write the footer ' 
    length = length - 3 ' remove comma ' 
    Append buffer, length, ");" 

    ' display the result ' 
    Debug.Print Left$(buffer, length) 
End Sub 

Private Sub Append(buffer$, length&, text$) 
    length = length + Len(text) 
    If length > Len(buffer) Then 
    buffer = buffer & String$(Len(buffer) * (length \ Len(buffer)), vbNullChar) 
    End If 
    Mid$(buffer, length - Len(text) + 1) = text 
End Sub 

Answer 3

ich erstellt habe eine Excel-Add-In in dem Sie Excel-Daten in SQL Server exportieren. Hat einen Test mit 8500 Zeilen und 40 Spalten und es dauerte 4,5 Sekunden, um die Zeilen in Excel zu SQL Server einzufügen.

Ich verkaufe es als ein kommerzielles Produkt, aber wenn es ein zeitlich begrenzter Job ist, können Sie den vollen Funktionsversuch kostenlos nutzen (und wenn Sie brauchen, senden Sie mir einfach eine E-Mail und ich werde den Versuch für Sie verlängern).

Sie können es hier herunterladen http://sqlspreads.com/download-sql-spreads/