ms访问导出为ms excel格式

我有一个访问数据库与1表6列，即项目，单位，报价1，报价2，报价3和报价4。

我想有一个表单，其中的项目是types和Excel表生成相同的格式，但只有input的项目打印出口到Excel。

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

我如何做到这一点？

Answer 1

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

用你想要输出的数据字段构build一个表单。

开始一个新的模块，并把下面的示例代码里面。 我的表单被称为“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中。 你可以select从一个button来调用它。

希望这个帮助！