时间戳

首页 > 解决方案 > Pddoc.Save 有错误数量的争论或无效的属性分配

excel - Pddoc.Save 有错误数量的争论或无效的属性分配

问题描述

我正在处理代码，代码因代码 13 类型不匹配错误而中断，我已将其范围缩小到代码的 Pddoc.Save 部分，但我不知道为什么它会导致错误以及如何导致错误解决它。有人可以帮我吗？

截屏

Sub OpenPDF1()
  Dim pdf As Object
  Dim strPDF As String

  Set pdf = CreateObject("AcroExch.PDDoc")

  'pdf file to open
  strPDF = "U:\Common\Product Mgt - RINC\KIC\CHCS LTC\Policy Forms\" & Worksheets("Pol. Form Batch Print").Range("E27").Value

  'open the pdf file
  pdf.Open strPDF
  
  ActiveWorkbook.FollowHyperlink "U:\Common\Product Mgt - RINC\KIC\CHCS LTC\Policy Forms\" & Range("E27").Value & ".pdf"

  Dim AcroApp As Object, avdoc As Object, Pddoc As Object
  Dim PDSSaveCopy As Object
  Dim PDSaveFull As Object
  Dim WasSaved As Long
 
  Set AcroApp = CreateObject("AcroExch.App")
  Set avdoc = AcroApp.GetActiveDoc



  If Not (avdoc Is Nothing) Then
    Set Pddoc = avdoc.GetPDDoc
    'WasSaved = Pddoc.Save(PDSaveFull, "U:\Common\Product Mgt - RINC\KIC\CHCS LTC\Duplicate Policy Pages")

    Pddoc.Save PDSaveFull, "U:\Common\Product Mgt - RINC\KIC\CHCS LTC\Duplicate Policy Pages\" & Worksheets("Pol. Form Batch Print").Range("F27").Value & ".pdf"
    


  End If
End Sub

标签： excelvbapdf

解决方案

推荐阅读