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:
Allora raga, questo codice mi scrive su un file excel, proprio come voglio io.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
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??

Rispondi quotando