如何解决从另一个工作簿重命名工作表时出现错误 9
Dim dbWb As Workbook
'the workbook is open I saw it
Set dbWb = Workbooks.Open("Data.xlsx")
Dim OldName As String
'the old name of the sheet is 1234567890
OldName = Activesheet.Range("A11")
'---HERE I have ERROR 9,the new name is 9876543210
dbWb.Sheets(OldName).Name = Activesheet.Range("G4")
你能告诉我我的错误是什么吗?
解决方法
首先我会检查工作表是否存在。
Dim dbWb As Workbook
Set dbWb = Workbooks.Open("Data.xlsx")
Dim OldName As String
OldName = ActiveSheet.Range("A11")
If Evaluate("ISREF('" & dbWb.Path & "\[" & dbWb.Name & "]" & OldName & "'!A1)") Then
dbWb.Sheets(OldName).Name = ActiveSheet.Range("G4")
Else
MsgBox "Sheet does not exist"
End If
如果您收到消息“工作表不存在”,则表明工作表不存在。如果您仍然遇到相同的错误,请在您的代码中更加具体:不要只使用 ActiveSheet
。而是使用 dbWb
或 ThisWorkbook
引用工作簿。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。