vb数据库导出到电子表格

Imports System.Data.SqlClient
Imports Microsoft.Office.Interop.Excel

Module Module1
    Sub Main()
        Dim connectionString As String = "YourConnectionStringHere"
        Dim sql As String = "SELECT * FROM YourTableName"

        Using connection As New SqlConnection(connectionString)
            connection.Open()
            Dim command As New SqlCommand(sql, connection)
            Dim reader As SqlDataReader = command.ExecuteReader()

            Dim excelApp As New Application()
            Dim workbook As Workbook = excelApp.Workbooks.Add()
            Dim worksheet As Worksheet = workbook.Sheets(1)

            Dim row As Integer = 1
            Dim col As Integer = 1

            While reader.Read()
                For i As Integer = 0 To reader.FieldCount - 1
                    worksheet.Cells(row, col) = reader(i).ToString()
                    col += 1
                Next
                row += 1
                col = 1
            End While

            reader.Close()

            workbook.SaveAs("C:\path\to\your\exported_file.xlsx")
            excelApp.Quit()
        End Using
    End Sub
End Module