在Excel中运行时错误5，同时将word文档保存为pdf

所以我一直在一些计算机上运行此代码一段时间。但是，电子表格已经开始崩溃并且拒绝保存，所以我创建了一个新的电子表格，并且所有内容都一样。它崩溃，我试着和我的Word文档保存为PDF，具体而言，此行在Excel中运行时错误5，同时将word文档保存为pdf

  wrdDoc.ExportAsFixedFormat OutputFileName:=Path & "Lot " & Lot_Number & " " & Address & " " & Suburb & " " & Job & " - s40" & ".pdf", _ 
      ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _ 
      OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _ 
      Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ 
      CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ 
      BitmapMissingFonts:=True, UseISO19005_1:=False

这里是我完整的代码，我缺乏的意见等歉意，它被写入只有我能使用。

Sub AutoFill() 

ScreenUpdating = False 

Dim Job As String 
Dim Rail As String 
Dim Panel_Type As String 
Dim Address As String 
Dim Lot_Number As Integer 
Dim Suburb As String 
Dim Town As String 
Dim Town_Check As String 
Dim Current_Date As String 
Dim DTC As String 
Dim WordFileName As String 
Dim Path As String 
Dim i As Integer 
Dim wrdApp As Object 
Dim wrdDoc As Object 

Dim count As Integer 
count = Range("Solarcount") 


Set wrdApp = CreateObject("Word.Application") 
    wrdApp.Visible = True 
    wrdApp.DisplayAlerts = wdAlertsNone 

For i = 1 To count 
    Job = Range("WordArray").Cells(i, 1) 
    Rail = Range("WordArray").Cells(i, 2) 
    Panel_Type = Range("WordArray").Cells(i, 3) 
    Lot_Number = Range("WordArray").Cells(i, 4) 
    Suburb = Range("WordArray").Cells(i, 7) 
    Address = Range("WordArray").Cells(i, 11) 
    Town = Range("WordArray").Cells(i, 10) 
    Town_Check = Range("WordArray").Cells(i, 12) 
    Current_Date = Range("WordArray").Cells(i, 14) 
    DTC = Range("WordArray").Cells(i, 15) 

    Path = Range("Path") 

    Select Case Rail 
     Case "Blue Sun" 
      WordFileName = Range("FileNames").Cells(1, 1) 
     Case "Clenergy" 
      WordFileName = Range("FileNames").Cells(2, 1) 
     Case "Conergy" 
      WordFileName = Range("FileNames").Cells(3, 1) 
     Case "Sunlock" 
      WordFileName = Range("FileNames").Cells(4, 1) 
    End Select 

    Set wrdDoc = wrdApp.Documents.Open(Path & WordFileName, , True) 
    With wrdDoc 
     With .Bookmarks 
      .Item("Address").Range = Address 
      .Item("Current_date").Range = Current_Date 
      .Item("Job_1").Range = Job 
      .Item("Job_2").Range = Job 
      .Item("Lot_Number").Range = Lot_Number 
      .Item("Panel_Type").Range = Panel_Type 
      .Item("Panel_Type_2").Range = Panel_Type 
      .Item("Suburb").Range = Suburb 
      .Item("Town").Range = Town 
      .Item("Town_check").Range = Town_Check 
      If Customer = "Sunlock" Then 
       .Item("DTC").Range = DTC 
      End If 
     End With 

     wrdDoc.SaveAs (Path & "Lot " & Lot_Number & " " & Address & " " & Suburb & " " & Job & " - s40" & ".doc") 
     wrdDoc.ExportAsFixedFormat OutputFileName:=Path & "Lot " & Lot_Number & " " & Address & " " & Suburb & " " & Job & " - s40" & ".pdf", _ 
      ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _ 
      OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _ 
      Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ 
      CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ 
      BitmapMissingFonts:=True, UseISO19005_1:=False 

     .Close ' close the document 
    End With 
Next 

wrdApp.Quit ' close the Word application 
Set wrdDoc = Nothing 
Set wrdApp = Nothing 

ScreenUpdating = True

结束子

来源

2014-09-01 Bryan Davies

解决它。

需要包含Microsoft Word 14.0对象库

来源

2014-09-01 13:18:59

在Excel中运行时错误5，同时将word文档保存为pdf

回答

相关问题