Question

所以我对VBA和编码很新，并且一直在玩写非常简单的子。 sub从工作簿中获取工作表，复制到新工作簿中然后保存它。问题是我希望能够指定它在保存文档时使用的名称。我正在使用输入框，我似乎无法获得接受结果的代码。这是我的代码

Sub CC_Export()
Dim name As String
Dim Wb As Workbook

Set Wb = Workbooks("workbook1")
    Wb.Sheets("Sheet1").Copy
    name = InputBox("Enter Name of New Workbook", "New Workbook")
    ActiveWorkbook.SaveAs "name.xlsx", FileFormat:=51

End Sub

Answer 1

您的代码使用的是文字文字“name.xlsx”。要使用该变量，您需要将其值连接到文本字符串

GroupBox

Answer 2

已编辑以利用@Pawel Sotor回答的隐式扩展假设并进一步缩短代码长度

罗里给了你解决方案

只需投入，您可以按如下方式缩短代码：

 IDs Repeated |  COLUMN_1 | COLUMN_2 | COLUMN_3 | COUNT
     1, 2     |     BLUE  |  FISH    |    SEA   |   2
       3      |     BLUE  |  FISH    |    RIVER |   1

Answer 3

只需将"name.xlsx"替换为name，因此您的代码应如下所示：ActiveWorkbook.SaveAs name, FileFormat:=51

如何在我的代码的另一位使用输入框的结果？

3 个答案: