Excel中的VBA:根据输入到用户表单中的信息更改文件名的代码?
我正在创建Excel工作簿,其编码如下: 1) 引导用户浏览一系列用户表单,输入特定情况的信息 2) 当用户单击最后一个命令按钮(在最后一个用户窗体中)时,信息将填充到工作簿的5个选项卡之一 3) 用户查看填充的信息,然后单击按钮填充同一工作簿中的不同选项卡。填充的信息用于生成文本文件,然后将其保存到目录中的特定位置 4) 该文件在扫描过程中拾取,并用于在辅助应用程序中创建任务 我的问题是:是否有一种方法可以根据用于创建文本文件的选项卡的某个单元格中的信息,使用特定名称保存文本文件Excel中的VBA:根据输入到用户表单中的信息更改文件名的代码?,vba,excel,text-files,Vba,Excel,Text Files,我正在创建Excel工作簿,其编码如下: 1) 引导用户浏览一系列用户表单,输入特定情况的信息 2) 当用户单击最后一个命令按钮(在最后一个用户窗体中)时,信息将填充到工作簿的5个选项卡之一 3) 用户查看填充的信息,然后单击按钮填充同一工作簿中的不同选项卡。填充的信息用于生成文本文件,然后将其保存到目录中的特定位置 4) 该文件在扫描过程中拾取,并用于在辅助应用程序中创建任务 我的问题是:是否有一种方法可以根据用于创建文本文件的选项卡的某个单元格中的信息,使用特定名称保存文本文件 我道歉,如果
我道歉,如果这是不彻底或写得不好。我对VBA比较陌生。谢谢大家! 我想这就是你想要的,或者应该让你开始。在某处创建测试工作簿(例如桌面或我的文档)。在单元格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
这将保存一个.txt文件,其中包含单元格A1中的内容名称和今天的日期。您应该能够调整此代码,以便使用保存在userform中的内容,而不是使用单元格A1