[已解决]请问下:如何将这些工作表名称统一放在EXCEL表里

ANYCALLe488 · 发表于 2010-2-10 12:52

请问下:如何将这些工作表名称统一放在EXCEL表里

如附件表格里的结果那样.谢谢.

请问下:如何将这些工作表名称统一放在EXCEL表里

[此贴子已经被作者于2010-2-10 12:53:39编辑过]

最佳答案

月排行榜 / 总排行榜

剪水

2010-2-10 13:11

附件解压后，放到要提取excel文件名的文件夹下

SegBYH4f.rar (7.05 KB, 下载次数: 0)

剪水 · 发表于 2010-2-10 13:11

附件解压后，放到要提取excel文件名的文件夹下

SegBYH4f.rar (7.05 KB, 下载次数: 0)

ANYCALLe488 · 发表于 2010-2-10 13:21

好用!!

谢谢你~~~~

[em10][em10]

shgxf520 · 发表于 2010-2-10 13:27

好方法，学习了

5feixiang · 发表于 2010-2-10 13:48

真强大啊

剪水 · 发表于 2010-2-10 14:55

QUOTE:

以下是引用ANYCALLe488在2010-2-10 13:21:00的发言：

好用!!

谢谢你~~~~

[em10][em10]

最佳又是偶的罗

喜多多 · 发表于 2010-2-10 16:12

Sub 列出所有文件名()
Dim xlsFile As String
xlsFile = Dir(ActiveWorkbook.Path & "\*.XLS")
Do
If InStr(1, xlsFile, ActiveWorkbook.Name) = 0 Then
Cells(([A65536].End(xlUp).Row + 1), 1) = xlsFile
End If
xlsFile = Dir
Loop Until Len(xlsFile) = 0
End Sub
*************由剪水同学代码进行小小修改的**************

		自动登录	找回密码
密码			注册