Question

我正在创建一个Excel工作簿，其编码方式如下：

1）引导用户浏览一系列用户表格，输入特定情况的信息

2）当用户单击最终命令按钮（在最后一个用户窗体中）时，将在工作簿的5个选项卡之一中填充信息。

3）填充用户评论信息，然后单击填充同一工作簿中不同选项卡的按钮。填充的信息用于生成文本文件，然后将其保存到目录中的特定位置。

4）在扫描期间拾取文件，并用于在辅助应用程序中创建任务。

我的问题是：有没有办法根据用于创建文本文件的选项卡的一个单元格中的信息，使用特定名称保存文本文件？

如果不彻底或写得不好，我道歉。我对VBA比较陌生。谢谢！

Answer 1

我认为这就是你所追求的，或者应该让你开始。在某处创建测试工作簿（例如桌面或我的文档）。在cell A1中添加一些文字。请尝试以下代码：

Sub saveTxtFileWithCell()
    Dim myDir      As String
    Dim myFilename As String

    myDir = ThisWorkbook.Path
    myFilename = myDir + "\" + Range("A1") + " " + Format(Now, "yyyy-mm-dd") + ".txt"

    ActiveWorkbook.SaveAs _
        Filename:=myFilename, _
        FileFormat:=xlText, _
        CreateBackup:=False

End Sub

这将使用今天的日期保存带有单元格A1内容名称的.txt文件。您应该能够调整此代码，而不是使用cell A1，而是使用用户表单中保存的内容。

Excel中的VBA：根据输入到用户表单中的信息更改文件名的代码？

1 个答案: