none
aggiungere più fogli all'interno di excel. RRS feed

  • Domanda

  • buongiorno.
    Ho l'esigenza di inserire all'interno di un foglio Excel più sheet.
    Il problema è che mi visualizza solo l'ultimo.

    dichiaro:
            Dim Excel As Object
            Dim Workbook As Object
            Dim Sheet As Object
            Excel = CreateObject("Excel.Application")

               For nrfogli As Integer = 0 To max

                    Workbook = Excel.Workbooks.Add
    Excel.ActiveSheet.Name = campo_char & "_sint"
                    Sheet = Workbook.ActiveSheet

                       loop di valorizzazioni celle con i dati letti da archivio

              next

            Workbook.SaveAs(sFileExcel)
            Sheet = Nothing

    Workbook.Close()
            Workbook = Nothing

    Excel.Quit()
            Excel = Nothing

    Debuggando il programma vedo che effettua correttamente il ciclo per max volte, ma una volta concluso, aprendo il file Excel, vedo un solo sheet con i dati dell'ultimo ciclo.

    Cosa mi sta sfuggendo?


    Grazie
    domenica 6 settembre 2020 08:11

Tutte le risposte