0

首先，我只想说这是一种享受。我已经咨询这个论坛多年（Fortran uni assignments），但这是我的第一篇文章，你们太棒了。

我有点绝望，因为我只能使用 Office 产品，而我并不真正了解 VBA。我是一家大公司的在职学生，我知道一些 Python，但我从未使用过基于对象的语言（如 VBA）进行编码。首先，您会推荐任何可以帮助我理解 VBA 的教程吗？我在这里不知所措。

我的任务是自动化报告流程。基本上，我需要创建几个带有表格和图表的 PowerPoint 演示文稿。这些都来自一个Excel 文件。这个文件（已经完成）从不同的 Excel 文件（自动下载）收集数据，并将它们放在一起。

到目前为止，我已经设法使用我在 Internet 上找到的代码拼凑在一起的代码：

    Sub ExportaraPowerPoint()

    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptShape As PowerPoint.Shape
    Dim excelTable As Excel.Range
    Dim Workbook As Workbook
    Dim Worksheet As Worksheet
    Dim i As 

    Workbooks("def1.xlsm").Sheets("Execution Audit Plan").Activate
    Set excelTable = ActiveSheet.Range("B3:K12")

    On Error Resume Next
    Set pptApp = GetObject("", "PowerPoint.Application")
    Err.Clear
    If pptApp Is Nothing Then Set pptApp = CreateObject(class:="PowerPoint.Appliaction")
    pptApp.Visible = True
    pptApp.Activate

    Set pptPres = pptApp.Presentations.Add
    Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank)

    excelTable.Copy

    pptSlide.Shapes.PasteSpecial(link:=True).Select
    pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
    pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True

    End Sub

但我猜测手动创建演示文稿（以及表格和图表）然后使用 VBA 脚本自动化其中的数据会更容易，但我不知道如何。你有什么想法？我不需要代码，只需要新想法。

4

0 回答 0