Savoir comment utiliser un contrôle TreeView pour naviguer dans les dossiers et les fichiers de classeur ouvert Microsoft Excel peut vous faire gagner du temps lorsque vous êtes à la recherche spécifiquement pour les classeurs . Vous pouvez créer un projet Microsoft Visual Basic.NET ( VB.NET ) pour accomplir cette tâche . VB.NET est un langage de programmation informatique orienté objet utilisé pour créer des applications Windows . Un contrôle TreeView est souvent utilisé pour naviguer à travers une structure de dossiers . En quelques étapes , vous pouvez créer un projet VB.NET pour rechercher des fichiers Excel et de les ouvrir à l'aide du contrôle TreeView . Choses que vous devez
Microsoft Visual Basic Express
Voir Plus Instructions
1

Démarrez Microsoft Visual Basic Express, cliquez sur "Nouveau projet ... " Dans le volet gauche de votre écran , puis sélectionnez « Application Windows Forms . " Cliquez sur « OK ».
2

Double -cliquez sur " TreeView " sur le volet «boîte à outils » pour ajouter un nouveau contrôle TreeView. Double -cliquez sur " Form1 " pour ouvrir le "Form1.vb" module .
3

Tapez la commande suivante sous la rubrique « Form1_Load " pour définir le chemin d'accès source pour démarrer la recherche et à ajouter le premier nœud : Photos

frstNode As New System.Windows.Forms.TreeNode ()

frstNode.ImageIndex = 0

frstNode.SelectedImageIndex = 0

frstNode . Text = " G: \\ "

TreeView1.Nodes.Add ( frstNode )
4

cliquez sur " Form1.vb [Design] " et double- cliquez sur le contrôle " TreeView " . Tapez la commande suivante pour ajouter des répertoires et fichiers à la commande :

obj As New Process

Text = e.Node.Text

Si Directory.Exists ( e.Node . texte ) = Vrai ALORS

getFiles ( e.Node , e.Node.Text )

End If

Si File.Exists ( e.Node.Text ) = true Then

obj.Start ( e.Node.Text , AppWinStyle.MaximizedFocus )

End If
5

Tapez la commande suivante sous la rubrique « public Class Form1 " à créer un nouveau sous-programme qui va chercher pour les répertoires et les fichiers :

getFiles Private Sub ( ByVal pnode Comme TreeNode , ByVal dirStr As String )

mYDIR As Annuaire

Icnt Dim As Integer

Icnt = 0 To ( myDir.GetDirectories ( dirStr ) Longueur . ) - 1 x

childNode As New _

TreeNode ( myDir.GetDirectories ( dirStr ) ( NTIC ) . ToString , 1, 0)

Icnt = pNode.Nodes.Add ( childNode )

Suivant Icnt

Icnt = 0 To ( myDir.GetFiles ( dirStr , " *. xls " ) Longueur ) - 1.

childNode As New _

TreeNode ( myDir.GetFiles ( dirStr , " * . xls ") ( NTIC ) ToString . 2, 2 )

Icnt = pNode.Nodes.Add ( childNode )

Suivant Icnt

pNode.Expand ()

End Sub

6

Appuyez sur " F5 " pour exécuter votre routine puis cliquez sur un fichier Excel pour l'ouvrir.