将 Access 表单导出到与导出的子表单相同的 Excel 工作表中答案

【问题标题】：Export Access form into same excel sheet as exported subform将 Access 表单导出到与导出的子表单相同的 Excel 工作表中
【发布时间】：2022-01-23 17:46:39
【问题描述】：

我在数据表视图中有一个带有子表单的表单，我希望将它们都导出到同一个 excel 文件中。

我正在使用我找到的这段代码导出子表单，效果很好，但我也想向其中添加主表单数据。

Private Sub Command457_Click()
    
    On Error GoTo Command13_Click_Err
    Me.ProstojeSubform.SetFocus
    
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
    Dim xlapp As Excel.Application
    Set xlapp = CreateObject("Excel.Application")
    With xlapp
    .Workbooks.Add
    .ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
    False
    .Cells.Select
    .Cells.EntireColumn.AutoFit
    .Visible = True
    .Range("a1").Select
    
    End With
    
    Command13_Click_Exit:
    Exit Sub
    Command13_Click_Err:
    MsgBox Error$
    Resume Command13_Click_Exit
    
 End Sub

我可以使用 OutputTo 或内置导出功能导出表单本身，但不知道如何将它们合并到一个 excel 文件中。

【问题讨论】：

主窗体是否过滤为单个记录？如果没有，则将导出整个记录集。您是否考虑过改为导出报告？
表单本身实际上只是显示一堆计算字段，它没有绑定到任何记录源。默认导出函数将每个字段作为一列，这也是我只在子表单数据中寻找的内容。
你希望主表单数据去哪里，在子表单数据之上？可以通过直接引用.Range("A1").Value = Me.textboxname 填充工作表的单元格。然后需要将子表单数据粘贴到下一行。粘贴前选择单元格。
子表单数据以上为佳。
那么你有没有尝试过建议？

标签： excel vba database ms-access

【解决方案1】：

可以通过直接引用.Range("A1").Value = Me.textboxname来填充工作表的单元格。

然后需要将子表单数据粘贴到下一行。粘贴前选择单元格。

【讨论】：