VB 如何实现批量改名?

如果你单纯的就是改名的话，用下面的代码即可！用name语句就可以了！Private Sub Command1_Click() Dim i As Long For i = 68 To 178 Name App.Path & "\2012XDF(" & i & ").xls" As App.Path & "\2012XDF(" & i - 1 & ").xls" NextEnd Sub ...

如果你单纯的就是改名的话，用下面的代码即可！用name语句就可以了！Private Sub Command1_Click() Dim i As Long For i = 68 To 178 Name App.Path & "\2012XDF(" & i & ").xls" As App.Path & "\2012XDF(" & i - 1 & ").xls" NextEnd Sub ...

1、首先建立一个EXCEL表 其中第一个工作薄名称为照相顺序表 如下图 Sub 照片重命名()If MsgBox("程序将重命名与本工作薄同目录下的所有照片文件，确认这样做么？", vbYesNo) <> 6 Then Exit Sub End If Dim oldname As String '旧文件名变量oldname Dim newname As String '新文件名变量ne...

For i = 1 To 10 MkDir App.Path & "\" & i For j = 1 To 5 MkDir App.Path & "\" & i & "\" & j Next jNext i把程序所在文件夹的所有txt文件改名为1.txt、2.txt、3.txt...n.txt：d = Dir(App.Path & "\*.txt")n = 1Do Until d = "" If d ...

VBS文件实际是文本文件，只是以.vbs为扩展名。批量改名时，可在命令行使用rename命令，如：rename *.vbs *.txt。亦可编写批处理文件以备后用。VBS是VB语法的一部分，编写较为简便。示例代码如下：a = inputbox("输入a值")b = inputbox("输入b值")msgbox cint(a)+b 新建文本文件，将代码复制...

思路：用sql查询获取Excel中所有学号和姓名；把图片名称加载到数组；循环比对，根据比对结果决定是否改名

FileName = Dir("C:\temp\", vbReadOnly + vbHidden + vbSystem + vbNormal)Do While Not FileName = ""NewFileName = NUM(FileName)If NewFileName <> "" And Left(NewFileName, 1) <> "." Then Name "C:\temp\" & FileName As "c:\temp\" & NewFileName End If FileName...

要按你你说的那样的顺序其实等于无序，比较麻烦。电脑默认是有顺序的：如按字母、按数字等等。批量重命名（包括在原有文件名上统一加一个序号或数字或任意代码）倒是非常简单的。

VB改名可以用name方法 Name oldpathname As newpathname Name 语句的语法具有以下几个部分：oldpathname 必要参数。字符串表达式，指定已存在的文件名和位置，可以包含目录或文件夹、以及驱动器。newpathname 必要参数。字符串表达式，指定新的文件名和位置，可以包含目录或文件夹、以及驱动器。而由 new...

使用VB建立一个excel对象，循环打开批量的excel文件，提取B5单元格的值，然后退出，改名即可。