工作簿（workbook）汇总

打开一个文件

打开一个 Excel 文件的函数为Workbooks.Open.

Set originalWb = Workbooks.Open(originalFileStr)

如果文件是带用户名和密码时，可以使用如下函数。

Set originalWb = Workbooks.Open(originalFileStr, 0, True, "用户名", "密码")

保存 Excel 文件

保存 Excel 的关键字为 Workbook.Save

targetWb.Save

关闭 Excel 文件

关闭 Excel 的关键字为 Workbook.Close

targetWb.Close

如果关闭前没有报错，Excel 会提示要不要保存。如果你的流程既不想保存又不想弹出提示。可以用下面这段代码关闭。

targetWb.Close SaveChanges = False

当前宏文件的文件夹的路径

ThisWorkbook 对象为当前宏对象，可以通过 ThisWorkbook.Path 获取宏文件的路径。

templetFile = ThisWorkbook.Path & "\员工奖惩自动化处理-模板.xlsx"

禁止 Excel 的弹窗，避免执行中断

下面设置可以禁止 Excel 的警告和异常的弹窗。

Application.DisplayAlerts = False

关闭屏幕更新

下面设置可以避免频发修改过程中的 Excel 刷新。

Application.ScreenUpdating = False

获取当前已经被打开的文件

遍历所有已经打开的 Excel 文件。

For i = 1 To Workbooks.CountIf Workbooks(i).Name = cFile ThenMsgBox ("不能同时打开两个同名的文件，请检查并修改文件名！")Exit FunctionEnd If
Next i

文件如果已经打开了不在打开

v_has_open = False
For i = 1 To Workbooks.CountIf Workbooks(i).FullName = targetFile ThenSet originalWb = Workbooks(i)v_has_open = TrueEnd If
Next i
If v_has_open = False ThenSet originalWb = Workbooks.Open(targetFile)
End If
originalWb.Activate

VBA实战(09) - 工作簿（WorkBook）相关推荐

VBA基础，工作簿workbook相关的方法和属性
0 我觉得VBA和VB,VBS最大的区别就在A(application)上了所以application里的 workbook , worksheet range ,cell等应该是VBA语言的 ...
VBA实战(11) - 工作表(Sheet) 操作汇总
Sheet 操作汇总一.读取所有的 Sheet 页二.获取一个 Sheet 页中有效的行数和列数三.添加 Sheet 页四.删除 Sheet 页五.设置 Sheet 页的背景色六.分级 ...
VBA怎样关闭工作簿和退出Excel
要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法: 关闭活动工作簿,如果工作簿有更改,提示是否保存: Sub Close ...
工作簿(Workbook)基本操作应用示例(一)
工作簿(Workbook)基本操作应用示例(一) Workbook对象代表工作簿,而Workbooks集合则包含了当前所有的工作簿.下面对Workbook对象的重要的方法和属性以及其它一些可能涉及 ...
vba显示正在加载_利用VBA代码显示工作簿的路径及完全路径的方案及对工作薄的操作...
分享成果,随喜真能量.大家好,今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码,这些内容多是取至我的"VBA代码解决方案"教程中内容.NO.139- ...
VBA：获取工作簿中所有表的名称、地址
####一.目的一个工作簿中有很多的表,想提取所有表的名称和地址,方便后期公式的使用 ####二.方法 1. 使用VBA代码 Sub 提取所有工作表的名称()For Each x In Sheets ...
工作簿(Workbook)基本操作应用示例
Workbook对象代表工作簿,而Workbooks集合则包含了当前所有的工作簿.下面对Workbook对象的重要的方法和属性以及其它一些可能涉及到的方法和属性进行示例介绍,同时,后面的示例也深入介绍 ...
EXCEL VBA创建sheet/工作簿
1.需要创建以地市命名的系列sheet,但不想手动创建改名. 代码实现如下: Sub SheetAdd()Dim i As Long'定义一个长整型变量Sheets.Add After:=Sheets ...
Excel VBA合并不同工作簿所有工作表到一张工作表
命令从下面第一个Sub开始: Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As String ...

VBA实战(09) - 工作簿（WorkBook）