怎么把一堆名字放到excel表格表

1.怎么把一大堆文件夹名称转到excel表里

1、打开文件夹，然后复制文件夹路径。

2、复制文件夹路径后，打开浏览器，把路径粘贴到浏览器网址中。

3、回车就可以在浏览器中打开文件夹，选中文件夹名称复制。

4、然后打开Excel表格，点击鼠标右键选择粘贴。

5、点击粘贴后，就可以把文件名都转到Excel中了。

2.怎样把大量的excel所有表单名称显示在一张表中

试试：

Sub 导入工作表名（）

Application.ScreenUpdating = False '关闭屏幕刷新

Dim ss As Workbook

wj = ActiveWorkbook.Name '当前工作簿名称

With Application.FileDialog(msoFileDialogOpen) '打开对话框对象

.AllowMultiSelect = True '多选文件

If .Show = -1 Then '打开操作

MsgBox "被选定导入的文件共 " & .SelectedItems.Count & " 个 ！"， ， "导入数据"

For i = 1 To .SelectedItems.Count '从选定的第1个文件循环到选定的最后一个文件

Set ss = Workbooks.Open(.SelectedItems(i), , ReadOnly） '打开文件并赋值给变量ss

MC = ss.Name '打开的文件名称

GS = Workbooks(MC).Worksheets.Count '打开工作簿中的工作表个数

For j = 1 To GS

hs = Workbooks(wj).ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

Workbooks(wj).ActiveSheet.Cells(hs, 1) = Workbooks(MC).Sheets(j).Name

Next j

Workbooks(MC).Close SaveChanges:=False '关闭打开的工作簿文件

Next i

Else

MsgBox "没有指定打开的文件！"， ， "导入工作表名"

Exit Sub

End If

End With

Application.ScreenUpdating = True '屏幕刷新

End Sub

03版本测试通过！