如何在ACCESS中通过VBA将数据填入EXCEL表中，并生成新的EXCEL表

ACCESS中有很多行数据，将每行数据填入固定格式的EXCEL表中，原来一行ACCESS的数据分几行填入EXCEL中

答案：下面是读取的代码
Sub CoRst()

  Dim cnn As New ADODB.Connection

  Dim rst As New ADODB.Recordset

  Dim SQL As String

  SQL = "select * from 表1"

  cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & "F:\Database1.accdb"

  rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic

  Range("A1").CopyFromRecordset rst

End Sub

你要一行分成几行可以通过将最后一句填充改为类似下面的代码：
Do While Not  rst.EOF
    range(i,1) = rst("字段名称1")
    range(i+1,1) = rst("字段名称2")
    rts.movenext
Loop

上一个：SQL server 数据库主要是比 excel 好在哪些方面呢？
下一个：excel如何保存6万条以上的数据，不用sql数据库行么？最好有简单的方法~~