vb程序调用excel数据.doc

Visual Basic调用Excel之技巧吴声松 (湖北省水利水电勘测设计院地质大队 湖北 430070)Visual Basic(以下简称VB)是一套可视化、面向对象、事件驱动方式的结构化程序设计语言，已经成为许多程序设计者甚至专业程序员用来开发WINDOWS应用程序的首选开发工具。但用过VB的程序设计人员都知道，要想用VB输出复杂的表格来，是十分困难的。能不能用VB调用EXCEL呢？Active技术标准为我们解决了这个问题。最近笔者为单位开发“土工试验数据整理”的某个模块时，涉及到复杂数据表格的输出问题，经过笔者的摸索，用VB调用EXCEL，取得了很好的效果。本文从编程实践的角度对使用VB控制EXCEL的技术作简要说明。1 EXCEL的对象模型如果一个应用程序支持自动化技术，那么其它的应用就可以通过其暴露的对象，对它进行控制，控制程序称为客户机，而被控制的一方就称为服务器，被控制的对象就是Active对象。VB正是通过EXCEL显露的各级对象来控制EXCEL工作的。每个对象都有各自的方法和属性，通过方法可以实现对对象的控制，而属性则可以改变对象的各种状态。理解EXCEL的对象模型是对其编程的基础。EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素，这些对象元素就是VB可以操纵的。在EXCEL对象的层次结构中，最顶层是Application对象，是Excel本身。从该对象开始往下依次是：.workbooks对象集，是Application对象的下层，其指的是Excel的工作簿文件。.worksheets对象集，是Workbooks对象集的下层，它表示的是Excel的一个工作表。.Cells和Range对象，它们是worksheets对象的下层，它则指向Excel工作表中的一个或多个单元格。 以上介绍的四个对象是Excel中最重要也是用得最多的对象，而且从上面的介绍中也不难看出，要控制Excel中的某个具体对象，如某个工作簿中某一表格中的单元格，就必须从Excel层次结构对象的最上层即Application对象开始遍历。2 Excel对象的使用2.1 application对象的使用如前所述，Application对象位于Excel层次结构对象的最上层，它代表的是Excel自身，我们的应用程序理应从Application对象的建立开始。VB控制Excel的启动方式有几种，在这里我们使用了API调用，可以确保目前系统中只有一个Excel副本在运行，程序代码和说明如下：Option ExplicitPublic xlapp As ObjectExcel对象Public xlbook As Object工作簿Public xlsheet As Object工作表Declare Function FindWindow Lib user32 Alias _FindWindowA (ByVal lpClassName As String, _ByVal lpWindowName As Long) As LongDeclare Function SendMessage Lib user32 Alias SendMessageA _(ByVal hwnd As long,ByVal wMsg As Long, ByVal wParam As Long, lParam_ As Any) As_ Long 以上是公有变量和API函数应在模块中声明。 Sub GetExcel() Dim MyXL As Object 用于存放Microsoft Excel 引用的变量。 Dim ExcelWasNotRunning As Boolean 用于最后释放的标记。 On Error Resume Next 延迟错误捕获。 不带第一个参数调用 Getobject 函数将返回对该应用程序的实例的引用。 如果该应用程序不在运行，则会产生错误。 Set MyXL = GetObject(, Excel.Application) If Err.Number 0 Then ExcelWasNotRunning = True Err.Clear 如果发生错误则要清除 Err 对象。 检测 Microsoft Excel。如果 Microsoft Excel 在运行，则将其加入运行对象表。 DetectExcel 该过程检测并登记正在运行的 Excel 设置其 Application 属性，显示 Microsoft Excel。 然后使用 MyXL 对象引用的 Windows 集合,显示包含该文件的实际窗口。 MyXL.Application.Visible = True MyXL.Parent.Windows(1).Visible = True 如果在启动时，Microsoft Excel 的这份副本不在运行中， 则使用 Application 属性的 Quit 方法来关闭它。 注意，当试图退出 Microsoft Excel 时， 标题栏会闪烁，并显示一条消息询问是否保存所加载的文件。 If ExcelWasNotRunning = True Then MyXL.Application.Quit End If Set MyXL = Nothing 释放对该应用程序和电子数据表的引用。End Sub 该过程检测并登记正在运行的 Excel。Sub DetectExcel()Const WM_USER = 1024 Dim hwnd As Long如果 Excel 在运行，则该 API 调用将返回其句柄。 hwnd = FindWindow(XLMAIN, 0) If hwnd = 0 Then 0 表示没有 Excel 在运行。 Exit Sub Else Excel 在运行，因此可以使用 SendMessage API函数将其放入运行对象表。 SendMessage hwnd, WM_USER + 18, 0, 0 End IfEnd Sub 有了Application对象，就可以非常方便地访问Excel应用程序中的其它对象，以及这此对象的属性和方法。 2.2 workbooks对象的使用 dim xlbook as object 定义一个指向工作簿变量set xlbook=xlapp.application.workbooks.add 使用ADD方法新建一个空白的工作簿。 2.3 worksheets对象的使用 dim xlsheet as object 定义一个指向工作表的变量set xlsheet=xlapp.application.workshets.add或者：set xlsheet=xlapp.application.worksheet(1) 指向当前工作簿的第一页2.4 Cells和Range对象的应用 引用一个工作表(xlsheet)中的某个单位格用以下代码： xlsheet.cells(I,j)=100 表示在第I行第J列中写入100这个数。 引用工作表中的多个单位格用以下代码： With xlsheet 设置边框为是实际上线.Range(.Cells(7,1),.Cells(28,29).Borders.LineStyle = xlContinuousEnd With3 应用实例该实例给出怎样运行Excel创建复杂表格以及向表格填充数据的完整过程。在开始应用程序前，我们要做的准备工作是建立一个我们所需格式的Excel模板。模板的作用相信大家都不会陌生。我所做的模板如下(模板文件取名为“土工试验成果表”)：模板可以存在指定的文件夹里，也可以在于Excel存放模板的文件夹里。打开VB编程环境，选择新建一标准工程。要想在VB中很好地调用Excel，首先必须打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel8.0 object library项。然后在窗体中加入一命令按钮，其caption属性为：Excel输出。即command1.caption= Excel输出。以下是代码，其中模块中的代码和上面介绍的application使用代码是一样的，不再列出。 Private Sub Command1_Click() Dim i, j As Integer Call GetExcel Set xlapp = GetObject(土工试验成果表.XLS) 打开模扳文件xlapp.Parent.Windows(1).Visible = True 使父窗体可见 Set xlsheet = xlapp.Application.Worksheets(1)当前工作簿的第一页 For i = 7 To 28这段代码是将整数1到29写入单位格中，实际应用时可 For j = 1 To 29读一数据文件并按要求写入表格中 xlsheet.Cells(i, j) = j 当前工作簿第一页的第I行第J列 Next j Next i With xlsheet 设置边框为是实线 .Range(.Cells(7, 1), .Cells(28, 29).Borders.LineStyle = xlContinuous End Withxlsheet.SaveAs d:tempw2.xls 按指定文件名存盘 引用当前工作簿的第二页 Set xlsheet = xlapp.Application.Worksheets(2) xlsheet.Cells(7, 2) = 789 在第二页的第7行第2列写入789 Set xlbook = xlapp.Application.Workbooks.Add 新建一空白工作簿End Sub参照上述代码，就可以随心所欲地发挥你的编程艺术了。其实你还可以让Excel在后台运行，甚至于直接在打印机上输出结果，认人感觉不到Excel在运行，是不是很方便？以上只是本人的一点心得，若有错误，不吝赐教。所以我写这一篇贴子，供大家参考，希望能给大家一定的帮助。Set xlApp = CreateObject(Excel.Application) 创建EXCEL对象Set xlBook = xlApp.Workbooks.Open(App.Path &文件名.xls) 打开已经存在的EXCEL工件簿文件xlApp.Visible = True 设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets(sheel1) 设置活动工作表，sheet1表示表名，可以使用字符型变量代替。xlSheet.Activate 激活工作表，让它处于前台活动中。xlBook.RunAutoMacros (xlAutoOpen) 运行自动开启宏Macro1()，在EXCEL中加入以下宏Sub auto_open() 这是VBA中的自动打开时运行的宏 您要宏自动运行的程序，比如可以call其它的宏，这样VB在打开EXCEL时，使用上面的语句就可以先运行这个宏End SubxlSheet.Cells.Item(行数,列数) =值 给EXCEL对象中的表的单元格附值。xlSheet.Rows(7:7).Select选定EXCEL表的第7行xlApp.Selection.Delete shift:=xlUp 删除选定的行xlSheet.Rows(7).Insert 在第7行处插入一行ActiveSheet.PageSetup.CenterHeader =页眉内容 给页眉附值 xlSheet.Range(f7:h7).Select选定f7:h7之间的单元格，下面的程序是把它们合并。 Application.CutCopyMode = False With xlApp.Selection.HorizontalAlignment = xlGeneral.VerticalAlignment = xlCenter.WrapText = False.Orientation = 0.AddIndent = False.IndentLevel = 0.ShrinkToFit = False.ReadingOrder = xlContext.MergeCells = True End With在VB应用程序中调用Excel2000 发表日期：2006-08-23作者：转贴 出处： 一、 Excel 对象模型 为了在VB应用程序中调用Excel，必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构，所提供的对象很多，其中最重要的对象，即涉及VB调用Excel最可能用到的对象有： 二、调用Excel 在VB应用程序中调用Excel，实质是将Excel作为一个外部对象来引用，由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。 1、在VB工程中添加对Excel类型库的引用 为了能从VB应用程序中访问Excel丰富的内部资源，使Excel应用程序运行得更快，需要在VB工程中添加对Excel类型库的引用。具体步骤如下： a）从VB5“工程”菜单中选择“引用”； b） 在“引用”对话框中选择Excel类型库：Microsoft Excel9.0 Object Library； c）单击左边小方框，使之出现“”符号； d）按“确定”退出。 注：要想在VB应用程序中调用Excel，你的计算机系统中必须安装Excel。 2、引用Application对象 Application对象是Excel对象模型的顶层，表示整个Excel应用程序。在VB应用程序中调用Excel，就是使用Application对象的属性、方法和事件。为此，首先要声明对象变量： Dim VBExcel As Object 或直接声明为Excel对象： Dim VBExcel As Excel.Application 在声明对象变量之后，可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。 a）用CreateObject函数生成新的对象引用： Set VBExcel=CreateObject (Excel.Application) 字符串“Excel.Application”是提供Excel应用程序的编程ID，这个变量引用Excel应用程序本身。 b）用GetO场ect函数打开已存在的对象引用： Set AppExcel=GetObject(SAMP.XLS) 上面语句打开文件SAMP.XLS。 3、Application对象常用的属性、方法 属性、方法 方法 Visible属性 取True或False，表明Excel应用程序是否可见。 Left,Top属性 Excel窗口的位置； Height, Width属性 Excel窗口的大小； WindowState属性 指定窗口的状态，取：XIMaximized(最大化)X1 Minimized(最小化)x1 Normal(缺省)。 Quit方法 退出Microsoft Excel； Calculate方法 重新计算所有打开的工作簿、工作表或单元格。 Evaluate方法 求值数学表达式并返回结果。 示例1：求值数学表达式： Dim VBExcel As Object Set VBExcel=CreateObject (Excel.Application) X=VBExcel. Evaluate (3+5*(cos (1/log (99. 9) 三、使用Excel应用程序 如前所述，在VB应用程序中调用Excel应用程序，就是使用Application对象的属性、方法和事件。下面分类给出其中常用的属性和方法。 1、使用工作薄 Workbook对象代表Excel应用程序中当前打开的一个工作簿，包含在Workbooks集合中。可以通过Workbooks集合或表示当前活动工作簿的Active Workbook对象访问Workbook对象。 常用的方法有： 属性、方法 意义 Add方法 创建新的空白工作簿，并将其添加到集合中。 Open方法 打开工作簿。 Activate方法 激活工作簿，使指定工作簿变为活动工作簿，以便作为Active Workbook对象使用。 Save方法 按当前路径和名称保存现有工作簿(如是首次保存，则将其保存到缺省名称中，如BOOK1.XLS)。 SaveAs方法 首次保存工作簿或用另一名称保存工作簿。 Close方法 关闭工作簿。 PrintOut方法 打印工作簿，语法为： PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate) 可选参数： From：打印的起始页号。如省略将从起始位置开始打印。 To：打印的终止页号。如省略将打印至最后一页。 Copies：要打印的份数。如省略将只打印一份。 Preview：如果为True则Excel打印指定对象之前进行打印预览。如果为False，或省略则立即打印该对象。 Printer：设置活动打印机的名称。 ToFile：如果为True则打印输出到文件。 Collate：如果为True则逐份打印每份副本。 下面语句将活动工作簿的2到5页打印3份： ActiveWorkbook.PrintOut From：=2 To 5 Copies：=3 示例2：生成、保存、关闭工作簿 Dim VBExcel As Excel.Application Set VBExcel= CreateObject(Excel.Application) With VBExcel .Workbooks.Add With ActiveWorkbook .Save AsC： Temp OUTPUT.XLS .Close End With .Quit End With 2、使用工作表 Sheets集合表示工作簿中所有的工作表。可以通过Sheets集合来访问、激活、增加、更名和删除工作表。一个Worksheet对象代表一个工作表。 常用的属性、方法有： 属性、方法 意义 Worksheets属性 返回Sheets集合。 Name属性 工作表更名。 Add方法 创建新工作表并将其添加到工作簿中。 Select方法 选择工作表。 Copy方法 复制工作表。 Move方法 将指定工作表移到工作簿的另一位置。 Delete方法 删除指定工作表。 PrintOut方法 打印工作表。 示例3：将C盘工作簿中的工作表复制到A盘工作簿中： Dim VBExcel As Excel.Application Set VBExcel=CreateObject(Excel.Application) With VBExcel .Workbooks.Open C：TempOUTPUT.XLS .Workbooks.OpenA：OUTPUT1.XLS .Workbooks(OUTPUT.XLS).Sheets (Sales).Copy .Workbooks(OUTPUT1.XLS) .Workbooks(OUTPUT1.XLS).Save .Workbooks(OUTPUT.XLS).Close .Workbooks(OUTPUTI.XLS).Close .Quit End With 3、使用单元范围 Range对象代表工作表的某一单元格、某一行、某一列、某一选定区域或者某一三维区域。 常用的属性、方法有： 属性、方法 意义 Range属性 Range (arg)其中arg为A1-样式符号，表示单个单元格或单元格区域。 Cells属性 Cells (row, col )(其中row为行号，col为列号)表示单个单元格。 ColumnWidth属性 指定区域中所有列的列宽。 Rowl3eight属性 指定区域中所有行的行宽。 Value属性 指定区域中所有单元格的值(缺省属性)。 Formula属性 指定单元格的公式，由A1-样式引用。 Select方法 选择范围。 Copy方法 将范围的内容复制到剪贴板。 C1earContents方法 清除范围的内容。 Delete方法 删除指定单元范围。4、使用图表 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 5、使用Excel工作表函数 在VB语句中可使用大部分的Excel工作表函数，可通过WorksheetFunction对象调用Excel工作表函数。下面的Sub过程用Min工作表函数求出指定区域中单元格的最小值，并通过消息框显示结果值。 Sub UseFunction() Dim myRange As Range Set myRange=Worksheets (Sheet1).Range(B2：F10) answer=Application.WorksheetFunction.Min(myRange) MsgBox answer End Sub 如果使用以区域引用为参数的工作表函数，必须指定一个Range对象。如可用Match工作表函数对A1：A10区域的所有单元格进行搜索。 Sub FindFirst() my Var=Application.WorksheetFunction.Match (9, Worksheets( 1).Range(A1：A10)，0) MsgBox myVar End Sub 要在单元格中插人工作表函数，可将该函数指定为对应于Range对象的Formula属性值。在以下示例中，将当前工作簿Sheetl内A1：B3区域的Formula属性指定为RAND工作表函数(此函数产生二个随机数)。 Sub InsertFormula() Worksheets (Sheet1 ).Range(A1：B3).Formula=RAND() End Sub 以上简要介绍了Excel对象模型中部分对象及其属性和方法，更详细的信息可参阅Excel 2000帮助中的“Microsoft Excel Visual Basic参考”一节的内容。实际上，Microsoft Office家族的Word,PowerPoint, Access和Project等应用程序都可以在VB应用程序中调用，其原理和步骤完全相同，只是其对象模型有所不同而已。二、调用Excel 在VB应用程序中调用Excel，实质是将Excel作为一个外部对象来引用，由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。 1、在VB工程中添加对Excel类型库的引用 为了能从VB应用程序中访问Excel丰富的内部资源，使Excel应用程序运行得更快，需要在VB工程中添加对Excel类型库的引用。具体步骤如下： a）从VB5“工程”菜单中选择“引用”； b） 在“引用”对话框中选择Excel类型库：Microsoft Excel9.0 Object Library； c）单击左边小方框，使之出现“”符号； d）按“确定”退出。 注：要想在VB应用程序中调用Excel，你的计算机系统中必须安装Excel。 2、引用Application对象 Application对象是Excel对象模型的顶层，表示整个Excel应用程序。在VB应用程序中调用Excel，就是使用Application对象的属性、方法和事件。为此，首先要声明对象变量： Dim VBExcel As Object 或直接声明为Excel对象： Dim VBExcel As Excel.Application 在声明对象变量之后，可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。 a）用CreateObject函数生成新的对象引用： Set VBExcel=CreateObject (Excel.Application) 字符串“Excel.Application”是提供Excel应用程序的编程ID，这个变量引用Excel应用程序本身。 b）用GetO场ect函数打开已存在的对象引用： Set AppExcel=GetObject(SAMP.XLS) 上面语句打开文件SAMP.XLS。 3、Application对象常用的属性、方法 属性、方法 方法 Visible属性 取True或False，表明Excel应用程序是否可见。 Left,Top属性 Excel窗口的位置； Height, Width属性 Excel窗口的大小； WindowState属性 指定窗口的状态，取：XIMaximized(最大化)X1 Minimized(最小化)x1 Normal(缺省)。 Quit方法 退出Microsoft Excel； Calculate方法 重新计算所有打开的工作簿、工作表或单元格。 Evaluate方法 求值数学表达式并返回结果。 示例1：求值数学表达式： Dim VBExcel As Object Set VBExcel=CreateObject (Excel.Application) X=VBExcel. Evaluate (3+5*(cos (1/log (99. 9) 三、使用Excel应用程序 如前所述，在VB应用程序中调用Excel应用程序，就是使用Application对象的属性、方法和事件。下面分类给出其中常用的属性和方法。 1、使用工作薄 Workbook对象代表Excel应用程序中当前打开的一个工作簿，包含在Workbooks集合中。可以通过Workbooks集合或表示当前活动工作簿的Active Workbook对象访问Workbook对象。 常用的方法有： 属性、方法 意义 Add方法 创建新的空白工作簿，并将其添加到集合中。 Open方法 打开工作簿。 Activate方法 激活工作簿，使指定工作簿变为活动工作簿，以便作为Active Workbook对象使用。 Save方法 按当前路径和名称保存现有工作簿(如是首次保存，则将其保存到缺省名称中，如BOOK1.XLS)。 SaveAs方法 首次保存工作簿或用另一名称保存工作簿。 Close方法 关闭工作簿。 PrintOut方法 打印工作簿，语法为： PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate) 可选参数： From：打印的起始页号。如省略将从起始位置开始打印。 To：打印的终止页号。如省略将打印至最后一页。 Copies：要打印的份数。如省略将只打印一份。 Preview：如果为True则Excel打印指定对象之前进行打印预览。如果为False，或省略则立即打印该对象。 Printer：设置活动打印机的名称。 ToFile：如果为True则打印输出到文件。 Collate：如果为True则逐份打印每份副本。 下面语句将活动工作簿的2到5页打印3份： ActiveWorkbook.PrintOut From：=2 To 5 Copies：=3 示例2：生成、保存、关闭工作簿 Dim VBExcel As Excel.Application Set VBExcel= CreateObject(Excel.Application) With VBExcel .Workbooks.Add With ActiveWorkbook .Save AsC： Temp OUTPUT.XLS .Close End With .Quit End With 2、使用工作表 Sheets集合表示工作簿中所有的工作表。可以通过Sheets集合来访问、激活、增加、更名和删除工作表。一个Worksheet对象代表一个工作表。 常用的属性、方法有： 属性、方法 意义 Worksheets属性 返回Sheets集合。 Name属性 工作表更名。 Add方法 创建新工作表并将其添加到工作簿中。 Select方法 选择工作表。 Copy方法 复制工作表。 Move方法 将指定工作表移到工作簿的另一位置。 Delete方法 删除指定工作表。 PrintOut方法 打印工作表。 示例3：将C盘工作簿中的工作表复制到A盘工作簿中： Dim VBExcel As Excel.Application Set VBExcel=CreateObject(Excel.Application) With VBExcel .Workbooks.Open C：TempOUTPUT.XLS .Workbooks.OpenA：OUTPUT1.XLS .Workbooks(OUTPUT.XLS).Sheets (Sales).Copy .Workbooks(OUTPUT1.XLS) .Workbooks(OUTPUT1.XLS).Save .Workbooks(OUTPUT.XLS).Close .Workbooks(OUTPUTI.XLS).Close .Quit End With 3、使用单元范围 Range对象代表工作表的某一单元格、某一行、某一列、某一选定区域或者某一三维区域。 常用的属性、方法有： 属性、方法 意义 Range属性 Range (arg)其中arg为A1-样式符号，表示单个单元格或单元格区域。 Cells属性 Cells (row, col )(其中row为行号，col为列号)表示单个单元格。 ColumnWidth属性 指定区域中所有列的列宽。 Rowl3eight属性 指定区域中所有行的行宽。 Value属性 指定区域中所有单元格的值(缺省属性)。 Formula属性 指定单元格的公式，由A1-样式引用。 Select方法 选择范围。 Copy方法 将范围的内容复制到剪贴板。 C1earContents方法 清除范围的内容。 Delete方法 删除指定单元范围。 4、使用图表 Chart对象代表工作簿中的图表。该图表既可为嵌人式图表(包含于ChartObject对象中)也可为分立的图表工作表。 常用方法有： 方法 意义 Add方法 新建图表工作表。返回Chart对象。 PrineOut方法 打印图表。 ChartWizard方法 修改给定图表的属性，其语法为： ChartWizard(Source, Gallery, Format, P1otBy, CategoryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle) 其中： Source：包含新图表的源数据的区域。如省略，将修改活动图表工作表或活