(表格)vba如何打开一个文件夹下所有xls文件
来源:互联网 发布:淘宝女装排名 编辑:程序博客网 时间:2024/06/05 03:09
一、来源:http://zhidao.baidu.com/question/96911702.html
二、问题:vba如何打开一个文件夹下所有xls文件
比如有十个xls文件,要依次打开。
文件夹要指定路径c:/a
简单几行代码就行,谢谢
三、最佳答案
注意 c:/a 目录下的文件不要太多,免得死机
Sub 打开excel表格()
Dim myPath$, myFile$, AK As Workbook
Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动
myPath = "c:/a/" '把文件路径定义给变量
myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件
Do While myFile <> "" '当指定路径中有文件时进行循环
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
End If
myFile = Dir '找寻下一个*.xls文件
Loop
Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
End Sub
- (表格)vba如何打开一个文件夹下所有xls文件
- VBA中如何打开一个文件夹内的所有EXCEL文件?
- 打开文件夹下所有文件(递归)
- c++中 打开一个文件夹下的所有特定格式的文件(如JPG)
- java 如何递归遍历一个文件夹下的所有文件
- C#如何遍历出一个文件夹下的所有文件
- 每天学点linux--(用shell实现将一个文件夹下面的所有文件拷贝到另一个文件夹下/shell下如何重命名一个文件)
- 如何在DOS下打开一个文件夹
- 删除一个文件夹下的所有文件
- 取出一个文件夹下的所有文件
- 获取一个文件夹下的所有文件
- 读取一个文件夹下的所有文件
- 读取一个文件夹下的所有文件
- 找出一个文件夹下的所有文件
- 更新一个文件夹下所有的文件
- 获取某目录或文件夹下的所有.xls文件的名称
- 写出一个函数,能够遍历一个文件下的所有文件夹和子文件夹(新浪)
- VBA获取某文件夹下所有文件和子文件目录的文件
- 夜曲
- TULING第二十天
- 传智播客--进销存之自定义注解,数据字典和通用配置
- matlab优化应用
- RMQ问题的几种解决方案
- (表格)vba如何打开一个文件夹下所有xls文件
- Android模拟器使用参数详解
- c++问题
- C++内联函数与宏定义
- oracle 9i 在安装到Oracle Database Configuration assistant 的时候装不下去了,等了2个小时没有反应 失败
- 浏览器工作原理
- 网页发布到互联网尝试
- QTP测试.NET控件CheckedListBox
- MFC程序最小化到系统托盘