VBA实战(9) - 工作簿(WorkBook)
2022/1/5 23:04:25
本文主要是介绍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)的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!
- 2024-06-26结对编程到底难不难?答案在这里
- 2024-06-19《2023版Java工程师》课程升级公告
- 2024-06-15matplotlib作图不显示3D图,怎么办?
- 2024-06-1503-Loki 日志监控
- 2024-06-1504-让LLM理解知识 -Prompt
- 2024-06-05做软件测试需要懂代码吗?
- 2024-06-0514-ShardingSphere的分布式主键实现
- 2024-06-03为什么以及如何要进行架构设计权衡?
- 2024-05-31全网首发第二弹!软考2024年5月《软件设计师》真题+解析+答案!(11-20题)
- 2024-05-31全网首发!软考2024年5月《软件设计师》真题+解析+答案!(21-30题)