VB批量修改excel文件名答:Sub 批量命名0()Application.ScreenUpdating = False Dim i&, j&, m, n, l$, k, s, path, oname, nname, fs, t Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = True '允许多选 .Show '打开文件对话框 ' 获取文件名称 For i = 1 ...