循环检查从一个文件到文件列表

时间:2015-10-23 14:48:53

标签: vba excel-vba excel

我一直在编写一个代码,打开E列中列出的文件列表,然后我做了一个循环来查看哪些工作正常。

但是,现在我需要在第一个循环中使用一个循环来检查每个打开的文件上是否有A列上的每个名字。我将衷心感谢您的帮助!感谢

Sub teste()
Dim myRng As Range
Dim myCell As Range
Workbooks("TIME_SHEET_MACRO").Activate
With Worksheets("Base de dados")
   Set myRng = .Range("E1", .Cells(.Rows.Count, "E").End(xlUp))
   For Each myCell In myRng.Cells
       If .Cells(myCell.Row, "E").Value <> "" Then
           Workbooks.Open (myCell)
           Workbooks("TIME_SHEET_MACRO").Activate
           Worksheets("Base de dados").Activate
      End If
   Next myCell
End With
End Sub

0 个答案:

没有答案