求助多个文件夹的命名问题

teidwe

在一个文件夹内有若干个文件夹，想用TXT或者DOC或者XLS文档里的字符，每行命名一个文件夹，应该怎么做？谢谢
比如：
2012-9-5 8:10沈EKS153
2012-9-5 8:17辽P59636
2012-9-5 8:23沈VJ2911
2012-9-5 8:27沈MC0505
2012-9-5 8:31沈G97908
2012-9-5 8:31沈V73798
2012-9-5 8:36沈E29637
2012-9-5 8:44沈VD2887
2012-9-5 8:50沈VE1699
2012-9-5 8:51沈MC2552
2012-9-5 9:05沈V51289
2012-9-5 9:35沈JC3557
2012-9-5 9:44沈HN5343
2012-9-5 10:07沈BD2492
2012-9-5 10:12沈G58656

lonelyarrow

网上有这样一个法子 你看看

1. Sub GetDt()
   
2.     Dim Fso, Fl
   
3.     Dim Arr, k%
   
4.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.     For Each Fl In Fso.getfolder(ThisWorkbook.Path & "").Files
   
6.         If Fl.Name <> ThisWorkbook.Name Then
   
7.             Workbooks.OpenText (Fl)
   
8.             With ActiveWorkbook
   
9.                 Arr = .ActiveSheet.Range("B1", .ActiveSheet.[B65536].End(3))
   
10.                 Arr(1, 1) = Split(ThisWorkbook.Path, "")(UBound(Split(ThisWorkbook.Path, ""))) & "-" &              Replace(Fl.Name, ".TXT", "")
    
11.                 .Close 0
    
12.             End With
    
13.                 [A65536].End(3)(2).Resize(1, UBound(Arr)) = Application.Transpose(Arr)
    
14.         End If
    
15.     Next
    
16. End Sub

复制代码

hohai

首先批处理可以…
其次操作的当用按键精灵也不错。
全部使用键盘操作，很容易构成一个循环……
Shift+↓（选中文本文件的一行），Ctrl+X；Alt+Tab（切换到文件夹页面“文件夹排序使用详细信息”）；F2，Ctrl+V，Enter，↓（下一个文件，详细信息文件排成一列）；Alt+Tab（最后两个窗体是文件夹和文本文档）。
回环完成，要求打开文件夹按照详细信息排序并选中第一个文件夹，打开文本文件，光标定位到第一行行首。
按键精灵模拟按键纯键盘操作比较容易理解实现实行，所以推荐！

hohai

KeyDown 16, 1
Delay 1000
KeyPress 40, 1
Delay 1000
KeyUp 16, 1
Delay 1000
KeyDown 17, 1
KeyPress 88, 1
KeyUp 17, 1
Delay 1000
KeyDown 18, 1
KeyPress "Tab", 1
KeyUp 18, 1
Delay 1000
KeyPress "F2", 1
Delay 1000
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 1000
KeyPress "Enter", 1
Delay 1000
KeyPress "Down", 1
Delay 1000
KeyDown 18, 1
KeyPress "Tab", 1
KeyUp 18, 1
Delay 1000

测试的问题，需要关闭NumLock数字锁定！！！
Delay 1000是延时秒，请自行修改

随便注册

新建还是改名？英文冒号不行，可以改成中文的，记事本保存成bat文件

用文本替换行首、行末即可，以此类推

1. MD "2012-9-5 8：10沈EKS153"

复制代码