Trito e ritrito: Foglio excel a PDF

di Anonimizzato30376 il
2 risposte
Con Microsoft Visual studio 2017 devo aprire un file Excel (2006), attivare un particolare foglio e trasfomarlo in PDF. Tutto da Visula Studio
Ho letto quasi tutto il leggibile; ho fatto miriadi di prove senza risulatato.
Abbiate pietà di un 56enne.

Carico e Importo (se serve)
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop.Excel.XlFixedFormatType
e alla pressione del bottone:
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Pippo As Excel.Application
        Pippo = CreateObject("Excel.Application")
        Pippo.Visible = True
        Pippo.Workbooks.Open("C:\Users\marco\Documents\Enel\Mamma.xlsx")
        Pippo.Sheets("Foglio2").Select
        'Pippo.ActiveWorkbook.ExportAsFixedFormat(Type:=xlTypePDF, Filename:="C:\Users\marco\Documents\Mamma.pdf", OpenAfterPublish:=True)
        'Pippo.ActiveSheet.ExportAsFixedFormat(xlTypePDF, Filename:="C:\Users\marco\Documents\Mamma.pdf")
        'Pippo.ActiveSheet.ExportAsFixedFormat(0, "C:\Users\marco\Documents\Mamma.pdf")

    End Sub
Le ultime righe commentate, le ho provate tutte senza fortuna.

Mi si apre il file con il foglio selezionato ma poi restituisce errore

2 Risposte

  • Per salvare in PDF devi avere l'addin Microsoft SaveAsPDFandXPS, per Office 2007, se hai un Office successivo devi attivare la funzione Save as PDF.
    Per meglio intenderci il tuo Excel alla voce: save as, ti deve dare la possibilità di salvare in PDF, altrimenti non lo potrai fare anche da VB .Net.

    Per Office 2007 e VB .Net, trovi info e esempio qui:
    http://www.pierotofy.it/pages/sorgenti/dettagli/19605-ExcelToPdf/

    Ps. Nessuna pietà per un 56enne , l'età non è un ostacolo e non ti da privilegi.
  • PERFETTO

    Grazie
Devi accedere o registrarti per scrivere nel forum
2 risposte