我有一个带有许多选项卡的 excel 文件。所有选项卡都命名为:“pboro bz.csv”、“pboro fd.csv”、“pboro ha.csv”等。
我希望重命名所有这些“bz.csv”、“fd.csv”、“ha.csv”。
此外,根据另一个 VBA 导入的数据,选项卡名称可能有不同的前缀。因此,我在标题为“设置”的工作表中有一个单元格 (B8),其前缀是我希望删除的,在本例中为“pboro”
我正在尝试使用此代码:
Sub RemovePrefix()
Dim WS As Worksheet
Dim Val As String
Val = Setup.Range("B8").Value
Const Prefix As String = Val
For Each WS In Worksheets
If WS.Name Like Prefix & "*" Then WS.Name = Mid(WS.Name, Len(Prefix) + 1)
Next
End Sub
代码崩溃上线
Const Prefix As String = Val
出现错误“需要常量表达式”
我怀疑这是因为我将 Dim 与 Val 一起使用,然后将 Const 与 Prexif 一起使用。
但是,当我将代码调整为以下内容时:
Sub RemovePrefix()
Dim WS As Worksheet
Dim Val As String
Val = Setup.Range("B8").Value
For Each WS In Worksheets
If WS.Name Like Val & "*" Then WS.Name = Mid(WS.Name, Len(Val) + 1)
Next
End Sub
我收到与我的代码行相关的错误“需要对象”
Val = Setup.Range("B8").Value
我不确定我哪里出错了(作为一个相对的 VBA 菜鸟可能没有帮助)。
最佳答案
现在它崩溃了,因为你从未设置 Setup
作为工作表。
Dim setup as Worksheet
Set setup = Sheets("Setup")
应该做的伎俩。此外,它看起来像
Val
会改变,所以你不想将它设置为 Constant
.
关于VBA从excel选项卡名称中删除前缀,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35299511/