Excel 正在保存到格式化工作簿的代码

我有一个模板，用户将打开，选择文本文件和VBA做所有的魔术。在代码的末尾，我弹出了“另存为”对话框，用户键入名称并保存到适当的位置。我把这段代码放在主模板的一个模块中。我遇到的问题是，格式化文件中的模块位于代码所在的位置。我不想那样。我知道我以前就知道了，但今天不是那天。相关代码粘贴在下面。我尝试过更改文件格式，将代码移动到工作表中。我错过了什么/忘记了什么

    Filename = "WhateverName_"
    SaveThiisFile = Application.GetSaveAsFilename(InitialFileName:=Filename, _
                                       fileFilter:="Excel Files   (*.xls), *.xls", _
                                       FilterIndex:=1, Title:="Save As")
    If ThisFile = False Then Exit Sub
    ActiveWorkbook.SaveAs Filename:=SaveThisFile
    ActiveWorkbook.Close (False)

---

你能把它另存为.xlsx文件吗？这将消除vba代码。只有当您11岁时还没有使用Excel 03时才有效！我已经尝试过了，但我得到了一个错误“此扩展名不能与选定的文件类型一起使用，更改“文件名”框中的fle ExtensionNo或选择其他文件类型…'但我表示的是文件筛选器。SaveAs方法中有一个选项用于指定文件类型-选择51。我只更改了此ActiveWorkbook.SaveAs文件名：=SaveThisFile，FileFormat:=51，代码仍然显示。是否使用新的Excel实例关闭并打开工作簿？.xlsx文件无法存储vba代码。它是否保存为.xlsx？