vb Excel表。
来源:互联网 发布:网易popo for mac 编辑:程序博客网 时间:2024/05/22 15:52
'1、在VB中,建立一个FORM,在其上放置两个命令按钮,
'将Command1的Caption属性改为EXCEL,Command2的Caption属性改为End。
'然后在其中输入如下程序:
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:/temp/excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:/book.xls") '打开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
Private 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
'2、在D盘根目录上建立一个名为Temp的子目录,
'在Temp目录下建立一个名为"bb.xls"的EXCEL文件。
'3、在"bb.xls"中打开Visual Basic编辑器,
'在工程窗口中点鼠标键选择插入模块,在模块中输入入下程序存盘:
Sub auto_open()
Open "d:/temp/excel.bz" For Output As #1 '写标志文件
Close #1
End Sub
Sub auto_close()
Kill "d:/temp/excel.bz" '删除标志文件
End Sub
- vb Excel表。
- VB导出EXCEL表
- VB读取excel表数据
- vb.net 对excel表操作
- vb.net datagridview导出到excel表
- VB读取excel表中的数据
- VB操作EXCEL表的常用方法
- vB编程VB源码 VB读取EXCEL工作薄某个表中数据 ADODB.Recordset
- 數據庫從VB導入到Excel
- VB中使用EXCEL
- VB操作EXCEL
- VB 操作 EXCEL
- VB操作Excel
- vb.net 连接excel
- Excel的VB编程
- VB调用Excel打印
- vb操作EXCEL文件
- VB操作Excel大全
- C++变量命名规则
- MPlayer往Android上的移植(1)
- 如何察看Solaris系统的内存大小及使用情况
- 在Moblin上继续尝试安装GMA500的驱动Poulsbo
- 六十星系之03廉贞天府坐辰戌
- vb Excel表。
- 对日项目经验谈,转贴讨论贴
- Python读写ini文件
- 学习ORACLE 的入门 (一般流程)
- Linux crontab 命令格式与详细例子
- 接私活指南,摘抄于某讨论贴
- Intel GMA500显卡硬解码VAAPI
- 动态ActionFrom --DynaActionForm
- C#结构的使用