楼主
kevinchengcw |
Q: 打开一个工作簿时需要更新对另一工作簿的引用数据，而另一个工作簿有密码，有什么办法可以自动完成更新，不需要手动输入密码？
A: 可以在workbook_open事件中加入带密码打开文件的命令，并完成数据更新工作，附示例文件。
代码如下：- Private Sub Workbook_Open()
- Application.ScreenUpdating = False
- Dim str As String
- Dim WB
- m = 3
- For n = 2 To 5
- str = ThisWorkbook.Path & "\" & n & ".xls"
- Set WB = Workbooks.Open(str, , True, , "123") '关键语句，打开带密码工作簿
- Worksheets("sheet1").Cells(m, 1) = WB.Worksheets("sheet1").Cells.Find("姓名").Offset(1, 0) '因相应工作簿中内容格式不统一，采用查找的方式定位数据
- Worksheets("sheet1").Cells(m, 2) = WB.Worksheets("sheet1").Cells.Find("年龄").Offset(1, 0)
- Worksheets("sheet1").Cells(m, 3) = WB.Worksheets("sheet1").Cells.Find("性别").Offset(1, 0)
- m = m + 1
- WB.Close savechanges:=False
- Set WB = Nothing
- Next n
- ThisWorkbook.Activate
- Application.ScreenUpdating = True
- MsgBox "数据更新完毕"
- End Sub
附: workbooks.open 用法帮助
免责声明 有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一 |