Excel表数据批量上传SQL Server

jygzcj

Sub UpdateTable()
   
    On Error GoTo Errhandle
   
    Dim objfl As Variant
   
    Dim rngName As Range
   
    Dim LastRow As Long
   
   
    With Sheet1
        If .FilterMode Then
            .ShowAllData
        End If
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        
        Set rngName = .Range(.Cells(1, 1), .Cells(LastRow, 16))
    End With
   
    rngName.Name = "TempRange"
   
    Dim strFileName As String
   
   
    strFileName = ThisWorkbook.FullName
   
    Dim cnn As Object
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFileName & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes"";"
   
    Dim nSQL As String
    Dim nJoin As String
   
    nSQL = "INSERT INTO [odbc;Driver={SQL Server};UID=consign_user;DataBase=consign;PWD=#202308;Server=10.125.4.33].[ReconcileRecord]"
    nJoin = " SELECT * from [TempRange]"
   
    cnn.begintrans
   
    cnn.Execute nSQL & nJoin
   
    cnn.Committrans
   
    MsgBox "数据已经批量更新成功", vbInformation
   
    Exit Sub
   
   
Errhandle:

    cnn.rollbacktrans
    MsgBox "数据更新出错,未更新成功" & Err.Description, vbInformation
   
   
   
        
End Sub

opiona

https://club.excelhome.net/thread-1666858-1-1.html

jygzcj

opiona 发表于 2024-9-20 16:04
https://club.excelhome.net/thread-1666858-1-1.html

老板你的DLL我无法使用，公司电脑控制使用DLL，能否用ExcelDNA生成XLL的格式进行调用？

Yalishanda30

jygzcj 发表于 2024-9-22 20:28
老板你的DLL我无法使用，公司电脑控制使用DLL，能否用ExcelDNA生成XLL的格式进行调用？

数组循环写入也可以啊

jygzcj

Yalishanda30 发表于 2024-9-23 07:25
数组循环写入也可以啊

循环速度太慢了，如果数据多的话

f8b1987

批量导入感觉方便很多。
我之前试过循环写入8万行到ACCESS，好像也秒完成

Yalishanda30

jygzcj 发表于 2024-9-23 21:50
循环速度太慢了，如果数据多的话

不会很慢，数据特别多直接导入会好点

f8b1987

Yalishanda30 发表于 2024-9-24 07:13
不会很慢，数据特别多直接导入会好点

刚在access中试了，循环导入20万条25秒，用一次性添加的话只要2.6秒，数据量大连接导入确实慢。
再大，确实应该像你说的，直接进去数据库管理导入