VBA：将多个 PDF 从 Excel 保存到共享点并替换现有文档答案

【问题标题】：VBA: Save multiple PDF from Excel to sharepoint and replace existing documentsVBA：将多个 PDF 从 Excel 保存到共享点并替换现有文档
【发布时间】：2023-02-14 15:40:14
【问题描述】：

我不太了解宏或 VBA，所以我希望能在这里得到一些帮助。每天早上，我和我的团队必须完成以下我们希望“自动化”的任务：

我的团队将利率填写到名为“利息输入”的 Excel 选项卡中。
在此 excel 文件中，有 3 个选项卡：“输出 1”、“输出 2”和“输出 3”。这些输出是通过链接到“兴趣输入选项卡”生成的。
对于每个输出选项卡，我们必须创建一个 PDF：“输出 1.pdf”、“输出 2.pdf”和“输出 3.pdf”。
然后我们访问一个共享点，在那里我们看到我们前一天创建的 3 个输出苍蝇并替换它们。所以昨天的“Output 1.pdf”被今天的“Output 1.pdf”所取代。等等。
Intranet 页面链接到三个不同的输出文件，因此访问它的任何人都可以在单击链接时看到每天最新的 PDF。（Intranet 链接是静态的，不会更改。）
问题：有人能告诉我如何创建一个按钮，触发一个宏，为我完成第 2-4 步吗？

因为我知道的不多，所以我没有尝试任何东西，直接去找专家；）

【问题讨论】：

标签： excel vba sharepoint

【解决方案1】：

你不应该来这里期待有人来编程，如果你在开发过程中卡在特定的事情上，你应该在这里提问

打开要在其中创建宏的 Excel 工作簿。按 Alt + F11 打开 VBA 编辑器。在 VBA 编辑器中，转到“插入”>“模块”以创建一个新模块。在新模块中，粘贴以下代码：

Sub SaveAndExportPDF()
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "Output 1" Or ws.Name = "Output 2" Or ws.Name = "Output 3" Then
            ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "" & ws.Name & ".pdf", Quality:=xlQualityStandard
        End If
    Next ws
End Sub

按“Ctrl + S”保存宏。返回到 Excel 工作簿。右键单击功能区的空白区域，选择“自定义功能区”，然后在右侧列表中选中“开发人员”复选框。在“开发人员”选项卡中，单击“插入”并选择“按钮（表单控件）”。在工作表上要显示的位置绘制按钮。右键单击该按钮并选择“分配宏”。选择刚刚创建的宏，然后单击“确定”。现在，当您单击该按钮时，宏将运行并导出“输出 1”、“输出 2”和“输出 3”工作表的 PDF。

【讨论】：