Java教程

VBA实战(9) - 工作簿(WorkBook)

本文主要是介绍VBA实战(9) - 工作簿(WorkBook),对大家解决编程问题具有一定的参考价值,需要的程序猿们随着小编来一起学习吧!

工作簿(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
这篇关于VBA实战(9) - 工作簿(WorkBook)的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!