Question

我在访问的导航表单中有一个连续表单。我已经在“数据”选项卡下的属性表设置中设置了允许“数据输入”的表单。使用此设置，表单将加载到新的数据输入记录。问题在于将“允许输入数据”设置为是，当我尝试导出到Excel时，它总是导出带有空单元格的工作表，它只显示搜索条件的字段，而没有数据。

我将“允许数据输入设置为否”，然后执行“导出到Excel”按钮并将数据导出到Excel工作表的操作。

ExportWithFormatting
对象类型：表格
OutputFormat：Excel工作簿xlsx
输出文件：空白
自动启动：是
模板文件：
编码：输出
质量：打印

我希望使用“导出到Excel”按钮根据表单中的搜索条件将数据导出到Excel。

Answer 1

不清楚您为什么使用数据输入=是，因为这意味着表格将仅显示您正在输入的新记录。因此，这个想法可能是一个坏主意。

但是，假设表单在过滤后显示了您想要的内容？

然后类似的事情应该起作用。

在表单上放置一个按钮（如标题所示）。

Private Sub Command47_Click()

  Dim strSQL     As String

  strSQL = Me.RecordSource

  strSQL = strSQL & " WHERE " & Me.Filter

  With CurrentDb.QueryDefs("qryExport")
     .SQL = strSQL
  End With

  ' now export the query  with critera to excel

  Dim strOutFile    As String

  strOutFile = "c:\ExcelData\Test.xlsx"

  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _
        "qryExport", strOutFile, True
end Sub

假设上面的查询是对表的查询，并且可以是任何合法的sql查询-因为我们的代码每次都会覆盖该查询和sql，然后导出该查询。

有没有一种方法可以将筛选的表单导出到MS Access中的Excel？

1 个答案: