怎么样导出到 Excel中?

petrelai

我想请问一下:在窗体上通过按钮来把该窗体上的数据表导出到Excel中?可不可以实现的?如何可以的话,又怎么实现的?谢谢!

zwmrp

在窗体建立命令按钮，进入代码生产器，添加如下命令，然后运行，根据提示，即将Acess导入Excel


Private Sub 命令按钮名_Click()
On Error GoTo Err_命令按钮名_Click

    Dim stDocName As String

    stDocName = "BBBBB"           '（此为需导出的Access表名称）
    DoCmd.OutputTo acReport, stDocName

Exit_命令按钮名_Click:
    Exit Sub

Err_命令按钮名_Click:
    MsgBox Err.Description
    Resume Exit_命令按钮名_Click

End Sub

petrelai

我把代码用上了,可到运行时,它会出这样的问题,请问我怎么解决?

sea.er

把你的文件传上来

petrelai

先谢谢楼上那位兄弟了,我已解决了!

wonsin

这是导出表中的所有记录，要是导出仅付合条件的记录又该怎么写呢？！谢谢！

sea.er

导出符合条件的查询

sfhlh

我要导入~~

zou8li14

docmd. TransferSpreadsheet也可用的