在工作中，有时想要通过VBA打开一份带密码的Excel文件，然后在文件内填入信息。窘谒樗缚假设目前有一份Excel文件，炉慕法埋密码是123，现在想要打开该文件，然后在A列数据的下一行添加日期。下面介绍如何通过VBA代码，进行任务的实现。
工具/原料
ThinkpadE470
Windows10家庭中文版21H1
offfice365
方法/步骤
1、在Excel文件中，同时按下组合按钮【alt+F11】，打开vba编辑器。
2、在编辑器窗口中，插入一个模块，然后在模块内输入如下代码。OptionExplic坡纠课柩itSubtest()刻八圄俏9;打开带密码的excel文件Dimxlapp1AsExcel.ApplicationDimxlbook1AsExcel.WorkbookDimxlsheet1AsExcel.WorksheetDimpathAsStringDimrow_finalAsStringpath="E:\工作\报告展示\测试文件_密码123.xlsm"IffileExist(path)ThenSetxlapp1=CreateObject("Excel.Application")Setxlbook1=xlapp1.Workbooks.Open(path,0,False,5,"123","123")Setxlsheet1=xlbook1.Worksheets(1)row_final=xlsheet1.Range("A65535").End(xlUp).Rowxlsheet1.Cells(row_final+1,1)="2021/11/7"'日期xlbook1.Closesavechanges:=Truexlapp1.Quit'关闭测试数据工作簿Setxlapp1=NothingMsgBox"Done!"ElseMsgBox"文件路径不存在："&path&vbCrLf&vbCrLf&"请确认！"EndIfEndSubFunctionfileExist(pathAsString)AsBoolean'判断指定路径的文件是否存在DimsNameAsStringsName=Dir(path)IfLen(sName)ThenfileExist=TrueElsefileExist=FalseEndIfEndFunction
3、运行上述的宏命令，就可以打开指定的带密码的Excel文件，并将日期添加到指定单元格内。
