VBA实现另存文件到指定路径的指定文件名

gracher

今天泡了一下午论坛，还是不明白，求大神指教。

需求：
如附件，通过VBA实现将指定单元格的名称，并加上今天的日期，存至D:\资料\ 的文件夹内
文件名如：20150812财务部会计张三.xlsx

文件用途：
员工填写表单，然后按今天填写日期，用部门、岗位以及姓名另存一份到指定的文件夹内。

谢谢啦！

wzm2007

试试：
Sub baocun()
Application.DisplayAlerts = False '取消EXCEL弹出窗口
ThisWorkbook.SaveAs  & "\" & Format(Now(), "yyyy" & "年" & "mm" & "月" & "dd" & "日" & "h" & "时" & "mm" & "分" & "ss" & "秒") & "D:\资料\" & "财务部会计张三.xlsx"
Application.DisplayAlerts = true
End Sub

gracher

wzm2007 发表于 2015-8-12 16:44
试试：
Sub baocun()
Application.DisplayAlerts = False '取消EXCEL弹出窗口

不是这样，因为我可能随时更改部门和姓名等信息

gracher

求救，没有人回复

liushengye

ThisWorkbook.SaveAs  & "\" & Format(Now(), "yyyy" & "年" & "mm" & "月" & "dd" & "日" & "h" & "时" & "mm" & "分" & "ss" & "秒") & "D:\资料\" & Thisworkbook.name

sunnyfpg

Sub test()
Dim a As String, b As Long
b = Evaluate("=today()")
a = Application.WorksheetFunction.Text(b, "yyyymmdd") & Range("b3") & Range("e3") & Range("h3")
ActiveWorkbook.SaveAs Filename:="D:\资料\" & a & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

sunnyfpg

Sub ss()
Dim a As String, b As Long
b = Evaluate("=today()")
a = Application.WorksheetFunction.Text(b, "yyyymmdd") & Range("b3") & Range("e3") & Range("h3")
ActiveWorkbook.SaveAs Filename:="D:\资料\" & a & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub