- 请问如何批量修改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循环的结束数字就可以了,别的都不用动.