Saper utilizzare un controllo TreeView per spostarsi tra cartelle e Apri cartella di lavoro di Microsoft Excel file consente di risparmiare tempo quando stai cercando specificamente le cartelle di lavoro. È possibile creare un progetto di Microsoft Visual Basic.NET (VB.NET) per eseguire questa operazione. VB.NET è un object-oriented programmazione linguaggio utilizzato per creare applicazioni Windows. Un controllo TreeView viene spesso utilizzato per navigare attraverso una struttura di cartelle. In pochi passi, è possibile creare un progetto VB.NET per cercare i file Excel e aprirli utilizzando il controllo TreeView.
Istruzioni
1
Avviare Microsoft Visual Basic Express, scegliere "Nuovo progetto..." nel riquadro sinistro dello schermo quindi selezionare "Applicazione Windows Form." Fare clic su "OK".
2
Fare doppio clic "TreeView" nel riquadro "Toolbox" per aggiungere un nuovo controllo TreeView. Fare doppio clic su "Form1" per aprire il modulo di "Form1. vb".
3
Digitare quanto segue sotto "Form1_Load" per definire il percorso di origine per avviare la ricerca e per aggiungere il primo nodo:
Dim frstNode As New System.Windows.Forms.TreeNode()
frstNode.ImageIndex = 0
frstNode.SelectedImageIndex = 0
frstNode.Text = "G:\"
TreeView1.Nodes.Add(frstNode)
4
Fare clic su "Form1. vb [Design]" e fare doppio clic sul controllo "TreeView". Digitare il comando seguente per aggiungere i file e directory al controllo:
Dim obj As New Process
Testo = e.Node.Text
Se Directory.Exists(e.Node.Text) = True Then
getFiles (e. Node, e.Node.Text)
End If
Se File.Exists(e.Node.Text) = True Then
obj. Inizio (e.Node.Text, MaximizedFocus)
End If
5
Digitare quanto segue sotto "Public Class Form1" per creare una nuova subroutine che eseguirà la ricerca per file e directory:
Private Sub getFiles (ByVal pNode As TreeNode, ByVal dirStr As String)
Dim myDir As Directory
Dim iCnt As Integer
For iCnt = 0 To (myDir.GetDirectories(dirStr).Length) - 1
Dim childNode As New _
TreeNode(myDir.GetDirectories(dirStr)(iCnt).ToString, 1, 0)
iCnt = pNode.Nodes.Add(childNode)
Next iCnt
For iCnt = 0 To (myDir.GetFiles(dirStr, "*.xls").Length) - 1
Dim childNode As New _
TreeNode(myDir.GetFiles(dirStr, "*.xls")(iCnt).ToString, 2, 2)
iCnt = pNode.Nodes.Add(childNode)
Next iCnt
pNode.Expand()
End Sub
6
Premere "F5" per eseguire la subroutine, quindi fare clic su un file di Excel per aprirlo.