如何用VBA将Excel可见区域粘贴为图片并导出同名PDF？

针对你的需求，以下是修改后的VBA代码，解决图片丢失问题并实现生成同名PDF的功能：

关键修改说明 #

• 动态获取可见区域：不再使用固定范围A1:R6，改用UsedRange.SpecialCells(xlCellTypeVisible)自动适配隐藏列后的可见数据区域
• 粘贴为图片：替换粘贴方式为xlPastePicture，确保所有视觉元素（包括引用的图片）完整保留，避免跨工作簿引用丢失
• 修正文件名格式：将无效的"today()"字符串替换为Format(Date, "yyyy-mm-dd")，生成合法的日期戳文件名
• 添加PDF导出：保存Excel文件后自动生成同名PDF
• 资源清理：添加剪贴板和对象释放逻辑，避免内存占用

完整VBA代码 #

Option Explicit

Sub SaveBOMAsImageAndPDF()
    Dim wbI As Workbook, wbO As Workbook
    Dim wsI As Worksheet, wsO As Worksheet
    Dim visibleRange As Range
    Dim strFileBase As String, strExcelPath As String, strPDFPath As String
    
    ' 源工作簿和目标工作表（第二个工作表"BOM"）
    Set wbI = ThisWorkbook
    Set wsI = wbI.Sheets("BOM")
    
    ' 获取BOM工作表的可见数据区域（适配隐藏列）
    On Error Resume Next
    Set visibleRange = wsI.UsedRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If visibleRange Is Nothing Then
        MsgBox "没有可见数据可保存！", vbExclamation
        Exit Sub
    End If
    
    ' 创建新工作簿
    Set wbO = Workbooks.Add
    Set wsO = wbO.Sheets("Sheet1")
    
    ' 生成文件名（包含G1单元格内容和日期戳）
    strFileBase = ThisWorkbook.Cells(1, 7).Value & ".BOM." & Format(Date, "yyyy-mm-dd")
    strExcelPath = "C:\filepath\" & strFileBase & ".xlsx" ' 替换为实际保存路径
    strPDFPath = "C:\filepath\" & strFileBase & ".pdf"
    
    ' 复制可见区域并粘贴为图片
    visibleRange.Copy
    wsO.Range("A1").PasteSpecial Paste:=xlPastePicture, Link:=False
    Application.CutCopyMode = False ' 清理剪贴板
    
    ' 保存Excel文件
    wbO.SaveAs Filename:=strExcelPath, FileFormat:=xlOpenXMLWorkbook
    
    ' 导出为同名PDF
    wbO.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=strPDFPath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False
    
    ' 关闭新工作簿（可根据需求调整是否保留打开状态）
    wbO.Close SaveChanges:=False
    
    ' 释放对象
    Set wsO = Nothing
    Set wbO = Nothing
    Set visibleRange = Nothing
    Set wsI = Nothing
    Set wbI = Nothing
    
    MsgBox "文件已保存：" & vbCrLf & strExcelPath & vbCrLf & strPDFPath, vbInformation
End Sub

使用注意事项 #

• 请将代码中的"C:\filepath\"替换为你实际的文件保存路径
• 确保源工作簿G1单元格（Cells(1,7)）的内容不含文件名禁用字符（如\ / : * ? " < > |）
• 如果需要保留更多格式细节，可先粘贴格式再粘贴图片，但直接粘贴图片已能完整保留视觉呈现效果

内容的提问来源于stack exchange，提问作者confused_Zebra