Question

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

我希望有一个表单，其中的项目是类型，并且生成的Excel工作表格式相同，但只打印的项目打印并导出到Excel。

excel表格具有以下格式不，项目，单位，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中。您可以选择从按钮调用它。

希望这有帮助！

ms访问导出为ms excel格式

1 个答案: