打开指定目录下的文件VBA

nnsea

Sub 打开指定目录下的文件()
Dim a$, n!, wbs As Workbook
a = Dir("c:\*.txt")
Workbooks.Open "c:\" & a
Do
    a = Dir
    If a <> "" Then
        Workbooks.Open "c:\" & a
    Else
        Exit Sub
    End If
Loop
End Sub