vba 保存用户表单内容

Question

我几乎完成了我的第 6 形式的计算项目，除了能够保存之外，一切正常。该项目是一个座位计划生成器，教师可以在其中将表格拖放到用户表单上以构建他们的教室，然后根据各种标准为所有学生安排座位。我有一个保存计划按钮，我想保存已添加到用户窗体的对象，因此加载计划按钮应该允许教师从他们离开的地方访问用户窗体。

我尝试了以下方法，但它们不起作用：

Application.GetSaveAsFilename

--

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

这两种方法都让我完成了另存为对话，但是当我来寻找它们时，它们并不存在。

Answer 1

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

ActiveWorkbook.SaveAs vSave_File

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

ActiveWorkbook.SaveAs vSave_File, xlOpenXMLWorkbookMacroEnabled

vba save user form contents