vba - 使用用户表单对象保存文件

Question

我需要让 VBA 代码将一个从模板创建的文件保存到具有特定名称的特定目录中。示例：\Partial path\ 加上在用户窗体中选择的子目录\ 加上来自不同用户窗体的另一位信息。我可以让它保存到部分路径，但添加子目录和文件名是我卡住的地方。这是我尝试的最后一件事......

ActiveDocument.SaveAs2 FileName:="X:\Directory\" & strSubDirectory & strUserText ".docx"

任何帮助将不胜感激。

Answer 1

您的陈述中缺少 a"\"和 some &s。此外，根据您的 Word 版本，您可能无法使用SaveAs2它，因为它是在 Word 2010 中引入的。下面的代码使用SaveAs. 注意：此代码假定子目录已经存在

Private Sub SaveDocument()
    Dim strSubDirectory As String
    Dim strUserText As String
    Dim myPath As String

    strSubDirectory = "SubTest"
    strUserText = "Test"
    myPath = "C:\Test\" & strSubDirectory & "\" & strUserText & ".docx"

    ActiveDocument.SaveAs FileName:=myPath, FileFormat:=wdFormatXMLDocument
End Sub

可以在http://msdn.microsoft.com/en-us/library/ff839952.aspx找到不同类型的文件格式

Answer 2

您是否确保您的strSubDirectoryetc. 包含路径分隔符？如果没有，您需要将其包含在您的FileName字符串中：

ActiveDocument.SaveAs2 _
    FileName:="X:\Directory\" & strSubDirectory & "\" & strUserText & ".docx"