Tecnología

Inicio

Cómo transferir datos desde un nodo de vista de árbol a Excel

Cómo transferir datos desde un nodo de vista de árbol a Excel


Ser capaz de exportar vista de árbol de información de nodo a Excel puede hacer su aplicación más dinámica. En Visual Basic, puede obtener el texto de un nodo seleccionado en una vista de árbol de control mediante el uso de la propiedad "SelectedNode". Esta propiedad representa el nodo seleccionado en la vista de árbol que se puede utilizar para obtener los datos en el nodo. Utilizar la biblioteca de objetos de Microsoft Excel para crear un nuevo libro y exportar los datos a una de sus hojas de trabajo.

Instrucciones

1 Lanzamiento de Microsoft Visual Basic Express y seleccionar "Nuevo proyecto ..." en el panel izquierdo de la pantalla. Haga clic en "Visual Basic" en "Plantillas instaladas" y haga doble clic en "Aplicación de Windows Forms".

2 Haga clic en el panel "Herramientas" y haga doble clic en "TreeView" para agregar un nuevo control "TreeView" a su formulario. Haga doble clic en "botón" para añadir un nuevo botón para transferir datos desde el control "TreeView".

3 Haga clic en el menú "Proyecto" y seleccione "<proyecto> Propiedades". Haga clic en "Referencias", a continuación, seleccione "Agregar". Seleccione "COM" y haga clic en "Microsoft Excel <número de versión> Biblioteca de objetos." Haga clic en Aceptar."

4 Haga doble clic en el formulario para crear un evento de carga del formulario y agregue el código siguiente para agregar tres nodos para el control de vista de árbol:

Me.TreeView1.Nodes.Add ( "nodo 1")

Me.TreeView1.Nodes.Add ( "nodo 2")

Me.TreeView1.Nodes.Add ( "Node3")

5 Haga doble clic en "Button1" para crear un evento de clic del botón y agregue el código siguiente para crear un nuevo archivo de Excel y añadir el texto del nodo seleccionado a "A1":

Dim XLTV Como Nueva Excel.Application

xlTV.Visible = True

xlTVwks dévil como Excel.Workbooks = xlTV.Workbooks

Dim xlTVwk Como Excel.Workbook = xlTVwks.Add

xlTVshts dévil como Excel.Sheets = xlTVwk.Worksheets

Dim xlTVsht Como Excel.Worksheet = xlTVshts ( "Sheet1")

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

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

6 Pulse la tecla "F5" para ejecutar el programa y seleccionar un nodo en el control de vista de árbol. Haga clic en "Button1" para crear el archivo de Excel.