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??