access导入excel的规则是啥？

ayld · 发表于 2009-6-21 21:29

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

lanseqingren · 发表于 2009-6-22 16:16

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

ayld · 发表于 2009-6-22 19:32

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

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
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 · 发表于 2009-6-23 19:38

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

ayld · 发表于 2009-6-25 13:00

原帖由 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 · 发表于 2009-6-27 19:58

搞个附件看看

Scarlett_88 · 发表于 2009-6-27 22:38

只要字段吗？
方法一：
按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 · 发表于 2009-6-29 12:38

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

		自动登录	找回密码
密码			免费注册

[求助] access导入excel的规则是啥？