批量打开同一文件夹中带密码的excel文件，并分别简单调整格式

gjytm

请问如何通过VBA编码，能够分别批量打开同一文件夹中带密码的excel文件，并分别简单调整格式。非常感谢



Sub 批量格式调整专用()
        Set rrr = CreateObject("scripting.filesystemobject")
        Set r = rrr.getfolder("C:\Users\28377\Desktop\批量工资条VBA研究\求助-相关文档")
        For Each i In r.Files
              Workbooks.Open Filename:=("C:\Users\28377\Desktop\批量工资条VBA研究\求助-相关文档\" + i.Name + "")  ‘这句好像也有问题
              '不知道怎么输入密码打开文件
              Columns("A:E").Select  '选择列，范围需要根据实际情况调整
              Selection.ColumnWidth = 11.63  '所有选择的列调整宽度，数值自行调整，请提前测试合适的宽度'
              Rows("1:2").Select  '选择前两行
              With Selection  
                     .HorizontalAlignment = xlCenter  '居中
                     .VerticalAlignment = xlCenter  '居中
                     .WrapText = True    '自动换行
              End With  
              Range("A1:E2").Select  '选择区域，手动根据实际情况自行调整
              Selection.Borders.LineStyle = 1  '所选区域边框线实线
              ActiveWindow.Close savechanges:=ture
        Next
End Sub


附：
以下是我用宏反推的，经过测试单独文件测试是可以的，但是我不知道如何合并。
Sub 独立格式调整专用()
'独立运作成功，但是整合到上一个失败，未能全自动
    Columns("A:E").Select  '选择列，范围需要根据实际情况调整
    Selection.ColumnWidth = 11.63  '所有选择的列调整宽度，数值自行调整，请提前测试合适的宽度'
    Rows("1:2").Select  '选择前两行
    With Selection  '
        .HorizontalAlignment = xlCenter  '居中
        .VerticalAlignment = xlCenter  '居中
        .WrapText = True    '自动换行
    End With  '
    Range("A1:E2").Select  '选择区域，手动根据实际情况自行调整
    Selection.Borders.LineStyle = 1  '所选区域边框线实线
End Sub

opel-wong

Application.Workbooks.Open(文件完整路径, , , "123")

123，就是密码

gjytm

opel-wong 发表于 2019-9-8 18:50
Application.Workbooks.Open(文件完整路径, , , "123")

123，就是密码

每个文件密码都是不一样的，但是在excel文件中有对应的数据

opel-wong

gjytm 发表于 2019-9-8 18:53
每个文件密码都是不一样的，但是在excel文件中有对应的数据

这个，我不是已经在有个贴中，给你写了吗，格式也做了处理。

gjytm

opel-wong 发表于 2019-9-8 19:06
这个，我不是已经在有个贴中，给你写了吗，格式也做了处理。

谢谢，那可能是最后的回复我没收到，莫非在审核？

opel-wong

gjytm 发表于 2019-9-8 19:10
谢谢，那可能是最后的回复我没收到，莫非在审核？

有空我再看看

gjytm

opel-wong 发表于 2019-9-8 19:26
有空我再看看

谢谢了，我认真研究了您第二个版本，基本解决了我自己的需求，谢谢