VBA用name oldname as newname的时候，遇到重名怎么办？

请问这个哪里出错了string s = oldname.Substring(oldname.Length-4,oldname.Length).ToString();~

substring 第一个参数是你想要截取字符的位置 ，后面是长度，例如
string s="abcdefg";s=s.Substring(s.Length-4,4)获取的就是后面4位字符，是defg
你如果是想获取字符串oldname后面四位字符串的话你可以这么写
string s = oldname.Substring(oldname.Length-4,4).ToString();

2015_9_1是变量还是固定量？
固定量已经没必要使用变量定义。
当然为了操作方便也可以自己定义。例如：
dim myDate as StringmyDate=2015_9_1

既然你想覆盖旧文件，那么可以这样：
首先判断文件是否存在。存在则用KILL先删除旧文件，再建新文件；不存在则执行如你所述的这条语句即可。

Application.DisplayAlerts = False '//关闭系统提示
Application.DisplayAlerts = True '//开启系统提示

---

陕县15560469827： VBA用name oldname as newname的时候,遇到重名怎么办? - ？
唱勇安乐： 既然你想覆盖旧文件,那么可以这样:首先判断文件是否存在.存在则用KILL先删除旧文件,再建新文件;不存在则执行如你所述的这条语句即可.

陕县15560469827： 求EXCEL VBA批量修改文件名的代码示例 - ？
唱勇安乐： 办公室有个批量更改照片的 占个位置 明天上班再贴 半夜懒重写了. 目标:为学员照相 导入电脑并批量修改为学号加姓名 1、首先建立一个EXCEL表 其中第一个工作薄名称为照相顺序表 如下图 Sub 照片重命名() If MsgBox(＂程序将重命名...

陕县15560469827： vba怎么切换已经打开的两个工作薄?工作薄名称是不定的. - ？
唱勇安乐： Excel中打开多个文档,在任务栏中应该对应多个窗口,但现在无论打开多少个文档,在任务栏中却只出现一个窗口.切换文档窗口很不方便. 解决办法如下: Excel2003: 在Excel里面的“工具”菜单上/“选项”/“视图”选项卡, “任务栏中的窗口”复选框前打上对勾即可. Excel2007: 想让每个独立的文档显示在一个独立的Excel窗口中, 可单击Office按钮,点Excel 选项按钮,切换到高级选项卡,在显示栏中选中“在任务栏中显示所有窗口”复选框,再点确定即可.

陕县15560469827： name语句的用法. VB 代码 - ？
唱勇安乐： name filename AS newfilename filename 和newfilename要求完整路径

陕县15560469827： EXCEL VBA 如何跨盘符移动文件夹 - ？
唱勇安乐： Name 语句 请参阅 示例 特性 重新命名一个文件、目录、或文件夹.语法 Name oldpathname As newpathname Name 语句的语法具有以下几个部分:部分 描述 oldpathname 必要参数.字符串表达式,指定已存在的文件名和位置,可以包含目录...

陕县15560469827： 如何用vb查找指定文件名的文件内容 - ？
唱勇安乐： 已经完成,请留下E _ M _ A _I L或者用下面内容1.建立一个窗体2.放置一个文本框,用于输入索引路径,文本框命名为txtDirPath3.放置一个按钮,用于开始索引,按钮命名为cmdSearch4.放置一个Label,用于显示索引进度,命名为lblState5.放置一个Command按钮,用于保存索引结果,命名为cmdSave

陕县15560469827： 请问用 vb 怎样重命名啊? - ？
唱勇安乐： Name 语句 重新命名一个文件、目录、或文件夹.语法 Name oldpathname As newpathname Name 语句的语法具有以下几个部分:部分 描述 oldpathname 必要参数.字符串表达式,指定已存在的文件名和位置,可以包含目录或文件夹、以及...

陕县15560469827： excel 批量重命名工作表的名称 - ？
唱勇安乐： Sub t()Set nameRange = Sheets(＂sheet1＂).UsedRangeFor Each r In nameRange.RowsDebug.Print r.AddressoldName = r.Cells(1)newName = r.Cells(2)Rename oldName, newNameNext End SubSub Rename(ByVal oldName As ...

陕县15560469827： excel vba中 Range names操作 - ？
唱勇安乐： 变量Nm 本身就只是一个Names集合中的元素 所以没有Nm.name For Each Nm In ActiveWorkbook.Names If Nm Like ＂*X_Tbl＂ Then '查找含X_Tbl的名称 OldValue = 0 For Each mycell In Range(Nm) If (mycell.Column = 21) Then '只能U列起作用 ...

陕县15560469827： 怎样修改下面的代码,在多个工作簿的文件名前面同时添加文件名的前缀25 - ？
唱勇安乐： Sub ChangeName() Dim strName As String strName =＂25＂ Dim FilePath As String FilePath = ThisWorkbook.Path & ＂\＂ Dim OldName As String Dim NewName As String Dim fileName As String fileName = Dir(FilePath) Do While ...