Question

我有一个将Excel文件保存为PDF的宏，但我想根据工作簿中特定的单元格引用在＆＃34; yyyy-mm-dd＆＃34中插入保存的文件名中的日期;日期格式。

我要引用的工作簿中的特定工作表标题为＆＃34;变量和宏＆＃34 ;;包含日期的特定单元格是该表单中的单元格B4。

当前录制的宏位于：

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Z:\Regional Weekly Report\11 May\Forecast Template\Fiscal 2015 Weekly Projections 2015-05-24.pdf" _

我希望将此部分保持为静态： Z:\Regional Weekly Report\11 May\Forecast Template\Fiscal 2015 Weekly Projections并为之后的日期添加单元格引用;例如& Text('Variables and Macros'!B4,"yyyy-mm-dd"。我看过类似的帖子（即添加Range("B4").Value），但似乎没有任何效果，我显然遗漏了一些东西。

Answer 1

您可以尝试这样做

Excel 2010

Sub SaveAs()
    Dim SavePath    As String
    Dim SaveAs      As String
    Dim FileName    As String
    Dim sDate       As String

    '// Save it Path
    SavePath = "Z:\Regional Weekly Report\11 May\Forecast Template\"

    '// File Name
    FileName = "Fiscal 2015 Weekly Projections "

    '// Format the on "B4" to YYYY-MM-DD
    sDate = Format(Sheets("Sheet1").Range("B4"), "YYYY-MM-DD")

    '// Save with File Name & Date & .pdf
    SaveAs = FileName & sDate & ".pdf"
        Application.DisplayAlerts = True

        '// Export Active Sheet as pdf
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
            SavePath & SaveAs

        Application.DisplayAlerts = True
    End Sub

如何在文件标题中插入日期（基于单元格引用）？

1 个答案: