如何将excel.worksheet对象分配给我刚刚复制的工作表（一次性完成）

Question

我正在制作一份我要分配给另一个Excel工作表对象的Excel工作表的副本，但Excel复制方法不返回任何内容，因此我无法在一行中为其分配对象。这就是我希望做的事情：

scoreText= String.format(context.getString(R.string.result),scoreNumber);

...但这给了我“表达不会产生价值”

所以我必须这样做：

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

依赖于复制的纸张是最后一张不太好的纸张。

任何想法？

由于

克里斯蒂安

Answer 1

在您发布的代码中，您必须用

替换最后一行

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

我不知道你为什么称它为“不那么好”，因为它完全符合你的意思。

您也可以使用

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