Visualizzazione dei risultati da 1 a 3 su 3
  1. #1

    [Vb.net] Scrivere su excel

    Salve ragazzi,
    premetto che sono poco esperto di Vb.net


    Ho questo problema:
    devo inserire delle righe in un file excel, e finito cio' questo file deve essere salvato in automatico.


    Io faccio cosi:
    codice:
                Dim XlaDati As Microsoft.Office.Interop.Excel.Application
                'creo l'oggetto per la gestione della cartella di lavoro
                Dim XlwbDati As Microsoft.Office.Interop.Excel.Workbook
                'creo l'oggetto per la gestione del foglio di excel(es. foglio uno, foglio due)
                Dim XlshDati As Microsoft.Office.Interop.Excel.Worksheet
                'instanzio l'oggetto application
                XlaDati = CreateObject("Excel.Application")
                'gestione degli errori
                Try
                    'lo rendo visibile
                    XlaDati.Visible = True
                    'aggiungo una nuova cartella excel
                    XlwbDati = XlaDati.Workbooks.Add
                    'Mi posiziono sul foglio attivo
                    XlshDati = XlwbDati.ActiveSheet
                Catch ex As Exception
                    MessageBox.Show("Errore")
                    Exit Sub
                End Try
    
    Dim NumRigaExcel As Integer = 1
    For Each dtRow In mDtb.Rows
    ' statements non importanti
    ' popolo una listview
    
    'Inizio Codice per scrivere su excel
                    Dim IntConta As Integer
                    Dim StrTitoloExcel() As String = {IpInt, NOME, dtRow("IpEsterno"), dtRow("Contatore"), dtRow("Data"), dtRow("Ora")}
                    For IntConta = 0 To 5
                        With XlshDati.Cells(NumRigaExcel, IntConta + 1)
                            'inserisco il valore
                            .value = StrTitoloExcel(IntConta)
                            'lo rendo in grassetto
                            '.font.bold = True
                            'gli do la dimensione
                            .font.size = 12
                            'rendo la cella di dimensioni uguali al testo (autosize)
                            .EntireColumn.autofit()
                        End With
                    Next IntConta
                    NumRigaExcel += 1
    Next
    Allora raga, questo codice mi scrive su un file excel, proprio come voglio io.
    Ma questo codice pero, mi apre il file excel e me lo fa visualizzare (cosa che io non voglio),
    invece io voglio che questo file venga salvato automaticamente.

    Potete aiutarmi??

  2. #2

  3. #3
    ok grazie, ma per far salvare il file automaticamente??

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.