VB.NET如何在程序中动态创建EXECL文件_vbnet使用sql创建xlsx文件-优快云博客

本文链接：https://blog.youkuaiyun.com/wsg1106/article/details/2455733

本文介绍了一种使用VBScript动态创建Excel文件的方法。该方法通过连接Access数据库并利用ADO技术读取表数据，然后将这些数据写入新的Excel工作簿中进行保存。

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

动态创建EXCEL文件的方法，从http://support.microsoft.com/kb/306022 找的。

Public Function OutputToExcel_ADODB(ByVal mdbFile As String, ByVal sTable As String, ByVal xlsFile As String) As Boolean
        Dim conn As New ADODB.Connection()
        Dim rs As ADODB.Recordset
        conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile & ";")
        conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        rs = conn.Execute(sTable, , ADODB.CommandTypeEnum.adCmdTable)
        Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add
        oSheet = oBook.Worksheets(1)
        Dim n As Int32
        For n = 1 To rs.Fields.Count
            oSheet.Cells(1, n).Value = rs.Fields(n - 1).Name
        Next
        oSheet.Range("A2").CopyFromRecordset(rs)
        oBook.SaveAs(xlsFile)
        oSheet = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing
        GC.Collect()
        rs.Close()
        conn.Close()
        Return True
    End Function