access导入excel的规则是啥？

ayld

access导入excel的规则是啥？如何将access中的字段导入到excel中变为竖向的列？

lanseqingren

使用交叉查询就可以设定字段是如何显示

ayld

我想把查询查询表格的结果的字段，导入excel中，想让字段导入excel后，把字段按顺序排列在excel的一列中！

lanseqingren

交叉查询输出到EXCEL的例子
Dim strSQL As String
Private Sub Command9_Click()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim I As Integer
    Dim x As Integer
    Dim oExcel As Object
    Dim oBook As Object
    Dim strSQL As String
   strSQL = "SELECT * FROM (TRANSFORM Count(BatchNumber) AS BatchNumberOfCount SELECT PartNumber, Count(BatchNumber) AS Qty DESC) FROM Data GROUP BY PartNumber PIVOT Defect;"
    Set conn = CurrentProject.Connection
    rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
    If rs.RecordCount = 0 Then rs.Close: Exit Sub
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Add()
    Set xlSheet = oBook.Worksheets(1)
    oExcel.Visible = True
    For I = 0 To rs.Fields.Count - 1
        xlSheet.Cells(1, I + 1).Value = rs.Fields(I).Name
    Next
    xlSheet.Cells(2, 1).CopyFromRecordset rs
    rs.Close      
End Sub

ayld

谢谢你！还复杂，一时还看不懂，消化一下再说，再次谢谢你！

ayld

原帖由 lanseqingren 于 2009-6-23 13:36 发表
交叉查询输出到EXCEL的例子
Dim strSQL As String
Private Sub Command9_Click()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim I As Integer
    Dim x As Integer
     ...

达不到要求

lanseqingren

搞个附件看看

Scarlett_88

只要字段吗？
方法一：
按4楼的代码SQL语句 select * from table
执行字段循环就将字段导入到excel中了
    For I = 0 To rs.Fields.Count - 1
        xlSheet.Cells(I + 1,1).Value = rs.Fields(I).Name
    Next
如果还要记录能否用
要数据将xlSheet.Cells(2, 1).CopyFromRecordset rs改一下
dim arr
arr=rs.GetRows  ’将记录集中的数据送给数组
xlSheet.Cells(2, 1).resize(ubound(arr,1)+1,ubound(arr,2)+1)=application.transpose(arr)     ‘ubound(arr,1)+1 字段数，这样转换成了行数；记录数，这里转换成了列数；arr是记录集数据，如果数据横竖反了就调一调，整个数据集反了就直接等于arr
上面代码能否执行，请自己调试，我的ACCESS代码区不工作
方法二：
1、将你要导出的查询表再设置一个条件 where 1=2 这样查询结果就只有字段了
2、将只有字段的查询表导出到excel中
3、点击第一行任意单元格》ctrl+a》复制》点单元格A2》选择性粘贴》转置
这样用技巧法实现了你的字段排成一列

ayld

这句好像有问题出现上述提示框！不知如何修改？
xlSheet.Cells(2, 1).resize(ubound(arr,1)+1,ubound(arr,2)+1)=application.transpose(arr)