Red de conocimiento informático - Problemas con los teléfonos móviles - vb lee contenido de Excel

vb lee contenido de Excel

Con CommonDialog, puede resolver el problema de seleccionar un archivo .xls abierto y leerlo directamente. Jaja, guarde el código de la siguiente manera

'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