Question

我还是vba的新手，我对如何将工作表复制到新工作簿以及根据单元格值重命名新工作簿有疑问。我的工作表名称为＆＃34;摘要＆＃34;并且想要复制工作表并导出到新工作簿但我还希望根据单元格值命名新工作簿（在这种情况下，我希望它根据单元格B3命名）。以下是我尝试过的代码：

TListView

我一直收到错误＆＃34;用户定义的类型未定义＆＃34; 。你能帮帮我吗？

感谢。

Answer 1

Dim wksht As Summary

可能是您错误的原因！ “摘要”类型不是已定义的类型。您应该将其更改为Dim wksht as WorkSheet

Answer 2

必须改变一些事情：
1.正如@PIT提到的那样，wksht必须被定义为WorkSheet而不是＆＃34; Summary＆＃34;
2.假设您将从＆＃34;摘要＆＃34;运行您的宏。表格，你的代码将工作，否则你必须将wksht设置为＆＃34;摘要＆＃34;工作表。
3.你必须改变范围（B3）。值到范围（＆＃34; B3＆＃34;）。值

整体而言，我建议您探索谷歌，大量样本

Sub Sample2()

    Dim wksht As WorkSheet
    Set wksht = ActiveSheet

    Dim path As String
    path = "C:\Desktop\"

        wksht.Copy
        ActiveWorkbook.SaveAs filename:=path & wksht.Range("B3").Value & ".xlsx"
End Sub

将工作表保存到新工作簿并根据单元格值重命名

2 个答案: