Saber utilizar un control TreeView para navegar por las carpetas y los archivos de libro abierto de Microsoft Excel le puede ahorrar tiempo cuando usted está buscando específicamente para los libros . Usted puede crear un proyecto de Microsoft Visual Basic.NET ( VB.NET ) para realizar esta tarea . VB.NET es un lenguaje de programación orientado a objetos utilizado para crear aplicaciones de Windows. Un control TreeView a menudo se utiliza para navegar a través de una estructura de carpetas. En unos pocos pasos , puede crear un proyecto VB.NET para buscar archivos de Excel y abrirlos con el control TreeView. Cosas que necesitará
Microsoft Visual Basic Express
Ver Más instrucciones
1
Inicie Microsoft Visual Basic Express , haga clic en "Nuevo proyecto ... " en el panel izquierdo de la pantalla y luego seleccione " Aplicación de Windows Forms ". Haga clic en " Aceptar".
2
doble clic en " TreeView " en el panel " Toolbox" para añadir un nuevo control TreeView. Haga doble clic en " Form1 " para abrir el módulo " Form1.vb " .
3
Escriba lo siguiente en " Form1_Load " para definir la ruta de origen para iniciar la búsqueda y para agregar el primer nodo :
frstNode Dim As New System.Windows.Forms.TreeNode ()
frstNode.ImageIndex = 0
frstNode.SelectedImageIndex = 0
frstNode . Texto = " G: \\ "
TreeView1.Nodes.Add ( frstNode )
4 Haga clic en " Form1.vb [ Diseño ] " y haga doble clic en el control " TreeView " . Escriba lo siguiente para agregar directorios y archivos para el control :
Dim obj As New Process
Texto = e.Node.Text
Si Directory.Exists ( e.Node . Texto ) = True Luego
GetFiles
( e.Node , e.Node.Text )
End If
Si File.Exists ( e.Node.Text ) = entonces verdad
obj.Start ( e.Node.Text , AppWinStyle.MaximizedFocus )
End If
5
Escriba lo siguiente en " Public Class Form1 " para crear un nuevo subprograma que buscar directorios y archivos :
GetFiles Private Sub ( ByVal pNode Como TreeNode , dirStr ByVal como secuencia)
myDir As Directorio
ICNT Dim As Integer
Para ICNT = 0 To ( myDir.GetDirectories ( dirStr ) Longitud . ) - 1
childNode Dim As New _
TreeNode ( myDir.GetDirectories ( dirStr ) ( Texto Integrado ) . ToString , 1 , 0 )
ICNT = pNode.Nodes.Add ( childNode )
Siguiente ICNT
Para ICNT = 0 To ( myDir.GetFiles ( dirStr , " * . xls ") Longitud ) - 1 .
childNode Dim As New _
TreeNode ( myDir.GetFiles ( dirStr , " * . xls ") ( ICNT ) ToString . 2 , 2 )
ICNT = pNode.Nodes.Add ( childNode )
Siguiente ICNT
pNode.Expand ()
End Sub
Página 6
Press "F5 " para ejecutar la subrutina haga clic en un archivo de Excel para abrirlo.
