所以我对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
答案 0 :(得分:4)
您的代码使用的是文字文字“name.xlsx”。要使用该变量,您需要将其值连接到文本字符串
GroupBox
答案 1 :(得分:3)
已编辑以利用@Pawel Sotor回答的隐式扩展假设并进一步缩短代码长度
罗里给了你解决方案
只需投入,您可以按如下方式缩短代码:
IDs Repeated | COLUMN_1 | COLUMN_2 | COLUMN_3 | COUNT
1, 2 | BLUE | FISH | SEA | 2
3 | BLUE | FISH | RIVER | 1
答案 2 :(得分:2)
只需将"name.xlsx"
替换为name
,因此您的代码应如下所示:ActiveWorkbook.SaveAs name, FileFormat:=51