Excel中的VBA：代碼根據輸入到用戶表單中的信息更改文件名？

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，而是使用保存在用戶窗體中的內容。