vb利用表格内容批量改名

在VB中，我们可以利用表格的内容来批量改变文件名。 首先，我们需要创建一个表格，其中包含原始文件名和新的文件名。表格的每一行都表示一个文件，并且第一列是原始文件名，第二列是新文件名。然后，我们可以使用VB中的循环来遍历表格的每一行。

在循环中，我们可以使用FileSystemObject对象来获取原始文件和目标文件的路径。然后，我们使用Rename方法来重命名文件。代码示例如下：

Dim fso As Object 'FileSystemObject对象
Dim ws As Worksheet '工作表对象
Dim srcPath As String '原始文件路径
Dim destPath As String '目标文件路径
Dim rowNum As Integer '行数变量

Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = ThisWorkbook.Sheets("Sheet1") '表格名称根据实际情况修改

rowNum = 2 '第一行为表头，所以从第二行开始

Do While Trim(ws.Cells(rowNum, 1).Value) <> ""
    srcPath = "原始文件路径" & "\" & Trim(ws.Cells(rowNum, 1).Value) '原始文件路径根据实际情况修改
    destPath = "目标文件路径" & "\" & Trim(ws.Cells(rowNum, 2).Value) '目标文件路径根据实际情况修改
    
    '判断原始文件是否存在
    If fso.FileExists(srcPath) Then
        '重命名文件
        fso.MoveFile srcPath, destPath
    End If
    
    rowNum = rowNum + 1
Loop

Set fso = Nothing
Set ws = Nothing

这段代码中，我们首先创建了FileSystemObject对象和Worksheet对象。然后，我们定义了原始文件路径和目标文件路径的字符串变量，并将其与表格中的值进行组合。接下来，我们使用FileExists方法来检查原始文件是否存在。最后，我们使用MoveFile方法来重命名文件。

以上就是利用VB中的表格内容批量改变文件名的基本步骤。根据实际需求，你可以根据上述代码进行修改和调整。