es la primera vez que estoy con Genexus 18 Trial e intento crear un procedimiento sencillo para poder leer .xlsx y .xls y pasar su contenido a la base de datos de una transacción.
&ExcelDocument.Open("C:\Users\user\Documents\prueba.xlsx")
Do 'CheckStatus'
&CellRow = 1
&FirstColumn = 1
Do while not &ExcelDocument.Cells(&CellRow,&FirstColumn).Text.isEmpty()
msg("Entra en el dowhile")
&Concejo= New()
&Concejo.ConcejoName = &ExcelDocument.Cells(&CellRow, &FirstColumn + 1).Text
if &Concejo.Insert()
commit
msg("OK")
endif
&CellRow += 1
enddo
&ExcelDocument.Close()
Sub 'CheckStatus'
If (&ExcelDocument.ErrCode <> 0)
&ErrorMessage = &ExcelDocument.ErrDescription
&ExcelDocument.Close()
Endif
Endsub
Mi principal problema es que no llega a entrar en el do while, como si la casilla en el documento estuviera vacía (tiene un HolaMundo) o no reconociese la condición. Desconozco si falta algo o lo realizo de la manera incorrecta. No consigo hallar respuesta en la documentación oficial.
Gracias de antemano.
EDIT: He conseguido que funcione para los .xlsx incorporando el siguiente código donde &ExcelBlob
es de tipo Blob y &File
de tipo File
&File.Source = &ExcelBlob
If (&File.ErrCode <> 0)
msg(&File.ErrDescription)
Endif
&ExcelDocument.Open(&File.GetURI())
Ahora me lee y me importa correctamente archivos .xlsx pero no funciona con los .xls, los cuales necesito leer también. ¿Alguna idea?