无法保存另一个工作簿

Question

我想将ThisWorkbook.Sheets("report")复制到新工作簿。 文件名应为sheet2.Cells(1, 1)。

我已经定义了工作表保存位置和文件名。

现在，我可以将worksheet-report复制到新工作簿。但是，该文件名是1,2,3，......（不是我期望的文件名sheet2.Cells(1, 1)。 该文件也没有保存。如果我关闭新工作簿，它会要求我保存。我去那个文件夹，我找不到那个工作簿。

问题是什么？ （它应保存在该文件夹中并命名为。）

  Dim wb As Workbook
        Set wb = Workbooks.Add

        ThisWorkbook.Sheets("report").Copy Before:=wb.Sheets(1)
        wb.SaveAs "R:\Summer \eva\" & sheet2.Cells(1, 1) & ".xlsx"

更新

即使我使用thisworkbook.worksheets("report")无效

细胞（1，＆＃34; A＆＃34;）是一个组合细胞，它将A1与V1结合起来

我试过细胞（6，＆＃34; a＆＃34;）。它是＆＃34; 111＆＃34; .it有效。它可以保存并正确命名

2更新

我试图将单元格（1,1）粘贴到一个单个单元格中。它仍然无法正常工作。 然后我尝试将我的句子从8个单词缩短为3个单词。这很有效。 它是关于文件名单词限制吗？

3更新

我将单元格（1,1）-7字粘贴到另一个单元格并再次测试。它正在工作。 我认为它与细胞长度无关。 我想这里的原因是：

细胞（1,1）由以下组合：

   If (fromyear = toyear And frommonth = ToMonth) Then
[A1].Value = "Management statistics on abc work for " & fromyear & "/" & frommonth
Else
[A1].Value = "Management statistics on abc work" & " from " & fromyear & "/" & frommonth & " to " & toyear & "/" & ToMonth
End If

但我不知道如何解决。