本帖最后由 suxiong 于 2011-11-11 14:22 编辑
Dim cnn As New ADODB.Connection
strcn = "rovider=sqloledb;Database=小区系统;Uid=sawd=30687724;data source=127.0.0.1,1433;"
cnn.Open strcn
Dim y, arr
'数据太大,现在分三次导入
'第一次
arr = Range("a1:ak180000")
For y = 1 To 180000
ssql = "INSERT INTO [20111023] VALUES ('" & arr(y, 1) & " ','" & arr(y, 2) & " ','" & arr _
(y, 3) & " ','" & arr(y, 4) & " ','" & arr(y, 5) & " ','" & arr(y, 6) & " ','" & arr(y, 7) & " ','" & arr _
(y, 8) & " ','" & arr(y, 9) & " ','" & arr(y, 10) & " ','" & arr(y, 11) & " ','" & arr(y, 12) & " ','" & arr _
(y, 13) & " ','" & arr(y, 14) & " ','" & arr(y, 15) & " ','" & arr(y, 16) & " ','" & arr(y, 17) & " ','" & arr _
(y, 18) & " ','" & arr(y, 19) & " ','" & arr(y, 20) & " ','" & arr(y, 21) & " ','" & arr(y, 22) & " ','" & arr _
(y, 23) & " ','" & arr(y, 24) & " ','" & arr(y, 25) & " ','" & arr(y, 26) & " ','" & arr(y, 27) & " ','" & arr _
(y, 28) & " ','" & arr(y, 29) & " ','" & arr(y, 30) & " ','" & arr(y, 31) & " ','" & arr(y, 32) & " ','" & arr _
(y, 33) & " ','" & arr(y, 34) & " ','" & arr(y, 35) & " ','" & arr(y, 36) & " ','" & arr(y, 37) & " ')"
cnn.Execute ssql
ssql是否要关闭
主要是运行的时候提示:“程序打开时,不能运行”
cnn.Close
Set cnn = Nothing
Set ssql= Nothing
|