ms访问导出为ms excel格式

Question

我有一个带有1表6列的访问数据库，即项目，单位，quote1，quote2，quote3和quote4。

我希望有一个表单，其中键入项目，并以相同的格式生成excel表，但仅打印键入的项目并导出到excel。

Excel工作表具有以下格式：No，Item，Units，SOH，quote1，quote2，quote3，quote4。

我该如何完成？

Answer 1

我在工作中使用的方法如下：

用您要导出的数据字段构建表单。

启动一个新模块，并将以下示例代码放入其中。 我的表单称为“ TableView”

Sub exportcasetable4()
  DoCmd.OpenForm "TableView", acFormDS
  Forms!tableview.SetFocus
  DoCmd.RunCommand (acCmdSelectAllRecords)
  DoCmd.RunCommand (acCmdCopy)
  Dim objXLOutput As Object
  Dim objWBOutput As Object
  Dim objWSOutput As Object
  Set objXLOutput = CreateObject("Excel.Application")
  objXLOutput.Visible = True
  Set objWBOutput = objXLOutput.Workbooks.Add
  Set objWSOutput = objXLOutput.ActiveWorkbook.ActiveSheet
  objWSOutput.Range("A1").Select
  objWSOutput.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon _
    :=False
  objWSOutput.Range("A1").Select
  DoCmd.Close acForm, "TableView"
  Set objXLOutput = Nothing
  Set objWBOutput = Nothing
  Set objWSOutput = Nothing
End Sub

然后，您可以调用此子例程，它将把所有数据字段转储到Excel中。 您可以选择通过按钮调用它。

希望有帮助！