Question

我正在尝试将一系列工作表保存到为每个Excel工作表命名的单个文件中。

For Each ws In ActiveWorkbook.Sheets 
    fileName = RDB_Create_PDF(Range(ws.PageSetup.PrintArea), "N:\Excel\VBA\" & CleanStr(ws.Name) & ".pdf", True, True)
Next

。问题是每个ws的printarea和文件名都会更改，但它只保存当前活动工作表中的信息 - 即，我获得了使用不同的printarea范围和不同文件名保存的相同工作表信息。当ws发生变化时，如何让活动工作表与printarea和filename对齐？

Answer 1

RDB_Create_PDF(Range(ws.PageSetup.PrintArea), _
               "N:\Excel\VBA\" & CleanStr(ws.Name) & ".pdf", True, True)

此处Range默认为ActiveSheet，而不是ws

RDB_Create_PDF(ws.Range(ws.PageSetup.PrintArea), _
               "N:\Excel\VBA\" & CleanStr(ws.Name) & ".pdf", True, True)

可能是您想要的，但如果不发布RDB_Create_PDF

的代码则很难确定

如何将pdf文件保存与正确的活动工作表对齐？

1 个答案: