ExportToExcel 函数
简介
将当前数据表视图中的数据导出到Excel。
语法
ExportToExcel([WorkbookName][, WorksheetName][, StartRange][, DataForm][, DisplayAfterExporting][,AppendWorksheet][, FileFormat]) As String
输入参数
| 参数名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| WorkbookName | 可选 | String | 工作簿名称（不含路径）。 |
| WorksheetName | 可选 | String | 工作表名称。 |
| StartRange | 可选 | String | 导出起始单元格地址。缺省时默认为 A1。 |
| DataForm | 可选 | Object | 要导出数据的绑定对象，可以是窗体（Form）或子窗体（Subform）。缺省时取当前焦点所在窗体。 |
| DisplayAfterExporting | 可选 | Boolean | 导出完成后是否立即显示。缺省时默认为 True。 |
| AppendWorksheet | 可选 | Boolean | 是否追加到已有工作簿。缺省时默认为 False。 |
| FileFormat | 可选 | ExcelFileFormat常量 | 工作簿文件格式。缺省时默认为 xlWorkbookNormal。 |
返回值
导出完成返回工作簿完整路径名，失败或取消导出返回空字符串("")。
说明
可以在导出后，用 GetObject 函数得到打开的 Excel.Application 对象，进行额外附加处理。
ExportToExcel 函数会在导出时调用 FormatExcelSheet 函数进行格式设置。
相关
示例
'简单的只是导出
ExportToExcel DataForm:=Me.sfrList
'导出后需要进行额外的处理时
Dim strFileName As String
strFileName = ExportToExcel(DataForm:=Me.sfrList)
Dim objExcelApp As Excel.Application
objExcelApp = GetObject(strFileName)
MsgBox "导出的 Excel 文件中B2单元格的值是：" & objExcelApp.ActiveSheet.Range("B2").Value
修订记录
2019-07-08 v2.5.0 修正 StartRange 参数无效的问题。