如何将一个excel.worksheet对象分配给我刚刚复制的工作表（全部在一起）

我正在创build一个Excel工作表的副本，我想将其分配给另一个Excel工作表对象，但Excel副本方法不会返回任何内容，因此我无法在一行中分配一个对象。这就是我所希望的：

wksTarget = wksSource.Copy(After:=wkbExperiment.Sheets(wkbExperiment.Sheets.Count))

…但这给了我“expression不产生价值”

所以我必须这样做：

  wksSource.Copy(After:=wkbExperiment.Sheets(wkbExperiment.Sheets.Count)) wksTarget = wkbExperiment.Sheets(wkbExperiment.Sheets.Count)

这是依靠复制的表单是最后一个不那么好。

有任何想法吗？

谢谢

克里斯蒂安

在您发布的代码中，您必须replace最后一行

 Set wksTarget = wkbExperiment.Sheets(wkbExperiment.Sheets.Count)

我不知道你为什么称它“不那么好”，因为它确切地expression了你的意思。

您可以使用，或者，

 Dim wksLoc As Sheet Set wksLoc = wkbExperiment.Sheets(wkbExperiment.Sheets.Count) wksSource.Copy(After:=wksLoc) Set wksTarget = wksLoc.Next