vba同文件夹下多个excel里面数字相加
发布网友
发布时间：2022-04-21 10:32
共1个回答
热心网友
时间：2023-07-17 03:16
如果一次的话，用以用CMD命令来列出文件目录，然后用公式读取里面的数据。
如果常常要这样操作的话，就需要用到VBA来处理了！追问经常做，本身工作就是数据处理的
追答Sub szhz()
Dim xlsFile As String , i As Long
Application.ScreenUpdating = False
xlsFile = Dir("D:\*.xls*")
On Error Resume Next
Do
Workbooks.Open Filename:="D:\" & xlsFile
i = i + ActiveWorkbook.ActiveSheet.[A1]
ActiveWindow.Close
xlsFile = Dir
Loop Until Len(xlsFile) = 0
Sheet1.[A3] = i
End Sub
