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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

215 - Ejemplo para cargar una hoja de Microsoft Excel en un control Flexgrid

El ejemplo tiene una rutina llamada Cargar_Excel_FlexGrid, que se le debe especificar el path del archivo xls en el primer parámetro y otro parámetro para especificar la hoja a cargar en la grilla

Controles:

Colocar en el formulario un control Microsoft FlexGrid llamado MsFlexgrid1
un control CommonDialog
un CommandButton para seleccionar el Libro
un control Data.

Nota: en la propiedad DataSource del control FlexGrid indicar el control Data.

Código fuente:

Private Sub Command1_Click() With CommonDialog1 .DialogTitle = " Seleccionar archivo Excel para cargar" .Filter = "Archivos XLS|*.xls" .ShowOpen If .FileName = "" Then Exit Sub ' Le envía el path del Libro de Excel a llenar en el Flex Call Cargar_Excel_FlexGrid(.FileName) Me.Caption = .FileName End With End Sub Private Sub Form_Load() ' Tipo de conexión Data1.Connect = "Excel 4.0;" Command1.Caption = " Abrir libro de Excel " End Sub 'Carga la hoja de Excel indicada en el control FlexGrid Sub Cargar_Excel_FlexGrid(path_XLS As String, _ Optional La_Hoja As String = "Hoja1") On Local Error GoTo Errsub With Data1 .DatabaseName = path_XLS 'Asigna el Recordsource al control data .RecordSource = La_Hoja & "$" MSFlexGrid1.Redraw = False .Refresh MSFlexGrid1.Redraw = True End With 'Error Exit Sub Errsub: MsgBox Err.Description, vbCritical End Sub

Recursos vb6 - Enlaces relacionados

Ejemplos de Excel y visual basic

Recursos vb.net - enlaces relacionados

Visualizar Excel en un control DataGridView mediante OLEDB

Buscar en Recursos vb