用DOS命令批量提取文件名
dir /a/b 指定目录路径 >输出目录路径\1.txt
如果输出路径为%ComputerName%.txt则命名为计算机名
新建文本文档在文本文档里输入：
dir *.* /a /b /s &
保存为 提取名字.bat
文件名字被提取到当前文件夹的1.txt里面了！也可以提取某类型的文件比如*.mp3 或者a*.mp3
参 数：
vba排序函数sort用法-1 每列仅显示一个文件或目录名称。
-a或--all 下所有文件和目录。
-A或--almost-all 显示所有文件和目录，但不显示现行目录和上层目录。
-b或--escape 显示脱离字符。
-B或--ignore-backups 忽略备份文件和目录。
-c 以更改时间排序，显示文件和目录。
-C 以又上至下，从左到右的直行方式显示文件和目录名称。
-d或--directory 显示目录名称而非其内容。
-D或--dired 用Emacs的模式产生文件和目录列表。
-f 此参数的效果和同时指定"aU"参数相同，并关闭"lst"参数的效果。
-F或--classify 在执行文件，目录，Socket，符号连接，管道名称后面，各自加上"*","/","=","@","|"号。
-g 次参数将忽略不予处理。
-G或--no-group 不显示组名称。
-h或--human-readable 用"K","M","G"来显示文件和目录的大小。
-H或--si 此参数的效果和指定"-h"参数类似，但计算单位是1000Bytes而非1024Bytes。
-i或--inode 显示文件和目录的inode编号。
-I<范本样式>或--ignore=<范本样式> 不显示符合范本样式的文件或目录名称。
-k或--kilobytes 此参数的效果和指定"block-size=1024"参数相同。
-l 使用详细格式列表。
-L或--dereference 如遇到性质为符号连接的文件或目录，直接列出该连接所指向的原始文件或目录。
-m 用","号区隔每个文件和目录的名称。
-n或--numeric-uid-gid 以用户识别码和组识别码替代其名称。
-N或--literal 直接列出文件和目录名称，包括控制字符。
-o 此参数的效果和指定"-l" 参数类似，但不列出组名称或识别码。
-p或--file-type 此参数的效果和指定"-F"参数类似，但不会在执行文件名称后面加上"*"号。
-q或--hide-control-chars 用"?"号取代控制字符，列出文件和目录名称。
-Q或--quote-name 把文件和目录名称以""号标示起来。
-r或--reverse 反向排序。
-R或--recursive 递归处理，将指定目录下的所有文件及子目录一并处理。
-s或--size 显示文件和目录的大小，以区块为单位。
-S 用文件和目录的大小排序。
-t 用文件和目录的更改时间排序。
-T<跳格字符>或--tabsize=<跳格字数> 设置跳格字符所对应的空白字符数。
-u 以最后存取时间排序，显示文件和目录。
-U 列出文件和目录名称时不予排序。
-v 文件和目录的名称列表以版本进行排序。
-w<每列字符数>或--width=<每列字符数> 设置每列的最大字符数。
-x 以从左到右，由上至下的横列方式显示文件和目录名称。
-X 以文件和目录的最后一个扩展名排序。
--block-size=<区块大小> 指定存放文件的区块大小。
--color=<列表格式> 培植文件和目录的列表格式。
--full-time 列出完整的日期与时间。
--help 在线帮助。
-
-indicator-style=<标注样式> 在文件和目录等名称后面加上标注，易于辨识该名称所属的类型。
--quoting-syte=<引号样式> 把文件和目录名称以指定的引号样式标示起来。
--show-control-chars 在文件和目录列表时，使用控制字符。
--sort=<排序方式> 配置文件和目录列表的排序方式。
--time=<时间戳记> 用指定的时间戳记取代更改时间。
--version 显示版本信息。
批量重命名
新建文本文档在文本文档里输入：
@for /f %%a in (A.txt) do @(
if exist %%a for /f %%b in (B.txt) do (
rename %%a %%b))
保存为 批量改名.bat
A.txt 是原来的文件名
B.txt 是修改后的文件名
一行对应一个名字不能有空格同时注意文件属性（如下例）
a.txt 内容（改名前）:
NBA直播录像1.3gp
NBA直播录像2.3gp
NBA直播录像3.3gp
NBA直播录像4.3gp
b.txt 内容（改名后）:
NBA直播录像第一场.3gp
NBA直播录像第二场.3gp
NBA直播录像第三场.3gp
NBA直播录像第四场.3gp
EXCEL中VB编程中如何提取文件名
已知D:\统计\目录下n个Excel文件,我现在想把这些文件的文件名提取出来,然后再逐个查这些文件名中有无"检"这个字,把没有该字的文件全部删除
这样的命令怎样写啊
多谢了,达人们!
做法：
我曾经做过一个书目管理程序，就是将自己硬盘、光盘的书目名称做成数据库进行管理，想看什么书的时候，可以更快查出来。
其中有引用文件名的语句，可能对你有帮助：
Dim str As String 'str用于存放文件的名称
Dim i As Integer
l = Forms![新增书目]![导入地址] '可以用窗体输入地址，如果地址固定，也可以自己直接赋值
str = Dir(l) '这里将字符串改为路径
Do While str <> ""
i = i + 1
文件名.Value = str '保存文件名
书名.Value = Trim(Left(str, InStrRev(str, ".", -1) - 1)) ’去掉扩展名，就是书名
DoCmd.GoToRecord , "读取子窗体", acNewRec
str = Dir '得到下一个文件名
Loop
以上为参考，请根据自己的文件名起名特点，自行用字符函数提取相关数据信息。
给你大致写个思路吧
定义你要导出的文件名为,路径为D:\
源文件为d:\file.csv
Public Function OpenWorkBook(path As String) As Excel.Workbook
Dim xls As Excel.Workbook
For Each xls In Excel.Application.Workbooks
If InStr(path, xls.Name) Then
Excel.Application.DisplayAlerts = False
xls.Close
Excel.Application.DisplayAlerts = True
Exit For
End If
Next
Excel.Application.DisplayAlerts = False
Set OpenWorkBook = Excel.Workbooks.Open(path)
Excel.Application.DisplayAlerts = True
End Function
Public Function change()
Dim templateBook As Excel.Workbook
Dim templateFilePath As String
Dim SavePath as String
Dim fileName as String
Dim row AS Long
dim R1 AS Long
dim tempStr as String
templateFilePath = "d:\file.csv"
Set templateBook = OpenWorkBook(templateFilePath)
R1 = templateBook Sheets(1).UsedRange.Rows.Count
SavePath = "D:\"
fileName = ""
Open SavePath & fileName For Output As #1
For row = 1 To R1
if templateBook Sheets(1).cells（row,1）.value = "北京" then
tempStr = "bj"
endif
if templateBook Sheets(1).cells（row,3）.value = "神州行" then
tempStr = tempStr + "|shenzhouxing"
endif
.....
Print #1,tempStr
Next
Close #1 参考资料：百度一下
t+F11打开编辑器），拷贝到工作簿中。
把你要处理的文件拷贝到d:\ 名称路径必须一致。
然后，在excel工具-》宏中执行选择enzyme1这个程序运行，就可以把你的文件处理了。
如何用VBA 从TXT文件中提取相关数据输入excel表格？
我的TXT文件结构如下
P0*******1987456
C0000000024835410020101103002018000020101102
C0000000034824360020101102002018000020101101
T0000000040000000000000000000000000000000000
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论