将数据库表或者视图中的数据导出到EXCEL中的SQL语句怎么写?

给你一段代码，你照着写应该就可以了：

Private Sub Command5_Click()

Dim rs As DAO.Recordset

Dim Filnum As Long

Dim Recnum As Long

Dim xlapp As Object

Set rs = Me.打印价签导出子窗体.Form.Recordset

Set xlapp = CreateObject("excel.application")

xlapp.Visible = True

xlapp.Workbooks.Open ("D:\购好超市\促销及价格管理\标签格式\促销标签打印格式--特价.xlsx")

Dim sheet As Object

Set sheet = xlapp.sheets("内容")

rs.MoveFirst

Recnum = 2

Do Until rs.EOF

For Filnum = 0 To rs.Fields.Count - 1

sheet.cells(Recnum, Filnum + 1) = rs.Fields(Filnum)

Next

Recnum = Recnum + 1

rs.MoveNext

Loop

Set sheet = xlapp.sheets("格式1")

End Sub

将 Access 数据导出到 Excel

通过使用 Access 中的“导出向导”，可以将一个 Access 数据库对象（如表、查询或窗体）或视图中选择的记录导出到 Excel 工作表中。您在执行导出 *** 作时，可以保存详细信息以备将来使用，甚至还可以制定计划，让导出 *** 作按指定时间间隔自动运行。

下面是需要将数据从 Access 导出到 Excel 的常见情形：

您的部门或工作组在处理数据时既使用 Access 也使用 Excel。您在 Access 数据库中存储数据，但使用 Excel 来分析数据和分发分析结果。您的小组目前在需要时将数据导出到 Excel，但您想让这个过程更加高效一些。

您多数时间都在使用 Access，但您的经理更愿意在 Excel 中查看报表。您要按固定时间间隔将数据复制到 Excel 中，但您想自动完成这个过程以便节省您自己的时间。

有关将数据从 Access 导出到 Excel 的详细信息，请参阅 Access“帮助”系统。

返回页首

从 Excel 连接到 Access 数据

若要将可刷新的 Access 数据引入 Excel 中，可以创建一个到 Access 数据库的连接，该连接通常存储在 Office 数据连接文件 (.odc) 中，并检索表或查询中的所有数据。连接到 Access 数据而不导入这些数据的主要好处是：可以在 Excel 中定期分析这些数据，而不需要从 Access 反复复制或导出数据。连接到 Access 数据后，只要原始 Access 数据库更新了新的信息，则还可以从该数据库自动刷新（或更新）Excel 工作簿。例如，您可能想更新每月分发的 Excel 预算摘要报表以使其包含当月的数据。

1.单击要存放 Access 数据库中的数据的单元格。

2.在“数据”选项卡上的“获取外部数据”组中，单击“自 Access”。

3.在“查找范围”列表中，找到并双击要导入的 Access 数据库。

在“选取数据源”对话框中，单击要导入的表或查询，然后单击“确定”。

4.在“导入数据”对话框中，执行以下 *** 作：

在“选择数据显示方式”下，执行下列 *** 作之一：

若要以表的形式查看数据，请选择“表”。

若要以数据透视表的形式查看数据，请选择“数据透视表”。

若要以数据透视图和数据透视表的形式查看数据，请选择“数据透视图和数据透视表”。

或者单击“属性”为导入的数据设置刷新、格式和布局选项，然后单击“确定”。

在“数据的放置位置:”下，执行下列 *** 作之一：

若要将数据返回到选择的位置，请单击“现有工作表”。

若要将数据返回到新工作表的左上角，请单击“新建工作表”。

5.单击“确定”。

Excel 将外部数据区域放在您指定的位置。

有关连接数据的详细信息，请参阅连接（导入）外部数据。

第一、需要引用 Microsoft ActiveX Data Objects 2.0或以上版本的控件

第二、你的写法好像有问题

1、赋值我一般会用Cells(i, 9) = rs("SalesNum")

2、或者每个单元格的赋值不用，直接用Range("G3").CopyFromRecordset rs 这样你的代码从Range("G3").Select到Wend这一部分都可以不要了。

---