用于添加新数据验证的按钮（在宏excel中添加新的默认工作簿）

Question

我想使用包含大量验证规则的VBA excel进行数据验证。

我想制作“添加新的验证输入按钮”。如果我单击该按钮，它将自动生成一个新的工作簿。

这是我昨晚的尝试：第一次，我在我的D：\文件夹中备份了2个xlsm文件（文件包含相同的文件）。

第一次进行验证输入的文件，其中包含“添加新验证条目按钮”。另一个是xlsm文件，在输入数据验证之前也包含“添加新验证条目按钮”（文件名是（原始工作簿）。如果我点击它，它会自动复制“原始工作簿”，关闭当前程序，并给我一个新的验证条目。

这是我的代码，但没有工作

Private Sub CommandButton4_Click()

Dim xWb As Workbook
Dim xWbpaste As Workbook
Dim xWbopen As Workbook
Dim wCur As Workbook

On Error Resume Next
filename = NewEntryWorkbook.Text
Set wbCur = ActiveWorkbook

Set xWbcopy = Workbooks.Copy("D:\my macro excel\original workbook")
Set xWbpaste = Workbooks.Paste("D:\my macro excel\" & filename & ".xlsm")
wbCur.close
Set xWbopen = Workbooks.Open("D:\my macro excel\" & filename & ".xlsm")
End Sub

Answer 1

Microsoft提供了不同编程语言的文档。也适用于VBA，但请谨慎使用这些示例。他们并不总是使用最好的语法。但它们有助于概述方法以及如何使用它们。

制作WB的副本，请参阅here。如果您只想创建新的WB，请参阅here。

如果您添加新的WB，请记住您将返回WB - 对象。使用SaveAs，您可以确定路径和名称。