如何将access中的数据导出为EXCEL文件？-button导出excel,导出excel

Dim xls As Object
Dim wb As Object
Dim ws As Object
    Set xls = CreateObject("excel.application")
    Set wb = xls.workbooks().Add()
    Set ws = wb.worksheets("sheet1")
    With ws
        .cells(1, 1).Value = "test"             'A1内容
        .cells(1, 1).Font.Name = "微软百正黑度体知"   'A1字体
        .cells(1, 1).Font.Size = 20             'A1字号道
        .Columns("A:A").ColumnWidth = 50        'A列宽度
    End With
    xls.Visible = True

祝你版成权功！

Access中确实具备直zhidao接导出Excel的功能，就日常使用来讲，将Access中的表、查询这两种对象导出Excel文件比较常见。

首先打开Access，找到你想要导出的表或者查询（两种对象的导出方法完全一样）

单击右键，选择导出Excel表

然后根据对话框提示，选择导出的路径

如果系回统有如下提示，表示已经成功导出

最后，可以去事先设定好的路径下查看导出的文件答

至此，Access导出Excel文件工作全部完成。

要看数据格式，导出的不知道

但是可以做到数据一对一的导出

需要修改你百的导出度命令格式，最重知要的道就是输内出格式。容
"Microsoft Excel (*.xlsx)"=> acFormatXLSX

DoCmd.OutputTo acOutputForm, "frmExport", acFormatXLSX, "C:\TEMP\Export.XLSx", True
或
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "MyQueryName", "C:\MYxlsxFileName", True
参考：
http://www.access-programmers.co.uk/forums/showthread.php?t=154537