dynamic更改表格标题
我有几个.xls文件，他们的表名与他们的文件名相同。 由于工作表名称是用每个.xls文件更新的，所以我当前的代码不会dynamic更新。
有没有办法dynamic更新工作表名称，以便可以在所有的.xls文件中使用代码？
Range("A3:E4500").Select Charts.Add ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData Source:=Sheets("named").Range("A3:E4500"), _ PlotBy:=xlColumns “名字”将会dynamic变化。 我试图添加这个代码，但如果给出了错误消息。 WBname为每个工作表提供正确的名称，但“源”不喜欢string。
Dim WBname As String WBname = Replace(ActiveWorkbook.Name, ".xls", "") Application.ScreenUpdating = False Range("A3:E4500").Select Charts.Add ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData Source:=Sheets("WBname").Range("A3:E4500"), _ PlotBy:=xlColumns
WBname是一个variables。 在双引号里面，它变成了一个string。
尝试这个
更改
ActiveChart.SetSourceData Source:=Sheets("WBname").Range("A3:E4500"), _ PlotBy:=xlColumns
对此。
ActiveChart.SetSourceData Source:=Sheets(WBname).Range("A3:E4500"), _ PlotBy:=xlColumns