如何高效的将excel数据导入到sql中

XUZHANCHENG

Sub charu()

   aa = Timer
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
  Dim cnn As Object, SQL$, Mypath$, MyFile$, n%
    Set cnn = CreateObject("adodb.connection")

   cnn.Open "provider=sqloledb;Database=bj_jiekou;Uid=sa;pwd=abc123ABC!@#;data source=fe;"

For i = 2 To 9941

日期 = Cells(i, 1)
凭证类别 = Cells(i, 2)
凭证号 = Cells(i, 3)
摘要 = Cells(i, 5)
科目编码 = Cells(i, 6)
If Cells(i, 7) = "" Then
借方金额 = 0
Else
借方金额 = Cells(i, 7)
End If
If Cells(i, 8) = "" Then
贷方金额 = 0
Else
贷方金额 = Cells(i, 8)

End If
制单人 = Cells(i, 12)
部门编码 = Cells(i, 16)
客户编码 = Cells(i, 18)
供应商编码 = Cells(i, 19)
sql1 = "insert into gl_accvouch_ls (日期,凭证类别,凭证号,摘要,科目编码,借方金额,贷方金额,制单人,客户编码) values('" & 日期 & "','" & 凭证类别 & "','" & 凭证号 & "','" & 摘要 & "','" & 科目编码 & "'," & 借方金额 & "," & 贷方金额 & ",'" & 制单人 & "','" & 客户编码 & "')"

    cnn.Execute sql1

Next


    cnn.Close
    Set cnn = Nothing
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
  MsgBox Timer - aa

End Sub



本人在往数据库导入凭证时，由于excel的表格数据有1万行左右，我测试了一下，导入时间是66秒左右，没有有好的方法提高效率那，我的循环方式太笨了。多谢

魂断蓝桥

别用循环，直接查询后插入

例如：
cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & mydata  直接连接你的数据库。
SQL = "INSERT INTO 数据表(船名,航次,货主,航线,箱号,箱类型,空重,货名,重量,件数,箱型,TEU) " _
        & "select * FROM [Excel 8.0;HDR=YES;DATABASE=" & ThisWorkbook.FullName & "].[数据表$] WHERE 船名 is not null "
  cnn.Execute SQL

XUZHANCHENG

魂断蓝桥 发表于 2015-12-24 15:14
别用循环，直接查询后插入

例如：

我按照您提示的写了，可是执行的过程中说无效

zhaogang1960

XUZHANCHENG 发表于 2015-12-24 15:51
我按照您提示的写了，可是执行的过程中说无效

sql数据库与Excel不兼容，不能使用一次性导入，还是用循环吧

XUZHANCHENG

zhaogang1960 发表于 2015-12-24 15:55
sql数据库与Excel不兼容，不能使用一次性导入，还是用循环吧

是啊，我测试很久都是提示错误，主要是效率很低，我找不到好的办法

jachson2011

都是在找提高导入效率都办法，逐行插入效率实在是有点低，1W=66S，每天至少要导入10此以上，数据库日志刷刷的长大。

yzxfelix

zhaogang1960 发表于 2015-12-24 15:55
sql数据库与Excel不兼容，不能使用一次性导入，还是用循环吧

赵刚老师，说得对。 必须用字典和数组。 不能用sql等隔空取数的方法，貌似简单，运行超级慢

yzxfelix

魂断蓝桥 发表于 2015-12-24 15:14
别用循环，直接查询后插入

例如：

这个方法，特别慢，换for 循环， 加数组 加字典。

Askinofblue

给你一个最简单的方法。

参考以下视频

https://www.zhihu.com/zvideo/1296127010587271168

通过sqlcel的导入excel功能，可以最快速最高效的方法将excel文件导入数据库中。

opiona

可关注一下337楼: http://club.excelhome.net/forum. ... ;page=34#pid9768940