如何将多个文件夹下的文件名导入excel
dir历遍
Sub 取工作簿名到单元格()
Dim mypath$, myfile$, i As Long, j As Long, wb As Workbook
Application.ScreenUpdating = False
mypath = "F:\A股日数据\A股" '路径
myfile = Dir(mypath & "\*.xls")
ThisWorkbook.Sheets
(1).Range("a:b").Clear
Columns("A:A").Select 'A列选择
Selection.NumberFormatLocal = "@" 'A列格式设置为文本
Do While myfile <> ""
If myfile <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(mypath & "\" & myfile)
ThisWorkbook.Sheets
(1).Cells(i +
2, 1) = Left(wb.Sheets
(1).Range("a1"), 6)
ThisWorkbook.Sheets
(1).Cells(i +
2, 2) = Mid(wb.Sheets
(1).Range("a1"),
8, 4)
End If
myfile = Dir
i = i + 1
wb.Close False
Loop
Application.ScreenUpdating = True
End Sub
我也新手 自己做的给你个参考
如何批量提取文件名到excel表
如何批量提取文件名到EXCEL表中_百度经验 /article/fd8044facac2d75030137a4a.html
如何将文件夹中大量的文件名称导入台账excel
使用文件名提取器[单文件版]V2.0 绿色版类软件文件夹名字提取txt文件面再txt文件导入excel 步骤：
1、首先打excel选择数据选项卡自文本选项
2、弹资源管理器界面选择存放txt文件点击打按钮
3、弹文本导入向导由于我数字空格隔字符所我选择隔符号文本固定宽度选择第二点击步按钮
4、勾选空格检验预览数据否自预想致致继续点击步按钮
5、查看预览效并选择列数据格式处没特别要求建议选择规规excel默认格式点击完
6、弹框选要导入数据区域处我要导入前单元格并且a1单元格始我选择a1单元格余数据自单元格向两边张点击确定按钮
我数据算完美导入进
