指定读取文件下一行_Excel的自动读取文件下的所有xls文件

微信公众号： Excel and Python

微信名搜索: 实用办公编程技能

如何用Excel自动读取文件夹下的所有xls文件呢？

今天，晓白和大家一起来Get这项新技能！

这里主要使用的是Excel的VBA编程的文件操作，小伙伴们不要听到编程就被吓到了！毕竟，VBA脚本语言没有我们想象的那么难！

那么，怎么用Excel去实现呢？

下面，晓白就用Excel的VBA编程来给大家演示！

第一步：定义文件地址变量、文件名称变量和技术变量

主要是定义存放文件打开时获取的文件地址变量和文件名称变量。

Dim Mypath, MyName, count

第二步：使用WITH 语句创建文件打开对话框

主要是创建文件开对话框，并将选择的打开文件赋值给文件地址变量。

With Application.FileDialog(msoFileDialogFolderPicker)

.Show

If .SelectedItems.count = 0 Then Exit Sub

Mypath = .SelectedItems(1)

End With

第三步：清空A列内容，在A1写入“目录”

Sheets("sheet1").[a:a].ClearContents

Sheets("sheet1").[a1] = "目录"

第四步： 循环读出文件地址下的文件名

主要是使用Do…… While…… Loop循环读出文件地址下的文件名。

Do While MyName <> ""

count = count + 1

MyName = Dir

If MyName <> "." Then

If MyName <> ".." Then

If MyName <> "" Then

Sheets("sheet1").Cells(count, 1) = MyName

End If

End If

End If

Loop

第五步： 读取完成后输出提示信息

MsgBox "文件名读取成功！",vbSystemModal

以上就是用Excel实现自动读取文件夹下的所有xls文件的方法，下面给出具体的VBA代码供大家交流！

关注我们的公众号“实用办公编程技能”（微信号：Excel-Python），让我们的工作和生活变更更轻松。

往期文章：

1.Excel制作竞答倒计时器

2.用Excel倒计时还有多少天过年

3.用Excel做一个自动抽奖器

4.如何自己编写Excel函数并调用？

5.Excel玩转动态查找信息表

6.轻松搞定Excel的VBA编程

7.用Excel实现批量发送个性化邮件

8.玩转Excel的几个高频使用函数(七)

9.玩转Excel的几个高频使用函数(六)

10.玩转Excel的几个高频使用函数(五)

11.玩转Excel的几个高频使用函数(四)

12.玩转Excel的几个高频使用函数(三)

13.玩转Excel的几个高频使用函数(二)

14.玩转Excel的几个高频使用函数(一)