关于vba读取excel文件

关于vba读取文件夹中的xlxs文件，如下代码就可以实现

//下面这段代码只适合文件夹中只有文件而没有其他文件夹的情况

Sub OpenCloseArray()  '把文件夹中的文件看成一个数组，遍历数组即可

    Dim MyFile As String

    Dim Arr(100) As String

    Dim count As Integer

    Dim result As Integer

    

    MyFile = Dir("D:\copyxls\" & "*.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:\copyxls\" & Arr(i)

            MsgBox Cells(1, 1)

            result = result + Cells(1, 1)

            

            

        ActiveWorkbook.Close savechanges = True

    Next

    MsgBox result

End Sub

文件夹的路径可以以参数的形式进行传入