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("统计表").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:\Users\HP\Desktop\新建文件夹 (2)\test.xls")
Dim Proc As New Process
Proc.File = "C:\Users\HP\Desktop\新建文件夹 (2)\test.xls"
Proc.Start()
上面有两个问题：
1，导出图表太小，如附件图，如何解决？
2，("C:\Users\HP\Desktop\新建文件夹 (2)\test.xls")，这个路径，如何改更灵活，或象导出一样，可以打开对话框，由用户自定义
此主题相关图片如下：图表问题.jpg
加好友 
发短信
Post By：2020/5/26 16:12:00 [显示全部帖子]
