为什么这段VBA在外部调用和直接放在excel中效果不一样?

jsjcjsjc

1. Sub AddnewSheet2()
   
2.     Dim sheetName As String
   
3.     Dim newSheetName As String
   
4.     sheetName = ActiveSheet.Name
   
5.     newSheetName = sheetName & "结果"
   
6.     For Each sh In ThisWorkbook.Sheets
   
7.         If sh.Name = newSheetName Then
   
8.             MsgBox "已存在"
   
9.             Exit Sub
   
10.         End If
    
11.     Next
    
12.     Sheets.Add After:=ActiveSheet
    
13.     ActiveSheet.Name = newSheetName
    
14. End Sub
    

复制代码

其实就是新建sheet名,如果已经存在就提示.

但是这个代码当前excel下运行ok,但是放在外部excel就报错显示文件已存在哈~~
感谢

tanglf188

ThisWorkbook.Sheets指当前VBA代码所处的Workbook

jsjcjsjc

tanglf188 发表于 2023-5-16 17:56
ThisWorkbook.Sheets指当前VBA代码所处的Workbook

感谢,我去改成ActiveSheet.Name试试

WANT-T

jsjcjsjc 发表于 2023-5-16 20:07
感谢,我去改成ActiveSheet.Name试试

还会回来的

你地铁图

thisworkbook就不对

jsjcjsjc

WANT-T 发表于 2023-5-16 20:35
还会回来的

上次是说错了,改成ActiveWorkbook.Sheets就可以了,哈哈