Spanish Vincular celda de excel a un label

darkchop

New Member
Buenas tardes soy nuevo en esto y estoy probando esta magnifica aplicacion.

querria saber si se puede vincular un label a una celda de un archivo excel.

y no solo eso si no que ese archivo este en dropbox.


Gracias de antemano y un saludo
 

darkchop

New Member
Gracias

Pero no he logrado descifrar como poner en un label lo que hay en una celda del excel en concreto

EDIT: Es que no se mucho de ingles y claro no me cuesco de lo que dice :oops:
 

bgsoft

Well-Known Member
Licensed User
Hola

Te he creado un pequeño ejemplo:

1) Antes de nada te tienes que bajar las librerias de Excel de aqui:
http://www.basic4ppc.com/android/forum/threads/read-write-excel-files-on-android.25632/

2) Las copias a donde tengas el resto de librerias de B4A, normalmente es en:
c:\Archivos de programa\Anywhere Software\Basic4android\Libraries

3) Luego entras aqui:
http://sourceforge.net/projects/jexcelapi/files/jexcelapi/2.6.12/

4) Y donde pone:
"Looking for the latest version? Download C# port of JExcel 2.6.12 for Visual Studio 2005 or 2008 (5.9 MB) "
Pulsas para bajarte el fichero CSharpJExcel.zip

5) Dentro de este fichero hay un ZIP que se llama : excelapi_2_6_12.zip , de ahí dentro coges el fichero jxl.jar y lo copias en la carpeta de la libreria (punto 2)

6) Creas un proyecto y añades la libreria Excel.

7) Entras en Designer y creas :

1 Label con nombre Label1
1 Button con nombre BotonLeer
1 EditText con nombre Columna
1 EditText con nombre Linea

Lo salvas como Layout

8) En la pestaña de Files, añades tu fichero de excel, yo he empleado el mismo que viene en el zip que se llama jxlrwtest.xls , de esta forma consigues que lo copie al directorio DirAssets

Y ahora te he creado un pequeño código:

B4X:
Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.

   Dim Libro As ReadableWorkbook
   Dim hoja As ReadableSheet

   Private Label1 As Label
   Private BotonLeer As Button
   Private Columna As EditText
   Private Linea As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("Layout")
  
  Libro.Initialize(File.DirAssets,"jxlrwtest.xls") ' pon el nombre del fichero excel que quieras
  hoja = Libro.GetSheet(0) ' hoja 0 , pon la que te interese
  
End Sub

Sub BotonLeer_Click

  ' devuelve el valor pedido
   Label1.Text = hoja.GetCellValue(Columna.text, Linea.text)

  ' Nota: las lineas y columnas empiezan desde 0 (cero)
  
End Sub

Espero que ahora si puedas poner en un label lo que hay en una celda de Excel ;)

Bueno, con esto, escribir en una hoja de Excel lo tienes muy facil, básicamente es lo mismo que este ejemplo para leer.

Saludos
 

TheFalcon

Active Member
Licensed User
chapo xD vamos mas fácil imposible, muchas gracias a mi me va a valer hasta que consiga dominar el SQL con las aplicaciones android jeje.
Muchas gracias
 

bgsoft

Well-Known Member
Licensed User
Top