<em>VBA</em>按照A列，重命名B列文件名怎么操作？-excel vba name,vb

下面的代码接着你的4行：
a = a & c
b = b & c
if dir(a)="" then
msgbox "不存在"
else
name a as b
msgbox "已移动"
end if

以下复代码能满足你的制要百求：

Sub A666()
Dim sr$, n%, pa$
pa = "D:\生成专用度Esone\"
sr = Dir(pa)
Do While sr <> ""
   Name pa & sr As pa & Replace(sr, "-SM-", "-MS-")
   sr = Dir
Loop
End Sub

关于1,不知道你说的文件夹处于打开状态是指什么？
通常为文件夹重命名，知提示错误有两个原因：
1）源文件夹里的文件被打开或者道程序文件已经运行。
2）源文件夹不存在，或者目标文件夹已经存在。
可以使用ERR对象进行判断，代码如下：
Private Sub Command1_Click()
Dim Y As String
Dim M As String
Y = "C:\A"
M = "C:\B"
On Error GoTo MyErrNum1
Name Y As M
MsgBox "重命名成功！"
Exit Sub
MyErrNum1:
If Err.Number = 75 Then
MsgBox "文件夹“" & Y & "”中有文件被打开版或运行！"
ElseIf Err.Number = 53 Then
MsgBox "文件夹“" & Y & "”不存在！ 或者文件夹“" & M & "”已经存在！"
End If
Err.Clear
End Sub
关于权2，可以使用搜索进程的方法，判断程序是否启动，启动了几个，还可以关闭该进程。
关于3，不了解有这个命令？

不同路径下是移动并重命名，同一路径下只能重命名，这一点在帮助文件中，已经说的很清楚。
以下是帮助文件复制过来的：
Name 语句
重新命名一个文件、目录、或文件夹。
语法
Name oldpathname As newpathname
Name 语句的语法具有以下几个部分：
部分 描述
oldpathname
必要参数。字符串zd表达式，指定已存在的文件名和位置，可以包含目录或文件夹、以及驱动器。
newpathname
必要参数。字符串表达式，指定新的文件名和位置，可以包含目录或文件夹、以及驱动器。而由
newpathname 所指定的文件名不能存在。
说明回
Name 语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要，Name 可跨驱动器移动文件。 但当 newpathname 和
oldpathname 都在相同的驱动器中时答，只能重新命名已经存在的目录或文件夹。 Name 不能创建新文件、目录或文件夹。
在一个已打开的文件上使用 Name，将会产生错误。必须在改变名称之前，先关闭打开的文件。Name 参数不能包括多字符 (*) 和单字符 (?)
的统配符。