Récupérer toutes les pages sauf certaines
Bonjour,
J'ai ce code me permettant de récupérer les feuilles sur excel pour les mettre dans une Listbox et je souhaiterais que certaine feuille comme la feuille "accueil" n'apparaissent pas merci
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim XlApp As Object = Nothing, Workbook As Object = Nothing, Sheets As Object = Nothing
XlApp = GetObject("Excel.Application")
'XlApp.visible = True'
Workbook = XlApp.Workbooks.Open(System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\Dossier final - Copie.exe ")
Sheets = Workbook.Sheets(2)
Dim strSheetName As New List(Of String)
For Each Sheets In XlApp.Sheets
strSheetName.Add(Sheets.Name)
ListBox1.Items.Add(Sheets.Name)
Next
Workbook.Close()
XlApp.Quit()
End Sub |