【漫话西游1】——快速提取文件夹内文件名

看见星光

有人说讲故事太啰嗦，那咱就这样玩喽。
不爱看图的，也可以来看动画：http://club.excelhome.net/thread-1148161-1-1.html

毕释理

这什么原理啊，竟然不用写VBA...

2001927f

跟EXCEL没什么关系呀。以前看过一个牛人利用函数，是可以将文件包内的文件名称提取到EXCEL表格内的。

2001927f

跟EXCEL没什么关系呀。以前看过一个牛人利用函数，是可以将文件包内的文件名称提取到EXCEL表格内的。

毕释理

DOS你也懂啊。。。

看见星光

毕释理 发表于 2014-9-4 13:56
DOS你也懂啊。。。

不懂啦，呵呵，跟一个朋友学的这一招，觉得蛮有用，就整理了一下。

kane027

下次改写聊斋了，呵呵

安然祥和

能不能把文件名直接导入到EXCEL工作表中，以便批量修改文件名。而不是从文本文件复制粘贴至EXCEL中

kane027

安然祥和 发表于 2014-9-4 15:32
能不能把文件名直接导入到EXCEL工作表中，以便批量修改文件名。而不是从文本文件复制粘贴至EXCEL中

1. Sub aa()
   
2. Dim s As String
   
3. [a1].CurrentRegion.Clear
   
4. s = Dir(ThisWorkbook.Path & "\*." & Range("f1"))
   
5. Do While s <> ""
   
6. [a1] = "档案名称"
   
7. [a65536].End(xlUp).Offset(1, 0) = s
   
8. s = Dir()
   
9. Loop
   
10.     Columns("A:A").Select
    
11.     Selection.Replace What:=".*", Replacement:="", LookAt:=xlPart, _
    
12.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    
13.         ReplaceFormat:=False
    
14.     Range("E9").Select
    
15.     ActiveWorkbook.Save
    
16. End Sub

复制代码

安然祥和

kane027 发表于 2014-9-4 16:06

我的意思能否能用楼主的方法，导入到EXCEL中第一列中？