Comment faire pour transférer des données d' un Arborescence Node vers Excel

Lancement de Microsoft Visual Basic Express et sélectionnez "Nouveau projet ... " Dans le volet gauche de votre écran. Cliquez sur " Visual Basic " sous " Modèles installés " et double-cliquez sur "Application Windows Forms . "
2

Cliquez sur le volet " boîte à outils " et double -cliquez sur " TreeView " pour ajouter un nouveau " TreeView " contrôle à votre formulaire. Double- cliquez sur "Button " pour ajouter un nouveau bouton pour transférer les données de la commande " TreeView " .
3

Cliquez sur le menu "Projet " et sélectionnez " Propriétés . " Cliquez sur " Références ", puis sélectionnez "Ajouter". Sélectionner "COM" et cliquez sur " Excel 4

Double- cliquez sur le formulaire pour créer un événement de chargement du formulaire et ajoutez le code suivant pour ajouter trois nœuds de l'arborescence
5

Double -cliquez sur " Button1" pour créer un événement de clic du bouton et ajoutez le code suivant pour créer un nouveau fichier Excel et ajouter le texte de nœud sélectionné à "A1" :

Dim xlTV En tant que Néo Excel.application

xlTV.Visible = True

xlTVwks As Excel.Workbooks = xlTV.Workbooks

xlTVwk As Excel.Workbook = xlTVwks.Add < br >

xlTVsht As Excel.Worksheet = xlTVshts ( "Sheet1" )

xlTVsht.Range ( "A1") . Value = TreeView1.SelectedNode.Text.ToString

xlTVsht.SaveAs ("C: \\ dataFromTreeView.xlsx " )
6

Appuyez sur " F5" pour exécuter le programme et sélectionner un nœud dans le contrôle de l' arborescence. Cliquez sur " Button1" pour créer le fichier Excel.