vba保存用户表单内容

Question

我已经以第6种形式完成了我的计算项目，除了能够保存外，一切正常。该项目是一个座位计划生成器，教师可以将表拖放到用户表单上以构建他们的教室，然后让所有学生按照各种标准坐下。我有一个保存计划按钮，我想保存已添加到用户窗体的对象，因此加载计划按钮应允许教师访问他们中断的用户窗体。

我尝试了以下但是他们没有工作：

Application.GetSaveAsFilename

-

Dim vSave_File As Variant
vSave_File = Application.GetSaveAsFilename("Test.xls", "(*.xls),*.xls", 1, "Dialog Title"

这两种方法都会引导我通过保存对话，但当我来寻找它们时，它们就不存在了。

Answer 1

GetSaveAsFilename函数只返回文件名，不保存。您应该使用vSave_File变量添加保存工作簿的代码：

ActiveWorkbook.SaveAs vSave_File

此外，您可能需要指定文件类型，具体取决于您的要求：

ActiveWorkbook.SaveAs vSave_File, xlOpenXMLWorkbookMacroEnabled