使用Workbooks.Open方法,并设置ReadOnly参数为True来打开工作簿。 执行操作: 在只读模式下对工作簿进行所需的操作,如读取数据等。 关闭工作簿: 完成操作后,关闭工作簿。由于是以只读方式打开的,因此不需要保存更改。 以下是一个完整的代码示例: vba Sub OpenWorkbookReadOnly() Dim filePath As String Dim wb As...
1 Workbooks.Open 打开一个工作簿。 expression.Open(FileName,UpdateLinks,ReadOnly,Format,Password,WriteResPassword,IgnoreReadOnlyRecommended,Origin,Delimiter,Editable,Notify,Converter,AddToMru,Local,CorruptLoad) 编辑结束后,如果要关闭工作簿,可以使用Workbook.Close。 expression.Close(SaveChanges,FileName,RouteWork...
Sub a() Dim mypath As String Dim myfile As String mypath = "d:\123\" myfile = "a.xls" Workbooks.Open mypath & myfile, , TrueEnd Sub 在OPEN中的第三个参数。=TRUE表示，为只读方式打开。测试OK！Workbooks.Open (MyPath & MyFile,ReadOnly)
Sub testWBOpen1() Dim wb As Workbook Set wb = Workbooks.Open(Filename:="I:\09. Excel\01.解读Excel VBA\excelvbaSample.xlsm") End Sub 打开工作簿excelvbaSample.xlsm并将该工作簿赋值给变量wb。在代码中,可以直接使用对象变量wb来操...
Workbooks.Open "C:\Users\Dell\Desktop\myFile.xlsx", , , Password:="test123" Opening a Workbook as Read Only To open a workbook as read-only using VBA, you can utilize the “Workbooks.Open” method with the ReadOnly argument set to TRUE. This ensures that the workbook is opened in a...
插入一个新的模块，并在模块中输入以下代码：Sub openWorkbook2()Dim fname As StringMsgBox "将c盘中的<新建 Microsoft Excel 工作表.xls>工作簿以只读方式打开"fname = "C:\Users\john\Desktop\新建 Microsoft Excel 工作表.xlsx"Workbooks.Open Filename:=fname, ReadOnly:=TrueEnd Sub ...
通过VBA实现的功能:打开带密码的Excel文件,并在文件内填入信息。 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Option Explicit Subtest()'打开带密码的excel文件 Dim xlapp1 As Excel.Application Dim xlbook1 As Excel.Workbook Dim xlsheet1 As Excel.Worksheet ...
VBA默认错误处理是On Error GoTo0, 就是当出现问题时候, 显示错误. 按OK可直接退出 或者按debug进入VBE debug. 这样对用户当然是不大友好, 对码code的人又有点信息不足. 写自定义错误处理, 我们有两个常用选择: On ErrorGoTolabel/Line :有错误的时候跳到标签或者行 ...
在VBA程序中,我们经常会使用工作簿的一些属性,用来获取工作簿的基本信息,例如Name属性、FullName属性、Path属性、CodeName属性、FileFormat属性、ReadOnly属性、Saved属性,等等。下面我们就来分别介绍这些属性。 Name属性 返回工作簿的名称。其语法为: Workbook对象.Name ...
使用 VBA 代码 打开原始只读文件。按住键盘上的 Alt+F11 以打开 Visual Basic 编辑器。在项目资源管理器中，右键单击“ThisWorkbook”并选择“插入”。选择“模块”。在代码窗口中，输入以下代码：Sub RunReadOnlyMacro() ' 打开只读文件副本 Dim wb As Workbook Set wb = Workbooks.Open(C:\Path...