码迷,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
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!