Question

当组合的结果大于255字段限制时，是否存在组合访问表并将其输出为excel

Answer 1

考虑将255列限制以下的查询分解为多个查询（所有相同的结构）。然后，打开查询作为VBA记录集，将其复制到特定范围内的Excel工作簿中，以便连续输出，特别是使用CopyFromRecordset方法。

下面是一个通用的Access VBA解决方案，假设有两个查询，每个查询有200列。根据需要调整细节。您可以在OpenRecordset()。

中使用SQL语句，而不是命名对象

Dim xlApp As Object, xlWkb As object
Dim db As Database, rst1 As Recordset, rst2 As Recordset
Dim fld1 As Field, fld2 As Field
Dim i As Integer
Const xlOpenXMLWorkbook = 51

Set db = CurrentDb
Set rst1 = db.OpenRecordset("query1", dbOpenDynaset)  ' FIRST 200 COLUMNS
Set rst2 = db.OpenRecordset("query2", dbOpenDynaset)  ' NEXT 200 COLUMNS

Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.Workbooks

' COLUMNS
i = 1
For Each fld1 in rst1.Fields
   xlWkb.Sheets(1).Cells(1, i) = fld1.Name
   i = i + 1
Next fld1

 ' DATA ROWS
xlWkb.Sheets(1).Cells(2, 1).CopyFromRecordset rst1


' COLUMNS
i = 0
For Each fld2 in rst2.Fields
   xlWkb.Sheets(1).Cells(1, 201 + i) = fld2.Name
   i = i + 1
Next fld2

 ' DATA ROWS
xlWkb.Sheets(1).Cells(2, 201).CopyFromRecordset rst2

xlWkb.SaveAs "C:\Path\To\Workbook\AccessData.xlsx", xlOpenXMLWorkbook
xlApp.Visible = True

rst1.Close: rst2.Close
Set rst1 = Nothing
Set rst2 = Nothing    
Set db = Nothing

Set xlWkb = Nothing
Set xlApp = Nothing

如何在传递字段限制为255的访问中组合表？

1 个答案: