关于vba读取excel文件

最新推荐文章于 2024-10-06 20:52:25 发布

Love_ParadeLy

最新推荐文章于 2024-10-06 20:52:25 发布

阅读量5.3k

点赞数

分类专栏： vba

本文链接：https://blog.youkuaiyun.com/jay871023/article/details/50751397

版权

本文介绍了一段VBA代码，用于读取指定文件夹中的所有.xlsx文件。通过遍历文件数组，逐个打开工作簿，读取并处理第一行第一列的数据，然后关闭工作簿。该代码适用于文件夹内只有文件、无子文件夹的情况。用户还可以通过参数传递文件夹路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

关于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