1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
| Imports Excel = Microsoft.Office.Interop.Excel
Imports System.IO.Compression
Imports System.IO
Imports System.Diagnostics
Public Class FRM_TEST
Private Excel_APP As Excel.Application
Private Excel_FEUIL As Excel.Worksheet
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'************************************************* ECRITURE DANS FICHIER EXCEL ***********************************************************
#Region "Test ecriture fichier Excel"
Dim Excel_WBK As Excel.Workbook
Dim Source As String = My.Computer.Registry.GetValue(CONF_REG, "FichierExcelFRAIS", Nothing)
Excel_APP = New Excel.Application
'Ouvre le fichier Excel choisi dans la config
Excel_WBK = Excel_APP.Workbooks.Open(Source)
Excel_WBK = Excel_APP.Workbooks.Add
'Excel Visible
Excel_APP.Visible = True
'Choix de la feuille Global
Excel_FEUIL = Excel_WBK.Sheets("Global")
'Ecriture dans le fichier
Excel_FEUIL.Range("A1").Value = "Test"
'Sauvegarde
Excel_WBK.SaveAs(Filename:="Essai_sauvegarde.xlsx", FileFormat:=51)
'Ferme l'ensemble
Excel_FEUIL.Close()
Excel_WBK.Close()
Excel_APP.Quit()
#End Region
End Sub
End Class |
Partager