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

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中第一列中？

smupsu

http://club.excelhome.net/thread-54395-1-1.html

【用函数取得指定文件夹下的文件目录并建立链接】  

aoe1981

经典的对话，人物个性千年不变啊……这个“为师”也够巧妙的啊……

wlc5201130

也提供个方法.

zhaoyafei19

用脚本实现的，哈哈

ywdelasckjd

太牛了，你

ywdelasckjd

这个已经超出EH的范围了，撸主好牛

ywdelasckjd

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

确实不错的VBA

verac

dos批处理啊