Question

我是这些讨论区的新手，所以我希望我能正确地提出这个问题。我已经达到了创建文件路径列表的程度，这些路径都包含“潜在的”通配符文件。通常这个文件不存在所以我需要跳过这些，但其余的我需要打开所以我可以将内容复制到主文件。第一个问题：这是我创建的有效方法还是有更好的方法来创建这个列表/数组？如何立即获取此列表并仅打开“安装DebtSettlement *”＆amp; “.xlsx”文件？

Private Sub Folders()

Dim fl As Integer

    fl = 2
    Path = "\\MWRFnP01\shared$\MWR CC Employees\2013\Credit\Supervisor Special Projects\Debt Settlement\TO BE WORKED\"
    FirstDir = Dir(Path, vbDirectory)
    Do Until FirstDir = ""
      If (GetAttr(Path & FirstDir) And vbDirectory) = vbDirectory Then
        Sheets("Reference").Cells(ctr, 7).Value = Path & FirstDir
        fl = fl + 1
      End If
      FirstDir = Dir()
    Loop
    Call File_List

End Sub

Private Sub File_List()

Dim rCell As Range
Dim d As String
Dim rRng As Range
Dim lastRow As Long

    With Sheets("Reference")
        lastRow = .Cells(.Rows.Count, "G").End(xlUp).Row

    Set rRng = Range("G2:G" & lastRow)
    d = "\INSTALL DebtSettlement*" & ".xlsx"

    Sheets("Reference").Select
    Range("G2").Select
    For Each rCell In rRng.Cells
        If Right(rCell, 1) <> "." Then
            rCell = rCell & d
        End If
    Next rCell
    End With

End Sub

如何从我创建的文件路径列表中打开所有通配符文件？

0 个答案: