vba如何打开一个文件夹下所有xls文件

比如有十个xls文件,要依次打开。文件夹要指定路径c:/a简单几行代码就行,谢谢... 比如有十个xls文件,要依次打开。
文件夹要指定路径c:/a
简单几行代码就行,谢谢
展开
 我来答
hank2611
推荐于2017-11-27 · TA获得超过238个赞
知道小有建树答主
回答量:257
采纳率:0%
帮助的人:95.6万
展开全部
注意 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
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式