:用VBA后台打开工作簿的两种方式

来源：百度文库 编辑：九乡新闻网 时间：2024/05/03 10:09:06

  　　
　　第一种是新建一个Application对象，再用它打开文件。
   

Start = Timer
Set App = New Application
Set SourceBook = App.Workbooks.Open("C:\FileName.xls", 0, True)
Set SourceSheet = SourceBook.Worksheets("Sheet1")
SourceBook.Close False
Finish = Timer

MsgBox Finish - Start

 

　　第二种是利用当前的Application对象，通过设置其属性来达到隐藏新打开的工作簿的目的。
 

 

Start = Timer
Application.ScreenUpdating = False
Application.ShowWindowsInTaskbar = False
Set SourceBook = Workbooks.Open("C:\FileName.xls", 0, True)
Set SourceSheet = SourceBook.Worksheets("Sheet1")
SourceBook.Close False
Application.ShowWindowsInTaskbar = True
Application.ScreenUpdating = True
Finish = Timer

MsgBox Finish - Start
 

　　
　　以上均为实际使用代码，只有文件和变量名称作了修改。测试发现，打开一个5.6M的文件，第二种方式比第一种快0.3秒，少创建了一个Application对象的缘故吧。

 

   
用VBA后台打开工作簿的两种方式 在VBA代码中引用Excel工作表中单元格区域的方式小 使用 Excel 2003 工作表的 VBA Excel VBA之破解工作表/工作簿保护密码 excel－vba应用示例之创建新的工作簿 [原创]Excel VBA之破解工作表/工作簿保护密码_BeyondPC的技术BLOG_新123 不打开EXCEL文件的前提下读取数据的方法之一_VBA教程、excel VBA编程、VBA... 《经济担保的两种方式》 Response.Redirect 打开新窗口的两种方法 恢复文件的默认打开方式 交换机交换的工作方式 关于加快经济发展方式转变推进“两型社会”建设的决定〉重点工作部门分工方案》的通知 使用工作区一次打开多个Excel工作簿 Openlaszlo中发送自定义事件的两种方式 坍塌的两种方式：世贸大楼与德州扒鸡 新业务员做好销售的两种方式 两种主义，看温州追尾事件的处理方式 两种主义看温州追尾事件的处理方式 javabean和总结javabean的两种使用方式 新典范：用谈恋爱的方式找份好工作 工作之余的55种放松方式 工作之余的55种放松方式 常见文件打开方式 打开方式/选择程序