如何将VB里做的MSCHART图表导出到Excel里?在网上找了N天了,找不到办法,到底能不能导啊?问题解决,另开贴送分!!!!!

[半截烟头]

如何将VB里做的MSCHART图表导出到Excel里?在网上找了N天了,找不到办法,到底能不能导啊?问题解决,另开贴送分!!!!!

[winehero]

如下MSChart饼图数据导入到EXCEL中，并且在EXCEL中也生成饼图
---------------------------------------------------------------

Dim a, b
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlChart As Excel.Chart
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
a = UBound(Me.MSChart1.ChartData, 1) + 1
b = UBound(Me.MSChart1.ChartData, 2) + 1
xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(a, b)) = Me.MSChart1.ChartData

Set xlChart = xlBook.Charts.Add
With xlChart
.ChartType = xlPie
.SetSourceData Source:=xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(a, b)), PlotBy:=xlColumns
.Location Where:=xlLocationAsNewSheet
End With

[半截烟头]

感谢cuizm(射天狼)和 winehero(编程人生),我用二位的方法可以生成一些简单的图表,分数马上送上,不知哪儿有excel9.0 object的属性和方法的介绍啊,我想把图表生成的更漂亮一些.

[上官云峰]

其实你要将mschar的数据导入到excel中，无非是将数据集合插入到excel，
你可以先将mschar的数据集合得到，下面的问题不就ok了

[hpygzhx520]

应该导出数据源，然后在EXCEL中生成

[射天狼]

可以以我的网站上下载源码看看。

http://www.j2soft.cn/

VB资料->查询“在EXCEL中生成CHART统计图”；

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
http://j2soft.008.net/