求助：Vba遍历文件夹中的文件并给指定单元格赋值

Mr丶橙子

Sub OpenCloseArray()

Dim MyFile As String

Dim Arr(100) As String

Dim count As Integer

MyFile = Dir("d:\zcxiao\Desktop\132\" & "*.xlsx")

count = count + 1

Arr(count) = MyFile

    Do While MyFile <> ""

        MyFile = Dir

            If MyFile = "" Then

    Exit Do

            End If

count = count + 1

Arr(count) = MyFile '将文件的名字存在数组中

    Loop

        For i = 1 To count

            Workbooks.Open Filename:="d:\zcxiao\Desktop\132\" & Arr(i) '循环打开Excel文件

             Cells(1, 1) = "alex_bn_lee" '修改打开文件的内容(修改的不是我循环打开Excel文件的内容，变成了修改1222.xlsm的内容，我把这句改成Workbooks.(Arr(i)). Cells(1, 1) = "alex_bn_lee"这个格式可能是不对，正确的格式应该是怎样的？？？

            ActiveWorkbook.Close savechanges = True '关闭打开的文件

        Next

End Sub
手机不能传附件，请谅解。
求大神答疑！

Mr丶橙子

上面说的1222.xlsm就是这个文件

未忘初心

Workbooks(Arr(i)). sheets(1).Cells(1, 1) = "alex_bn_lee"

Mr丶橙子

未忘初心 发表于 2017-5-22 10:54
Workbooks(Arr(i)). sheets(1).Cells(1, 1) = "alex_bn_lee"

这样运行没有问题，但是最后我打开遍历的文件发现并没有赋值成功，我逐步运行了发现到赋值那一步都没问题，但是保存不上。

未忘初心

Workbooks(Arr(i)).Close 1

Mr丶橙子

未忘初心 发表于 2017-5-22 11:27
Workbooks(Arr(i)).Close 1

保存的时候会弹出隐私问题警告：此文件包含宏、...........并且这些信息不能通过文档检查器删除这样的窗口，有什么方法可以阻止这个窗口弹出吗？

未忘初心

1.   Application.DisplayAlerts = False
   
2.     '你的代码
   
3.     Application.DisplayAlerts = True

复制代码