Il giorno 02 febbraio 2010 00.10, Sergio Corato <[email protected]>ha scritto:
> pac ha scritto: > >> Mi hanno chiesto di importare in database una serie di fogli di calcolo >> (circa 2000) e la cosa almeno per me mi risulta molto complicata. >> Cerco di descrivere come sono fatti questi fogli. >> 1) Un foglio per ogni cliente >> 2) Una prima serie di Etichette in senso verticale (Colonna A) e dati in >> corrispondente riga colonna B >> 3) Alla riga 15 si trovano due etichette nel senso però della riga, con >> relativo sottotitolo nella riga 17 >> il tutto va incrociato alla etichetta della riga 18 >> 4) Il problema del punto 3 viene ripetuto successivamente >> 5) Ho in visione un solo foglio, non ho idea se il numero riga è stato >> perfettamente rispettato >> In ogni caso allego foglio per avere vs/parere >> Ciao e grazie >> ------------------------------------------------------------------------ >> >> >> --------------------------------------------------------------------- >> To unsubscribe, e-mail: [email protected] >> For additional commands, e-mail: [email protected] >> > Visto che c'è sempre un'etichetta a sx, io passerei riga per riga la > colonna A del foglio, controllando se la prima cella corrisponde al nome > richiesto, quindi inserirei il dato (o i dati) alla dx all'interno di > un'array, quindi facilmente nel database. > Per esempio: > > Sub Main > Dim mNomi(2) > Dim mVar(2) > oDoc = ThisComponent > oSheet = oDoc.Sheets.getByName("Tabella1") > mNomi() = array("COGNOME","NOME","ETA'") > mVar() = array(sCognome,sNome,sVar) > For j=0 to UBound(mNomi) > For i=0 To 50 > oCell = oSheet.getCellByPosition(0,i) > If oCell.string = mNomi(j) Then > mVar(j) = oSheet.getCellByPosition(1,i).String > Exit For > Endif > Next > Next > print mVar(0) & "," & mVar(1) & "," & mVar(2) > End Sub > > Solo nel caso di "LONTANO" è necessario spostarsi in maniera predefinita, > potresti comunque fare un check sulla casella sopra per sicurezza. > > Spero sia utile. > > Ciao > Sergio > > Lo proverò intanto e comunque grazie mille !!!! > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [email protected] > For additional commands, e-mail: [email protected] > >
