ADO 方式将数组上载到excel 数据库

伤心001

   请问，已经有一个二维数组，我想把数组通过ADO方式上载到excel 的sheet1 的表中，该怎么写呢？


Sub 增加记录()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
   
    conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0';data source='D:\测试.xlsx'"

    Dim sql As String

    sql = "insert into [11$]([工号]) values ('666')"
    conn.Execute (sql)
   
    conn.Close
    Set conn = Nothing
End Sub

我运行了以上的代码，但是excel中没有把工号信息上传进来，哪里出现问题了呢？

micch

循环吧，。。。。。。

limonet

要有来源from

伤心001

原来传入的结果在305行，前面的单元格被空白占用了，太惊喜了

f8b1987

伤心001 发表于 2024-8-27 13:35
原来传入的结果在305行，前面的单元格被空白占用了，太惊喜了

在excel里面，清空的空行仍占用空间的。
SQL删除语句在Excel中也不可用，还有同一列中不同数据类型也会影响取数结果

使用SQL语句处理慎重

opiona

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

本质也是用的循环

1. Function INSERT_ARRAY_TO_ACCESS(ByVal ARX, ByVal StrNameTable As String, ByVal Str_Coon As String) As Long
   
2.     Rem  将数组内数据快速保存到Access数据库
   
3.     Rem  ARX              数组  含标题
   
4.     Rem  StrNameTable     数据表名称
   
5.     Rem  Str_coon         数据库连接字符串
   
6.     Rem  北极狐工作室整理  QQ:14885553
   
7.     Rem  使用方法:
   
8.     Rem    ARX = SHD.Range("A1:E" & MAXROW).Value
   
9.     Rem    StrNameTable = "测试表"
   
10.     Rem    Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\database.MDB;Jet OLEDB:Database Password=14885553"
    
11.     Rem    INTX = INSERT_ARRAY_TO_ACCESS(ARX, StrNameTable, Str_coon)
    
12.    
    
13.    
    
14.     Dim CN, RS
    
15.     Dim I, X, INTX, ICOL, LB As Long
    
16.    
    
17.     Set CN = CreateObject("Adodb.Connection") '//新建一个ADO连接
    
18.     Set RS = CreateObject("adodb.recordset")
    
19.     CN.Open Str_Coon
    
20.    
    
21.     CN.BeginTrans
    
22.     RS.LockType = adLockPessimistic
    
23.     RS.Open StrNameTable, CN
    
24.    
    
25.     INTX = 0
    
26.     LB = LBound(ARX, 1)
    
27.     For I = LB + 1 To UBound(ARX, 1)
    
28.         RS.AddNew
    
29.         Rem RS("日期") = SHX.Cells(I, 1).Value;RS("订单号") = SHX.Cells(I, 2).Value;RS("数量") = SHX.Cells(I, 3).Value
    
30.         Rem 日期    订单号  数量
    
31.         For ICOL = LB To UBound(ARX, 2)
    
32.             RS(ARX(LB, ICOL)) = ARX(I, ICOL)
    
33.         Next
    
34.         RS.Update
    
35.         INTX = INTX + 1
    
36.     Next
    
37.     CN.CommitTrans
    
38.     RS.Close
    
39.     CN.Close
    
40.     INSERT_ARRAY_TO_ACCESS = INTX
    
41. End Function

复制代码