[VB]使用ADOX创建Excel文件

最新推荐文章于 2014-04-11 09:37:05 发布

原创

最新推荐文章于 2014-04-11 09:37:05 发布 · 820 阅读

4 ·

CC 4.0 BY-SA版权

这篇博客详细介绍了如何利用Visual Basic（VB）配合ADOX库来创建和操作Excel文件，提供了一种在程序中生成Excel表格的解决方案。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'**************************************
' 函数名: SaveRecordsetAsExcelFile
' 功   能:这个示例主要演示怎样使用 ADOX把数据导入到Excel中去,使用ADO和 ADOX比较快速.
' 记住不要忘记在工程中引用 Microsoft ADO 2.8 和 ADOX 2.8 库
'**************************************

Public Function SaveRecordsetAsExcelFile(ByRef SourceRecordset As ADODB.Recordset, _
    ByVal ExcelFileName As String, _
    ByVal WorksheetName As String) As Boolean

    Dim cnnExcel As ADODB.Connection
    Dim catExcel As ADOX.Catalog
    Dim tblWorksheet As ADOX.Table
    Dim rstExcelData As ADODB.Recordset
    Dim fldColumnHeader As ADODB.Field
    Dim strWkshtName As String
    On Error Goto EH_SaveRecordsetAsExcelFile

&nbs