分类：电脑/网络-软件-办公软件
问题：请问如何批量修改vba中包含本xls的名字?我要对一系列exce 
我要对一系列表进行宏操作.其中每一个在操作中需要切换表.在录入宏中vba代码中就有每一个表的名字的许多调用.如果不进行深一步处理的话.每次就需要在代码中替换表名来对此excel表进行操作.我想问一下能不能把表名当作变量或者参数来调用,这样,不用一次次的替换了.主要是这样的excel表太多了.
回答：你表述不太清楚,不知道你的目的要做什么,如果是希望把很多诸如21.xls\22.xls\23.xls这样的工作簿内容汇集到一个"编号.xls"的工作簿里的话,可以用下面的:Sub hz()Application.ScreenUpdating = FalseOn Error Resume NextFor i = 21 To 23    Workbooks.Open (ThisWorkbook.Path & "\" & i & ".xls")    ActiveSheet.Range("C3:D7").Copy Windows("编号.xls").ActiveSheet.[A65536].End(3).Offset(1)    ActiveWorkbook.Close savechanges:=FalseNextEnd Sub具体的见下面的附件,你把附件放到你存放21\22\23的文件夹里,然后点击一下按钮,就可以得到结果.当然如果你还有很多,工作簿只要修改FOR循环的结束数字就可以了,别的都不用动.