主题：Excel报表如何导出图片？

Dim cmd1 As New SQLCommand '定义一个SQL命令
Dim t1 As DataTable '定义一个数据表变量
cmd.CommandText =  "Select * From {表二} Where  零部件编号 like '" & Tables("表一").Current("任务单编号") & "-" & "%' "
t1 = cmd.ExecuteReader() '生成一个临时表

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet.DefaultColumnWidth = 100 '设置默认列宽    DefaultRowHeight
Sheet.DefaultRowHeight = 100        报表的行高不是我设定的默认行高？
Sheet(0, 0).Value ="零部件编号"
Sheet(0, 1).Value ="零部件名称"
Dim dates As List(of String) = t.GetValues("计划加工日期")
For c As Integer = 0 To Dates.count-1
    Sheet(0, c+2).Value = Dates(c).split(" ")(0)
Next
Dim strs As List(of String) = t.GetValues("零部件编号")
For i As Integer=0 To strs.count-1
    Sheet(i+1, 0).Value = strs(i)
Dim path As String = ProjectPath & "Attachments/" & t1.Find("零部件编号='" & strs(i) & "'")("图片")

    Sheet(i+1, 1).Value = New XLS.Picture(GetImage(path),1,1,100,80)
    For c As Integer = 0 To  Dates.count-1
        Dim drlist As List(of DataRow) = t.Select("零部件编号='" & strs(i) & "' and 计划加工日期=#" & Dates(c) & "#")
        If drlist.count>0 Then
            If drlist(0)("零部件编号")=strs(i) Then
                Dim ss As String=""
                For Each dr As DataRow In drlist
                    ss=ss & "," & dr("加工内容")
                Next
                Sheet(i+1, c+2).Value = ss.trim(",")
            End If
        End If
    Next
Next
'打开工作簿
Book.Save("c:\test.xls")
Dim Proc As New Process
Proc.File = "c:\test.xls"
Proc.Start()

Dim cmd1 As New SQLCommand '定义一个SQL命令
Dim t1 As DataTable '定义一个数据表变量
cmd.CommandText =  "Select * From {表二} Where  零部件编号 like '" & Tables("表一").Current("任务单编号") & "-" & "%' "
t1 = cmd.ExecuteReader() '生成一个临时表

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet.DefaultColumnWidth = 100 '设置默认列宽    DefaultRowHeight
Sheet.DefaultRowHeight = 100        '报表的行高不是我设定的默认行高?
sheet.Rows(0).Height = 100
Sheet(0, 0).Value ="零部件编号"
Sheet(0, 1).Value ="零部件名称"
Dim dates As List(of String) = t.GetValues("计划加工日期")
For c As Integer = 0 To Dates.count-1
    Sheet(0, c+2).Value = Dates(c).split(" ")(0)
Next
Dim strs As List(of String) = t.GetValues("零部件编号")
For i As Integer=0 To strs.count-1
    sheet.Rows(i+1).Height = 100
    Sheet(i+1, 0).Value = strs(i)
    Dim path As String = ProjectPath & "Attachments/" & t1.Find("零部件编号='" & strs(i) & "'")("图片")
   
   
    Sheet(i+1, 1).Value = New XLS.Picture(GetImage(path),1,1,100,80)
    For c As Integer = 0 To  Dates.count-1
        Dim drlist As List(of DataRow) = t.Select("零部件编号='" & strs(i) & "' and 计划加工日期=#" & Dates(c) & "#")
        If drlist.count>0 Then
            If drlist(0)("零部件编号")=strs(i) Then
                Dim ss As String=""
                For Each dr As DataRow In drlist
                    ss=ss & "," & dr("加工内容")
                Next
                Sheet(i+1, c+2).Value = ss.trim(",")
            End If
        End If
    Next
Next
'打开工作簿
Book.Save("c:\test.xls")
Dim Proc As New Process
Proc.File = "c:\test.xls"
Proc.Start()

Dim cmd1 As New SQLCommand '定义一个SQL命令
Dim t1 As DataTable '定义一个数据表变量
cmd.CommandText =  "Select * From {表二} Where  零部件编号 like '" & Tables("表一").Current("任务单编号") & "-" & "%' "
t1 = cmd.ExecuteReader() '生成一个临时表

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet.DefaultColumnWidth = 100 '设置默认列宽    DefaultRowHeight
Sheet.DefaultRowHeight = 100        '报表的行高不是我设定的默认行高?
sheet.Rows(0).Height = 100
Sheet(0, 0).Value ="零部件编号"
Sheet(0, 1).Value ="零部件名称"

Dim d_start As Date = Tables("表一").Current("计划开始日期")
Dim cs As Integer = 2
Do While d_start <= Tables("表一").Current("计划结束日期")
   
    If d_start.DayOfWeek = 0 Then
        Sheet(0, cs).Value = "周日"
    Else
        Sheet(0, cs).Value = d_start & " "
    End If
    cs += 1
    d_start = d_start.AddDays(1)
Loop