工作簿(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