工作簿（workbook）汇总

打开一个文件

Set originalWb = Workbooks.Open(originalFileStr)

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

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

保存 Excel 文件

targetWb.Save

关闭 Excel 文件

targetWb.Close

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

targetWb.Close SaveChanges = False

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

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

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

Application.DisplayAlerts = False

关闭屏幕更新

Application.ScreenUpdating = False

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

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

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

v_has_open = False
For i = 1 To Workbooks.Count
    If Workbooks(i).FullName = targetFile Then
        Set originalWb = Workbooks(i)
        v_has_open = True
    End If
Next i
If v_has_open = False Then
    Set originalWb = Workbooks.Open(targetFile)
End If
originalWb.Activate