关于vba读取excel文件
发布时间
阅读量：
阅读量
关于vba读取文件夹中的xlxs文件，如下代码就可以实现
//下面这段代码只适合文件夹中只有文件而没有其他文件夹的情况
Sub OpenCloseArray() '该函数的作用是将文件夹中的所有文件视为一个数组，并对其进行遍历。
该函数被定义为OpenCloseArray的工作单元格。
MyFile被定义为一个字符串类型变量。
Arr被定义为一个长度为100的字符串数组。
count被定义为一个整数类型变量。
result被定义为另一个整数型变量。
MyFile = Dir("D:\copyxls" & "*.xlsx")
count = count + 1
Arr(count) = MyFile
重复执行以下步骤直到文件不存在：
- 将MyFile设置为目录路径
- 如果当前文件为空，则退出循环
- 增加计数器一次
- 将当前文件名存储到数组中
- 进入下一步循环
- 返回主程序
从i等于1开始一直到count进行循环。
打开Workbook文档，并命名为"\D:\copyxls"并将第i个元素导入到该Workbook中。
显示消息框提示信息："单元格（1, 2）中的内容"
将单元格（2, 3）的值累加到结果变量中
ActiveWorkbook.Close savechanges = True
Next
MsgBox result
End Sub
文件夹的路径可以以参数的形式进行传入
全部评论 (0)
还没有任何评论哟~