Dim b As New XLS.Book
Dim t As
Table = Tables("统计表")
Dim s As XLS.Sheet = b.Sheets(0)
Dim Chart As WinForm.Chart = Forms("窗口1").Controls("Chart1")
For c As
Integer = 0
To t.Cols.Count -1
'添加列标题
s(0, c).Value = t.Cols(c).Name
Next
For r As
Integer = 0
To t.Rows.Count - 1
'填入数据
For c As
Integer = 0
To t.Cols.Count -1
s(r +1,
c).Value = t.rows(r)(c)
Next
Next
'插入图表
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image,0,0,422,258)
b.Save("c:\reports\test.xls")
Dim Proc As New
Process
Proc.File = "c:\reports\test.xls"
Proc.Start()
看了帮助文件以上只是保存到固定路径上,如果声明一个 SaveFileDialog 用于指定路径和文件名,怎么改一下呀?怎么只保存了文件没有图插到表呢?
[此贴子已经被作者于2020/3/4 9:24:31编辑过]