时间戳

首页 > 解决方案 > 以基于单元格的动态文件名和文件夹导出为 PDF

excel - 以基于单元格的动态文件名和文件夹导出为 PDF

问题描述

我很新，不是基于程序员的。

我有一个名为“Prin ini”的 Excel 表格，其中类似于报告表格。（基本的vlookup公式）

然后，我想将其导出（不另存为）为 PDF 格式。它的名称动态基于单元格 C4 及其文件夹名称在 M4 中动态（ Today() ）

我试图谷歌它，结合一些..但总是错误..

Private Sub CommandButton1_Click()
    Dim strFilename, strDirname, strPathname, strDefpath As String
    On Error Resume Next ' If directory exist goto next line
    strDirname = Range("M4").Value ' New directory name
    
    strFilename = Range("C4").Value 'New file name
    strDefpath = "C:\Users\febriantot\Desktop\Data Historis Dummy\" 'Default path name
    If IsEmpty(strDirname) Then Exit Sub
    If IsEmpty(strFilename) Then Exit Sub
    
    MkDir strDefpath & strDirname
    strPathname = strDefpath & strDirname & "\" & strFilename 'create total string
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=strPathname,
End Sub

标签： excelvbapdfexport

解决方案

推荐阅读