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

最新推荐文章于 2022-10-27 16:38:22 发布
最新推荐文章于 2022-10-27 16:38:22 发布
阅读量2.4k 收藏 1
点赞数
文章标签： excel vb 工作 microsoft application powerpoint
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/pangdola/article/details/2409702
版权

最新更新主题

月度关注热点

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

字体: 小 中 大 | 打印 发表于: 2008-4-04 10:55    作者: 游动    来源: 编程博客

请教高手:怎样在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>
pangdola
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB调用Matlab在WEDM仿真系统中的应用
01-19
VB是Windows操作系统下的可视化编程工具软件，在用户界面设计和快速开发等方面具有独特的优势。同时，Matlab仿真软件以其强大的科学计算功能和开放式开发思想使其成为当前为流行的仿真计算工具。综合两种开发环境...
VB开发——在VB应用程序中调用Excel2000对象之基本操作篇
autofei的专栏
01-27 3246
      一、Excel对象模型　　为了在VB应用程序中调用Excel，必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构，所提供的对象很多，其中最重要的对象，即涉及VB调用Excel最可能用到的对象有：　　二、调用Excel　　在VB应用程序中调用Excel，实质是将Excel作为一个外部对象来引用，由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关
全面控制 Excel 003
vince的专栏
03-28 1104
全面控制 Excel首先创建 Excel 对象，使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application1) 显示当前窗口：ExcelID.Visible := True;2) 更改 Excel 标题栏：ExcelID.Caption := 应用程序调用 Microsoft Excel;3) 添加
VBA学习14_Application
pigerr的博客
10-27 387
Application: 代表Excel应用本身Application.ActiveWorkBook : 当前活动工作簿Application.ActiveSheet : 显示当前活动工作表Application.DisplayAlerts: 是否显示Excel警告框Application.Quit: 退出Excel。
vb调用excel方法大全
孤独剑 的专栏
11-08 1万+
 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。    因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。    第一层：Application对象，即Excel本身；    第二层：wo
关于VBA中Evaluate的用法
LinJing_2020的博客
04-02 8964
Evaluate用法：将字符串转换为值或对象。 举例说明： 一、将字符串公式转换为一个值 在VBA中，双引号之间为字符串。（字符串在单元格中靠左显示，数值则靠右显示） 下图中给A1单元格赋值为1+2+3，这是一个字符串 通过用Evaluate方法，将同样一个字符串赋值给B1单元格，B1显示为6，转换成了一个值。 二、将字符串转换成对象 下图中先给A1单元格赋值为一，用于对比B1和...
VB编程在Excel中的应用.rar_VB编程在Excel中的应用
09-23
想了解VB编程在Excel中的应用吗，快来看看吧
用-VB-导入Excel-中的数据.rar_导入excel_用 VB 导入Excel 中的数据
09-21
用 VB 导入Excel 中的数据，或将 VB　中算出的数据导入Excel （附图
VB中调用Excel生成图表[总结].pdf
10-12
VB中调用Excel生成图表[总结].pdf
VB中调用Excel生成图表[参照].pdf
10-20
VB中调用Excel生成图表[参照].pdf
基于VB.NET的Windows应用程序设计
12-28
课程简介 本课程介绍使用VB.NET开发Windows应用程序所需的知识和技能 预备知识 掌握基本的VB.NET语法 掌握数据库的基本知识 掌握面向对象的编程思想 能够使用Visual Studio.NET图形化界面开发环境 课时：108 课时 分为两部分 讲课部分：36 课时，课堂教学 实践部分：72 课时，课程实验 培养目标 　　通过本课程的学习，学生可以具备掌握使用VB.NET实现Windows应用程序的开发，并且为后续系列课程的专业化学习奠定基础。 目录 第1章 Windows窗体介绍 第2章 使用控件 第3章 构建控件 第4章 在Windows窗体应用程序中使用数据 第5章 与托管对象进行互操作 第6章 Windows窗体应用程序中的报表和打印 第7章 异步编程 第8章 增强应用程序的可用性 第9章 部署Windows窗体应用程序 第10章 Windows窗体应用程序的安全性 参考资料 互联网资源 http://msdn.microsoft.com/vstudio/ 可参考书籍 Windows Forms 高级编程    ISBN： 7-302-05521-1/TP.3248 MSDN 和 TechNet MSDN 站点上包含了大量可供开发人员使用的文档、代码和技巧： http://msdn.microsoft.com/ TechNet 站点上包括了 IT 专业人员在规划、部署、运行、维护和管理时参看和使用的文档、指南和技巧： http://www.microsoft.com/technet/
vb调用execl
retty资料库
08-25 2161
VB中用程序处理WORD和EXCEL的问题，我把我的经验在这里描述一下，希望对大家有帮助。关于在VB中对WORD或EXCEL进行编程处理，一般可以通过录制新宏的方法获得WORD或EXCEL中的VBA代码，然后再将代码剪贴到VB程序中去，具体执行步骤用下面的EXCEL例子说明一下： 例：我们要在A1的地方输入"姓名"，B1的地方输入"工资"，然后A2输入张三，B2输入1000，。。。，最后在A5输入
VB.net：使用Visual Studio 2010中的VB.net语言工具箱DataGridView调用SQL数据库Database的表格文件
近期请国内外头部出版社可尽快私信博主！——心比天高，仗剑走天涯，保持热爱，奔赴向梦想！低调，谦虚，自律，反思，成长，还算是比较正能量的博主，公益免费传播……内心特别想在AI界做出一些可以推进历史进程影响力的东西(兴趣使然，有点小情怀，也有点使命感呀)…
01-24 1万+
VB.net：使用Visual Studio 2010中的VB.net语言工具箱DataGridView调用SQL数据库Database的表格文件。
VB6导出Excel - 引用“Microsoft Excel 16.0 Object Library”时找不到该引用-解决方法
热门推荐
liuxiaowei
08-12 1万+
机房查询上机记录-导出为Excel表 添加引用“Microsoft Excel 16.0 Object Library” 在可用的引用中没有找到该引用 一、单机浏览 二、找到Office安装文件夹，打开 三、找出Excel.EXE文件选中打开，可搜索找出 四、即可看到该引用，选中添加即可 ...
vb.net中不打开excel可以往里面写数据吗？
最新发布
05-29
可以的。您可以使用VB.NET中的OLEDB或ODBC等数据访问技术来操作Excel文件中的数据，而无需打开Excel应用程序。 下面是使用OLEDB访问Excel文件并写入数据的示例代码： ```vb.net Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\test.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES;""" Dim conn As New OleDbConnection(connString) conn.Open() Dim cmd As New OleDbCommand("INSERT INTO [Sheet1$] (Column1, Column2) VALUES ('Value1', 'Value2')", conn) cmd.ExecuteNonQuery() conn.Close() ``` 这段代码创建了一个OLEDB连接，并使用INSERT INTO语句向Excel文件的Sheet1工作表中插入一行数据。需要注意的是，Sheet1后面的$符号是必须的，用于指定工作表的名称。 您可以根据需要修改INSERT INTO语句，以便插入不同的数据。此外，您还可以使用SELECT语句从Excel文件中读取数据，并使用UPDATE语句更新数据等。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值