VB lee datos de Excel y los inserta en la base de datos
Set xlApp = CreateObject("Excel.Application") 'Activar aplicación EXCEL
xlApp.Visible = False 'Ocultar ventana de aplicación EXCEL
Set xlBook = xlApp.Workbooks.If Trim (xlSheet .Cells(IRowsCount, 1)) = "" Entonces
Salir para
Finalizar si
'xlSheet.Cells(IRowsCount, número de columna) ingresará datos en la base de datos
'Al convertir hombres y mujeres, puede determinar que xlSheet.Cells(IRowsCount, número de columna) = "Male", luego = 1, de lo contrario = 0, y luego escribir en la base de datos
SiguienteIRowsCount