[Resolvido] Interop: Excel to PDF

[ZecaLoteiro 0]

Bom dia senhores.

Estou com um problema. Estou abrindo uma planilha, editando, salvando-a, e exportando um PDF.

Na última etapa, no comando

ExportAsFixedFormat

 está dando um erro:

System.ArgumentException: 'O valor não recai no intervalo esperado.'

 

Segue o código:

  Private Sub GeraExcel()
    Dim template As xL.Workbook = New xL.Application().Workbooks.Open(ModeloPath)
    Dim sh As xL.Worksheet = template.Sheets("PDF")
    sh.Cells(1, 1).value = "PDF"
    If IO.File.Exists(Destino) Then
      Try
        IO.File.Delete(Destino)
      Catch ex As Exception
      End Try
    End If
    template.SaveAs(Destino)
    sh.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, "C:\Temp\pdf.pdf")
    template.Close(False)
    Process.Start("EXCEL.EXE", Destino)
    RaiseEvent ThreadCompleted()
  End Sub

Este erro é muito genérico, não sei nem por onde começar a tentar analisar...

Alguém já passou por isso? 

 

Obrigado.

[ZecaLoteiro 0]

Boa tarde,

Falha minha.

 

Depois de pesquisar várias outras ferramentas percebi que estav cometendo um erro básico.

Ao invés de exportar o workbook eu estava tentando exportar a sheet, por isso o erro.

Tudo foi solucionado quando corrigi a linha para:

template.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, "C:\Temp\pdf.pdf")

 

 

Solucionado.