vb lee contenido de Excel
'Agregar un control de comando MSFlexGrid control uno
Private Sub Command1_Click()
En caso de error, reanudar a continuación
Dim fileadd As String
CommonDialog1.ShowOpen
CommonDialog1.Filter = "archivo xls (*. xls)|*.xls" 'Elija el archivo que desee
Fileadd = CommonDialog1.File Name
MSHFlexGrid Control 1.Filter = "*.xls)|*.xls" 'Seleccione el archivo que desea
fileadd = CommonDialog1.FileName
MSHFlexGrid1.Redraw = False 'Desactivar el redibujado de formularios para acelerar las operaciones
Set xlApp = CreateObject("Excel.Application") 'Crear EXCEL.Application("EXCEL.Application" )Aplicación") 'Crear objeto EXCEL
Establecer xlBook = xlApp.Workbooks.Open(fileadd) 'Abrir un archivo de libro EXCEL existente
xlApp.Visible = True 'Establecer el objeto EXCEL es visible (o invisible)
Establecer xlsheet = xlBook.Worksheets("Sheet1") 'Establecer la hoja de trabajo activa
For R = 0 To MSHFlexGrid1.Rows - 1 'Bucle de filas
Para C = 0 a MSHFlexGrid1.Cols - 1 'Bucle de columnas
MSHFlexGrid1.Row = R
MSHFlexGrid1.Col = C
xlBook.Worksheets("Sheet1").Worksheets("Sheet1").Cells(R 1, C 1) = MSHFlexGrid1.Text 'Guardar en EXCEL
Siguiente C
Siguiente R
MSHFlexGrid1.Redraw = True
xlApp.DisplayAlerts = FalseDisplayAlerts = False 'Sin alerta de seguridad
'Establecer xlsheet = Nada
' Establecer xlBook = Nada
'xlApp.Quit
'Establecer xlApp = Nada
End Sub