[转载]怎样在VB 中调用Excel 2003 中的数据?

求助:怎样在VB 中调用Excel 2003 中的数据?

请教高手:怎样在VB 中调用Excel 2003 中的数据?
我也来说两句 查看全部回复

最新回复

  • 铁血船长 (2008-4-04 10:56:04)

      为了在VB应用程序中调用Excel,必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构,所提供的对象很多,其中最重要的对象,即涉及VB调用Excel最可能用到的对象有:




      二、调用Excel

      在VB应用程序中调用Excel,实质是将Excel作为一个外部对象来引用,由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。

      1、在VB工程中添加对Excel类型库的引用

      为了能从VB应用程序中访问Excel丰富的内部资源,使Excel应用程序运行得更快,需要在VB工程中添加对Excel类型库的引用。具体步骤如下:

      a)从vb6“工程”菜单中选择“引用”;

      b) 在“引用”对话框中选择Excel类型库:"Microsoft Excel9.0 Object Library";

      c)单击左边小方框,使之出现“√”符号;

      d)按“确定”退出。
  • 芊宇千寻点 (2008-4-04 10:57:04)

      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。
  • 天使之泪 (2008-4-04 10:58:04)

    属性、方法 方法
    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)))")
  • 随落天使 (2008-4-04 10:59:04)

      如前所述,在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 As"C: /Temp /OUTPUT.XLS"
    .Close
    End With
    .Quit
  • 袍哥人家 (2008-4-04 11:00:04)

      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:/Temp/OUTPUT.XLS"
     .Workbooks.Open"A:/OUTPUT1.XLS"
     .Workbooks("OUTPUT.XLS").Sheets ("Sales").Copy
     .Workbooks("OUTPUT1.XLS)
     .Workbooks("OUTPUT1.XLS").Save
     .Workbooks("OUTPUT.XLS").Close
     .Workbooks("OUTPUTI.XLS").Close
     .Quit
  • 我就是爱德 (2008-4-04 11:01:04)

      Range对象代表工作表的某一单元格、某一行、某一列、某一选定区域或者某一三维区域。

      常用的属性、方法有:

    属性、方法 意义
    Range属性 Range (arg)其中arg为A1--样式符号,表示单个单元格或单元格区域。
    Cells属性 Cells (row, col )(其中row为行号,col为列号)表示单个单元格。
  • 难忘樱花 (2008-4-04 11:02:04)

    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,则图表将具有图例。
  • 心雨 (2008-4-04 11:03:04)

      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应用程序中调用,其原理和步骤完全相同,只是其对象模型有所不同而已。
  • sky0 (2008-4-26 16:39:34)

    从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。表示在工程中要引用EXCEL类型库
    新建二个Command 一个为EXCEL  另一个为END,,打开EXCEL的表,,用VB连接EXCEL表


    Dim xlApp As Excel.Application '定义EXCEL类
    Dim xlBook As Excel.Workbook '定义工件簿类
    Dim xlsheet As Excel.Worksheet '定义工作表类
    ** Sub Command1_Click() '打开EXCEL过程
    If Dir("C:/Documents and Settings/Administrator/My Documents") = "" Then '判断EXCEL是否打开,,,,,,文件对应路径
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    xlApp.Visible = True '设置EXCEL可见
    Set xlBook = xlApp.Workbooks.Open("C:/Documents and Settings/Administrator/My Documents/图表") '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
    xlsheet.Activate '激活工作表
    xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
    Else
    MsgBox ("EXCEL已打开")
    End If
    End Sub

    ** Sub Command2_Click()
    If Dir("D:/temp/excel.bz") <> "" Then '由VB关闭EXCEL
    xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
    xlBook.Close (True) '关闭EXCEL工作簿
    xlApp.Quit '关闭EXCEL
    End If
    Set xlApp = Nothing '释放EXCEL对象
    End
    End Sub
<script language=javascript type=text/javascript> </script>
<script language="javascript"> </script><script language=javascript src="http://blog.zxbc.cn/batch.html.php?code=http%253a%252f%252fblog.zxbc.cn%252findex.php%253faction%252fviewthread%252ftid%252f50957%2f1210095458%2f3600%2f0%2f0%2fviewthread&lastmodified=1210095459000" type=text/javascript></script>
  • 0
    点赞
  • 0
    评论
  • 1
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值