VB.NET -Excel Créer / Sauvegarder / Fermer

Assembly à utiliser :

Imports Microsoft.Office.Interop.Excel

Code :

Dim excel As Application = Nothing
Dim mFichier As String = «  »
Dim wb As Microsoft.Office.Interop.Excel.Workbook

Private Sub objExcelcreate()
Try
mFichier = »monfichier.xlt »
excel = New Application
wb = excel.Workbooks.Open(mFichier )
excel.Visible = True
excel.DisplayAlerts = False

‘ EVENEMENT POUR DECTECTER LA FERMETURE ET  FERMER EXCEL
Try
AddHandler excel.WorkbookBeforeClose, AddressOf myExcel_Quit
Catch ex As Exception
End Try

Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
End Sub

‘ FERMER EXCEL

Private Delegate Sub delegExcel()

Public Sub myExcel_Quit()
If Me.InvokeRequired Then
Me.Invoke(New delegExcel(AddressOf excel_Close))
End If
End Sub

‘ FERMER EXCEL
Public Sub excel_Close()

‘SAUVEGARDER LE FICHIER

wb.SaveAs(monfichier.xlt)
excel.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(wb)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excel)
GC.Collect()
End Sub

 

 

 

 

 

 

Publicités

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s