Sección de códigos , trucos y ejemplos para visual basic

152 - Rango de Datos en Excel

Función que devuelve el rango de datos de una hoja de Excel determinada

Esta función devuelve el Rango de datos de una Hoja, y los visualiza mediante un Msgbox. Los valores devueltos por la función son:

El número de la primer Fila, el de la última Fila, el número de la primer columna y el de la última Columna:

A la función llamada Obtener_Rango_Excel, se le debe enviar como parámetro el Path del Libro y una variable de tipo t_Rango que está declarada de la siguiente forma:

' Type para el Rango Private Type T_Rango NumFila1 As Long NumFila2 As Long NumCol1 As Long NumCol2 As Long End Type

Ejemplo

Agregar un Command1
Especificar el path del Libro en la función: Obtener_Rango_Excel

Pegar el código fuente en el Form:

Option Explicit ' Type para el Rango Private Type T_Rango NumFila1 As Long NumFila2 As Long NumCol1 As Long NumCol2 As Long End Type 'Variable para el UDT que almacena cuatro variables par el Rango _ de datos de la hoha Excel Dim rango As T_Rango 'función que recibe el Apth del ArchivoExcel y una _ variable de tipo T_Rango para almacenar los valores y retornarlos ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function Obtener_Rango_Excel( _ path_excel As String, _ rango As T_Rango) As Boolean On Error GoTo ErrSub 'Variables de objeto Excel Dim objExcel As Object, obj_Hoja As Object Dim Primera_Fila As Integer, Primera_Column As Integer Dim num_Filas As Integer, num_Col As Integer 'Crear la instancia de la aplicación Excel Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Open FileName:=path_excel If Val(objExcel.Application.Version) >= 8 Then Set obj_Hoja = objExcel.ActiveSheet Else Set obj_Hoja = objExcel End If With obj_Hoja Primera_Fila = .UsedRange.Row Primera_Column = .UsedRange.Column num_Filas = .UsedRange.Rows.Count num_Col = .UsedRange.Columns.Count End With 'Almacenamos en la variable Type el rango, es decir la primera fila _ la ultima fila, La primer Columna y la ultima With rango .NumFila1 = Format$(Primera_Fila) .NumFila2 = Format$(Primera_Fila + num_Filas - 1) .NumCol1 = Format$(Primera_Column) .NumCol2 = Format$(Primera_Column + num_Col - 1) End With objExcel.ActiveWorkbook.Close False 'cierra el Excel objExcel.Quit 'Elimina las referencias y objetos Set obj_Hoja = Nothing Set objExcel = Nothing Exit Function ErrSub: MsgBox " Número de Error: " & Err.Number & _ vbNewLine & "Descripción: " & "err.Description" End Function Private Sub Command1_Click() 'Le pasamos el Path del Libro y una variable de tipo T_Rango _ para retornar los valores '****************************************** 'ESPECIFICAR EL PATH DEL ARCHIVOP EXCEL '****************************************** Call Obtener_Rango_Excel(App.Path & "\Books.xls", rango) 'Visualizamos los resultados de la primera y ultima fila _ y la rimer y última columna que tiene datos en la hoja With rango MsgBox "desde la Fila: " & .NumFila1 MsgBox "Hasta la Fila: " & .NumFila2 MsgBox "desde la Columna : " & .NumCol1 MsgBox "Hasta la columna : " & .NumCol2 End With End Sub Private Sub Form_Load() Me.Caption = " Ejemplo para obtener el rango de datos de una hoja de Excel " Command1.Caption = " Obtener rango de la hoja Excel " End Sub

Recursos visual basic - Enlaces relacionados

Recursos Visual basic.net - enlaces relacionados

Visualizar una hoja de Excel en un control DataGridView

Buscar en Recursos vb