码迷，mamicode.com
首页 > 编程语言 > 详细

VBA学习笔记之工作簿

时间：2017-08-09 19:12:20      阅读：175      评论：0      收藏：0      [点我收藏+]

标签：save   str   第一个   tool   vba   选择   自动生成   csdn   而且   

Workbook工作簿的常用功能：

1. 新建工作簿

 
 
  1. Dim wb As Workbook  
  2. Application.SheetsInNewWorkbook = 1     ‘设置初始工作簿中的工作表数  
  3. Set wb = Application.WorkBooks.Add  
  4. wb.Worksheets(1).name = "表1"                ‘给第一个工作表设置名称  
  5. Application.SheetsInNewWorkbook = 3  


2.用Excel对话框打开Excel文件

 

 
 
  1. Dim fileInfo As String  
  2. fileInfo = Application.GetOpenFilename("Excel 工作簿(*.xlsx), *.xlsx")  
  3. MsgBox fileInfo  


如果用户选择了一个Excel文件，则fileInfo为该文件的全路径。若未选择，则fileInfo为False

 

3. 备份（另存为）Excel文件

 

 
  1. Dim wb As Workbook  
  2. Set wb = Application.WorkBooks(1)     ‘原文件名为vba.xlsx  
  3. wb.Activate  
  4. wb.SaveCopyAs wb.path & "\" & "Bak_" & wb.name    ‘备份文件名为Bak_vba.xlsx  


4. 用Excel对话框保存Excel文件

 

 
 
  1. Dim fileInfo As String  
  2. fileInfo = Application.GetSaveAsFilename("excelFile", "Excel 工作簿(*.xlsm),*.xlsm")  
  3. If Not fileInfo = "False" Then  
  4.     ActiveWorkbook.SaveAs Filename:=fileInfo  
  5. End If  
  6.     MsgBox "文件未保存"  
  7. Else  


5. 设置工作簿的大小（并非Excel窗口的大小）虽然使用的是Application的属性ActiveWindow，但该属性对应的却是一个Workbook窗口

 

 
 
  1. Dim win As Window  
  2. Dim winState As Long  
  3. Dim winWidth As Double  
  4. Dim winHeight As Double  
  5.   
  6. Set win = Application.ActiveWindow  
  7. win.Activate  
  8. With win  
  9.     .WindowState = xlMinimized           ‘最小化工作簿，但是Excel程序窗口没有最小化  
  10. End With  
  11. With win  
  12.     winState = .WindowState  
  13.     winWidth = .Width  
  14.     winHeight = .Height  
  15. End With  
  16.       
  17. Debug.Print "WinState: " & winState  
  18. Debug.Print "WinWidth: " & winWidth  
  19. Debug.Print "WinHeight: " & winHeight  


6. 冻结窗格。和上述一样依然使用Application.ActiveWindow来操作工作簿

 

 
 
  1. Dim win As Window  
  2. Set win = Application.ActiveWindow  
  3. With win  
  4.     .Split = True  
  5.     .SplitColumn = 1         ‘若设置为0，表示不冻结列  
  6.     .SplitRow = 3  
  7.     .FreezePanes = True     ‘如果不设置FreezePanes将会在工作表中出现粗分割线  
  8. End With  

 

7. 修改工作簿文件名

 
 
  1. Dim fileName As String  
  2. fileName = "C:\book.xlsx"           ‘文件不存在会报错  
  3. Name fileName As "C:\book1.xlsx"    ‘工作簿应处于关闭状态，而且路径应当一致  
  4. Debug.Print "Renamed OK!"  

 

Workbook主要事件：

Workbook事件比起之前的Application事件写起来方便些。我们直接使用ThisWorkbook对象的事件（也是一个Workbook对象）

如下图，双击ThisWorkbook，在右侧的代码区上方直接选择需要实现的事件，然后在自动生成的事件函数中编写代码

技术分享

1.BeforeClose事件

 
 
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)  
  2.     MsgBox "关不掉了"  
  3.     Cancel = True  
  4. End Sub  

该事件在关闭工作簿前触发

 

2.BeforeSave事件

 

 
  1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)  
  2.     If Not SaveAsUI Then  
  3.         MsgBox "保存不了了"  
  4.         Cancel = True  
  5.     End If  
  6. End Sub  


在单击保存按钮或者Ctrl+S时触发

 

3.WindowActive事件

  1. Private Sub Workbook_WindowActivate(ByVal Wn As Window)  
  2.     MsgBox "激活工作簿"  
  3.     Wn.width = 100  
  4. End Sub  

 

VBA学习笔记之工作簿

标签：save   str   第一个   tool   vba   选择   自动生成   csdn   而且   

原文地址：http://www.cnblogs.com/gilgamesh-hjb/p/7295197.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！