主题：[求助]统计表导出并生成图表

t.SaveExcel(dlg.FileName, bb & "部分优生对照表") '保存文件

Dim b As New XLS.Book(dlg.FileName)
Dim s As XLS.Sheet = b.Sheets(bb & "部分优生对照表")
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image)
b.Save(dlg.FileName)