Excel宏VBA-如何使用基於日期和單元格值的文件名保存爲xlsm

我真的很喜歡解決方案here，它提供了強制另存爲xlsm文件的VBA。請記住，我幾乎不知道有關的VBA什麼，我怎麼能修改此代碼執行以下操作：Excel宏VBA-如何使用基於日期和單元格值的文件名保存爲xlsm

繼續強制保存爲XLSM
文件名稱等於在一個名爲表單元格C1的價值。「報告「+文本」BSC「+日期YYYY.MM.DD格式

任何幫助將不勝感激。

2016-04-22 David W Harrington

所以我今天感覺大方然而關於這一點，你真的應該至少嘗試學習，而不是希望別人爲你做它......我再次感到如此大方你應該感到幸運。 Dim sFileName As String sFileName =表（「REPORT」）。Range（「C1」）。Value＆「BCS」＆Format（DateTime.Now，「yyyy.mm.dd」）＆「.xlsm」 ActiveWorkbook。 SaveAs sFileName' – Sorceri

我同意Sorceri，並且在發表評論時仍在編輯。我剛看到它。這是正確的，應該或不應該回答的邊界。但是關於你問這個問題的方式，似乎幫助你將你帶到了一個新的水平。我的回答是給你一些，但你必須把它拼湊在一起來完成這個難題。祝你好運。你能行的。 – peege

如果走線的地方說：

ThisWorkbook.SaveAs Filename:=FileNameVal & ".xlsm", FileFormat:=ThisWorkbook.FileFormat 
     Application.EnableEvents = True

要保存爲任何值FileNameVal

下保存使用一些基本的變量的文件，你可以設置字符串和替代的價值FileNameVal

Dim newFileName As String, nameDate As String, sheet As String, tempVal As String 

    sheet = "REPORT" 
    tempVal = Sheets(sheet).Range("C1").Text 
    nameDate = Format(Date, "yyyy.mm.dd") 
    newFileName = tempVal & "BSC" & nameDate

看那本地窗口，你可以看到值的變化情況您使用F8單步執行代碼。

來源

2016-04-22 19:36:54 peege

這是爲了給你一些缺失的元素。你應該能夠從這裏完成。 – peege

感謝您的幫助，peege和Sorceri。這是我第一次真的需要在任何類型的VBA上嘗試我的手，而且我大部分時間都遠離編碼器，但是如果我得到一些與我正在工作的問題有關的非常具體的建議就我而言，我傾向於能夠讓自己足以勝任，以後能夠提出有關HTML，CSS或PHP的非常好的問題。所以這會有所幫助。 –

Excel宏VBA-如何使用基於日期和單元格值的文件名保存爲xlsm

回答

相關問題