VB操作Excel

转载 2006年05月26日 12:50:00

vb操作Excel
*************一个标准的
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("d:/vbExcel.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
'xlSheet.Cells(Row, Col) = 值 '给单元格(row,col)赋值
xlSheet.Cells(5, 5) = "Neok"
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

**********************

启动 Excel
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True'设置EXCEL对象可见(或不可见)


创建有一个工作表的工作簿
Dim objWorkBook As Excel.WorkBook
objExcel.SheetsInNewWorkbook = 1
Set objWorkbook = objExcel.Workbooks.Add


打开已经存在的 EXCEL 工件簿文件
Set objWorkbook=objExcel.Workbooks.Open("文件名")


设置活动工作表
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("表名")

给单元格(row,col)赋值
objSheet.Cells(row, col) =值


给合并的单元格赋值,如(A3:A9)
objSheet.Range("A3:A9") =值


运行 EXCEL 宏
objWorkbook.RunAutoMacros ("宏名")

插入一行
objSheet.Rows("1:1").Insert Shift:=xlDown


保存 EXCEL 文件
objWorkbook.Save
另存为
objWorkbook.SaveAs("文件名")


关闭工作簿
objWorkbook.Close (True)


结束 EXCEL 对象
objExcel.Quit
如果要求在退出应用程序后EXCEL不提示用户是否保存已修改的
文件,则可使用如下语句:
objExcel.DisplayAlerts = False
objExcel.Quit
objExcel.DisplayAlerts = True

 

释放 objExcel 对象
Set objExcel = Nothing


注意: 在工程中运用 Excel 对象模型,必须引用 Excel Object Library
工程--> 引用 加入 Excel Object Library
在 VB 中操作 EXCEL 对象,如为可见,在操作中手式关闭 EXCEL
,而 VB 程序无法知道,如果此时使用 EXCEL 对象,则VB程序会产
生错误。形成 VB 程序无法完全控制 EXCEL 的状况,使得 VB 与
EXCEL 脱节。在编程时应注意加以防止出现出现这种情况。

【转】用VB操作Excel详解

用VB操作Excel详解 一、 VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: 1、在工程中引用MicrosoftExcel 类型库: 从"工程"菜单中选择"引...
  • shaoz
  • shaoz
  • 2011年08月11日 10:09
  • 4162

vb 操作excel(持续更新)

Private Sub Command1_Click()    Dim xlApp As Object '定义EXCEL类    'Dim xlApp As Excel.Application    ...

VB读写Excel

    最近用excel和VB比较多,就简单的学习了一下VB中对Excel的处理。今天就介绍一些吧。     在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中...

VB打开Excel文件

(1)vb打开Excel       用EXCEL对象读取EXCEL文件中数据.然后通过ADODB连接SQL进和导入     下面是EXCEL对象的详解 1 前言     做为一种简捷、...

VB操作EXCEL表的常用方法

VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报...
  • zhu2695
  • zhu2695
  • 2013年11月26日 09:22
  • 9951

VB全面控制Excel方法大汇总

VB全面控制Excel方法大汇总,共300个: 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as n...

VB操作EXCEL文件大全

Dim xlApp As New Excel.Application Dim xlBook As New Excel.Workbook Dim xlSheet As New Excel.Workshe...
  • laotou99
  • laotou99
  • 2013年10月23日 10:31
  • 17790

vb打开并重新保存EXCEL文件

使用以下代码可实现打开并重新保存EXCEL文件,从而解决从程序导出的EXCEL文件格式不能被ADO访问的问题,据实验,光是处理一个文件的话需要5秒钟左右,但若批量一起处理的话能缩短到1秒/文件左右. ...

vb调用excel对象的使用实例:使用excel.application与workbook等并保存工作薄

Private Sub Command1_Click()          Dim xlApp As Object     Set xlApp = CreateObject("Exc...

VB中对EXCEL的各种操作

全面控制 Excel 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Applica...
  • wzk456
  • wzk456
  • 2017年02月08日 15:20
  • 3022
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB操作Excel
举报原因:
原因补充:

(最多只允许输入30个字)