在工作中，有时想要通过VBA打开一份带密码的Excel文件，然后在文件内填入信息。假设目前有一份Excel文件，密码是123，现在想要打开该文件，然后在A列数据的下一行添加日期。下面介绍如何通过VBA代码，进行任务的实现。品牌型号：ThinkpadE470系统版本：Windows 10 家庭中文版21H1软件版本：offfice365方法/步骤1/3分步阅读

在Excel文件中，同时按下组合按钮【alt+F11】，打开vba编辑器。

2/3

在编辑器窗口中，插入一个模块，然后在模块内输入如下代码。

Option Explicit

Sub test()

打开带密码的excel文件

Dim xlapp1 As Excel.Application

Dim xlbook1 As Excel.Workbook

Dim xlsheet1 As Excel.Worksheet

Dim path As String

Dim row_final As String

path = E:\工作\报告展示\测试文件_密码123.xlsm

If fileExist(path) Then

Set xlapp1 = CreateObject(Excel.Application)

Set xlbook1 = xlapp1.Workbooks.Open(path, 0, False, 5, 123, 123)

Set xlsheet1 = xlbook1.Worksheets(1)

row_final = xlsheet1.Range(A65535).End(xlUp).Row

xlsheet1.Cells(row_final + 1, 1) = 2021/11/7 日期

xlbook1.Close savechanges:=True

xlapp1.Quit 关闭测试数据工作簿

Set xlapp1 = Nothing

MsgBox Done!

Else

MsgBox 文件路径不存在： path vbCrLf vbCrLf 请确认！

End If

End Sub

Function fileExist(path As String) As Boolean

判断指定路径的文件是否存在

Dim sName As String

sName = Dir(path)

If Len(sName) Then

fileExist = True

Else

fileExist = False

End If

End Function

3/3

运行上述的宏命令，就可以打开指定的带密码的Excel文件，并将日期添加到指定单元格内。

注意事项

大家可以根据自己的实际情况，对经验中的宏代码进行修改。

VBA