急，谁能告诉我如何编程实现将VB中的数据输出到EXCEL中并生成图表，并且能设置图表的各种参数

Question

谁能告诉我如何编程实现将VB中的数据输出到EXCEL中并生成图表，并且能设置图表的各种参数
比如图表的类型，坐标的刻度了什么的

Answer 1

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195441

Answer 2

使用图表    Chart对象代表工作簿中的图表。该图表既可为嵌人式图表(包含于ChartObject对象中)也可为分立的图表工作表。    常用方法有：方法 意义
 
Add方法 新建图表工作表。返回Chart对象。 
PrineOut方法 打印图表。 
ChartWizard方法 修改给定图表的属性，其语法为：
　
ChartWizard(Source, Gallery, Format, P1otBy, CategoryLabels,
SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle)　　其中：　　Source：包含新图表的源数据的区域。如省略，将修改活动图表工作表或活动工作表中处于选定状态的嵌人式图表。　　Gallery：图表类型。其值可为下列常量之一：xlArea, x1Bar, xlColumn, xlLine, x1Pie, xlRadar,x1XYScatter, xlCombination, x13DArea, x13DBar、x13DColumn, x13DLine, x13DPie、x13 DSurface、xlDoughnut或xlDefaultAutoFormat。　　Format：内置自动套用格式的编号。如省略，将选择默认值。　　P1otBy：指定系列中的数据是来自行(xlRows)还是列(xlColumns)。　　CategoryLabels：表示包含分类标志的源区域内行数或列数的整数。　　SeriesLabels：表示包含系列标志的源区域内行数或列数的整数。　　HasLegend：若指定True，则图表将具有图例。　　Title：图表标题文字。　　CategoryTitle：分类轴标题文字。　　ValueTitle：数值轴标题文字。　　ExtraTitle：三维图表的系列轴标题，或二维图表的第二数值轴标题。     可组合使用Add方法和ChartWizard方法，以创建包含工作表中数据的图表工作表。下例基于工作表“Sheetl”中单元格区域“A1：A20”中的数据生成新的折线图并打印。With Charts.Add
　.ChartWizard source：=Worksheets ("sheet1").Range ("a1：a20"),gallery：=xlLine, title：=“折线图表”
　.Printout
End With 

Answer 3

http://uiproject.udngroup.com.tw/ui/TechDocs/Office/Lessons/AnalyzePresentDataInExcel/AnalyzePresentDataInExcel.htm

Answer 4

很感谢，不过我试的时候怎么显示类chart的ChartWizard 方法无效呀，谁能帮帮我呀

Answer 5

Option Explicit
    Dim xlApp As Excel.Application '定义EXCEL类
    Dim xlBook As Excel.Workbook '定义工件簿类
    Dim xlsheet As Excel.Worksheet '定义工作表类'工程->引用Microsoft Excel x.0 Object Library
Private Sub Command1_Click()
Dim chNewChartObj As ChartObject
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    xlApp.Visible = True '设置EXCEL可见
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\Book2.xls") '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
    xlsheet.Activate '激活工作表
    
    Set chNewChartObj = ActiveSheet.ChartObjects.Add(Left:=100, Top:=200, Width:=250, Height:=200)
    chNewChartObj.Chart.ChartWizard Source:=Worksheets(1).Range("A1:E5"), gallery:=xl3DColumn, PlotBy:=xlColumns, _
    categorylabels:=True, seriesLabels:=True, _
    HasLegend:=True, Title:="1999 Sales", Categorytitle:="Regions"
End Sub

Answer 6

http://uiproject.udngroup.com.tw/ui/TechDocs/Office/Lessons/AnalyzePresentDataInExcel/AnalyzePresentDataInExcel.htm
以上连接间部分有示范的，你看看就会明白的。