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 脱节。在编程时应注意加以防止出现出现这种情况。

posted on 2006-05-31 15:24 青蛙學堂 阅读(270) 评论(0)  编辑 收藏 引用 所属分类: 軟件布袋

只有注册用户登录后才能发表评论。
<2006年5月>
30123456
78910111213
14151617181920
21222324252627
28293031123
45678910

导航

统计

常用链接

留言簿(8)

随笔分类

随笔档案

收藏夹

青蛙学堂

最新评论

阅读排行榜

评论排行榜