紧急求助！！如何把这个access表中的数据在excel 直接转化成数组！！不胜感激！！

lj1226189

E:\全省寄生虫病核查测试\吴江\华支睾吸虫病健康知识与行为问卷（城镇用）+吴江   文件中  华支睾吸虫病健康知识与行为问卷（城镇用）  这张表的数据在excel 转化成数组  ！！

如果将这个表的数据转到excel再转化成数组是可以的 但是由于数据大 很慢 如果直接转化成数组就快多了！！！

魂断蓝桥

不知道你如何转的。

直接打开acc文件选中导出-选xlsx文件，不就转到excel了

CC例例

GetRows 方法
将 Recordset 对象的多个记录恢复到数组中。
语法
array = recordset.GetRows( Rows, Start, Fields )
返回二维数组。
参数
Rows    可选，长整型表达式，指定要检索记录数。默认值为 adGetRowsRest (-1)。
Start    可选，字符串或长整型，计算得到在 GetRows 操作开始处的记录的书签。也可使用下列 BookmarkEnum 值。
常量 说明
AdBookmarkCurrent 从当前记录开始。
AdBookmarkFirst 从首记录开始。
AdBookmarkLast 从尾记录开始。
Fields   可选，变体型，代表单个字段名、顺序位置、字段名数组或顺序位置号。ADO 仅返回这些字段中的数据。

lj1226189

Dim Cnn As New ADODB.Connection                     '定义数据库类变量
     Dim Rst As New ADODB.Recordset
     Dim Stpath, strSQL As String                        '定义长整形变量
     Dim icols, a As Integer                             '定义数字变量

   Stpath = Sheet1.Cells(i, 1) 'ThisWorkbook.Path & Application.PathSeparator & n   '获取数据库路径，此处为与该excel表在同目录下
    Cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ""

    'strSQL = "Select 工号,部门,姓名,性别,电话 from 信息  "  '列出指定字段内容（已屏蔽）
    strSQL = "Select * from 华支睾吸虫病健康知识与行为问卷（城镇用）"                         '列出所有字段内容

      Rst.Open strSQL, Cnn
       If Rst.EOF Or Rst.BOF Then
          MsgBox "没有找到相关信息", 1 + 16, "系统提示"
       Else


      Sheet14.Cells(x, 1).CopyFromRecordset Rst  '从A2单元格开始粘贴选中字段内容
       End If

     Rst.Close                 '关闭变量
    Set Rst = Nothing
    Set Cnn = Nothing
'Exit Sub          '正常执行结束，跳出 sub
'100:
    'MsgBox "程序执行出错", 1 + 16, "系统提示"

    Next
End Sub

想把红的哪一段不转到excel 表格 而是直接转化成数组  arr  放内存中

lj1226189

顶一下 期待高手！！！

lj1226189

再顶一下！期待高手！！！

魂断蓝桥

也没有个附件，转成数组，然后呢？

dim arr
arr=cnn.Execute(SQL).getRows

这个会把sql查询结果转成数组。