主题：[求助]鼠标点击一下后触发的事件（获取当前行的所有列）

写了一段代码，但是运行不成功

有没有大神帮个忙看一下

With Tables("表A")

Dim i As Integer
Dim j As Integer
Dim path As String
For i As Integer = .BottomPosition To .TopPosition("表A").rows(i).Step-1
For j = 0 To Tables("表A").cols.Count-1

path = "f:\ce shi wen jian jia1\" & Tables("表A").rows(i)("第一列") &"\"& Tables("表A").rows(i)("第二列")  &"\"& Tables("表A").rows(i)("第三列") &"\"& Tables("表A").rows(i)("第四列") &"\"& Tables("表A").rows(i)("第五列") &"\"& Tables("表A").rows(i)("第六列") &"\"& Tables("表A").rows(i)("第七列") &"\"& Tables("表A").rows(i)("第八列") &"\"& Tables("表A").rows(i)("第九列") &"\"& Tables("表A").rows(i)("第十列") &"\"& Tables("表A").rows(i)("第十一列") &"\"& Tables("表A").rows(i)("第十二列") &"\"& Tables("表A").rows(i)("第十三列") &"\"& Tables("表A").rows(i)("第十四列") &"\"& Tables("表A").rows(i)("第十五列") &"\"& Tables("表A").rows(i)("第十六列") &"\"& Tables("表A").rows(i)("第十七列") &"\"& Tables("表A").rows(i)("第十八列") &"\"& Tables("表A").rows(i)("第十九列") &"\"

Next
Next
End With

Output.Show(path)

这其实涉及到改变一行的某一列信息后同时改变与表格信息相对应的文件夹的名字（重命名问题）

鼠标点击后要先获取旧的文件夹路径，更改单元格内容后再获取新的文件夹路径

最后用 FileSys.RenameDirectory("C:\MyFolder", "YourFolder")重命名