Sub 生成报表() Dim wpsApp As New WPS.Application With wpsApp .Visible = False .Documents.Open "\\server\模板\财务月报.dotx" .ActiveDocument.Bookmarks("Month").Range.Text = Format(Now, "yyyy年mm月") .ActiveDocument.ExportAsPDF "D:\reports\" & Format(Now, "yyyymm") & ".pdf" .Quit End With End Sub