如何使用VB.NET将图片从SQL插入到EXCEL中

Dim connectionString As String = "Data Source=YourServerName;Initial Catalog=YourDatabaseName;User ID=YourUsername;Password=YourPassword"
Dim connection As New SqlConnection(connectionString)

connection.Open()
Dim query As String = "SELECT ImageData FROM YourTable WHERE Condition = YourCondition"
Dim command As New SqlCommand(query, connection)
Dim reader As SqlDataReader = command.ExecuteReader()

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

Dim row As Integer = 1
While reader.Read()
    Dim imageData As Byte() = DirectCast(reader("ImageData"), Byte())
    Dim picture As Excel.Shape = worksheet.Shapes.AddPicture(Nothing, False, True, 0, 0, 0, 0)
    picture.Fill.UserPicture(imageData)
    picture.Left = worksheet.Cells(row, 1).Left
    picture.Top = worksheet.Cells(row, 1).Top
    row += 1
End While

workbook.SaveAs("YourExcelFilePath")
workbook.Close()
excelApp.Quit()

Marshal.ReleaseComObject(worksheet)
Marshal.ReleaseComObject(workbook)
Marshal.ReleaseComObject(excelApp)