Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Set wsCopy = Workbooks(ThisWorkbook.Path).ActiveSheet <- error
Set wsDest = Workbooks("aa.xlsx").Worksheets("bb")
最佳答案
Set wsCopy = ThisWorkbook.ActiveSheet
ThisWorkbook.Path是工作簿的文件夹位置 - 您需要 Workbooks(ThisWorkbook.Name)如果你想走那条路(但你不需要……)
关于excel - 如何使用 ActiveSheet 变量？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/66452707/