当前位置: 网学 > 编程文档 > VB > 正文

VB操作Excel详解

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式
Dir("D:\temp\excel.bz") = "" Then ''判断EXCEL是否打开
  Set xlApp = CreateObject("Excel.Application") ''创建EXCEL应用类
  xlApp.Visible = True ''设置EXCEL可见
  Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.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

  4、运行VB程序,点击EXCEL按钮可以打开EXCEL系统,打开EXCEL系统后,VB程序和EXCEL分别属两个不同的应用系统,均可同时进行操作,由于系统加了判断,因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮,则会重新打开EXCEL。而无论EXCEL打开与否,通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。

 

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号