XlsLeggiinFoglio

[claudio8]

XlsLeggiinFoglio

sto provando ad usare questa funzione
XlsLeggiinFoglio
Function XlsLeggiinFoglio(xlsFoglio, sNomeCella)
Descrizione
In un foglio specifico torna il valore letto nella cella specificata
Note
Valore di ritorno
Parametri

xlsFoglio	Oggetto Excel.Worksheet precedentemente aperto
sNomeCella	Coordinate della cella in cui scrivere ad esempio "A1"

Qualcuno la ha mai utilizzata ?
con XlsApriFile inserito prima di questa funzione, dovrebb già essere stato istanziato/aperto,
però
"Oggetto Excel.Worksheet precedentemente aperto" non lo trova e mi da:
errore 424- Necessario oggetto.

Grazie

Setup aggiornato spaziometria nuovo argomento

Versione 1.3.67 Elenco modifiche Tabellone circolare Possibilita di selezionare i numeri nel cerchio senza metterli in gioco col click sinistro saranno messi in gioco col click destro solo evidenziati usando colori differenti a scelta dell'utente Pannello Estrazione dove si possono...

forum.lottoced.com

 

[Mike58]

Claudio,prova a darti un mio punto di veduta.
Intanto quel codice XlsLeggiinFoglio non l'ho mai usato ma ho visto che è esistente nei codici vbscript.
Invece il file XlsApriFile in passato lo avevo usato ed avevo lo scopo di riscrivere in un file esistente la cella o le celle che si volevano scrivere.

Oggi questo script (fatto per qualche Utente) non mi funziona più non lo apre in quanto non trova il giusto percorso e mi dice anche che manca una qualche DLL (quindi non funzionante).

Chiaro sono script di qualche anno fa che usavo tempo addietro e funzionavano per lo scopo di scrittura file anche esistente e in cella voluta.

Mi spiace ma in questa direzione è tutto quello che posso dirti.

Invece per scrivere un qualche dato da script io uso uno script più semplice e funzionante, lo metto per tua utilità, ma sicuramente non è quello che ti serve.

Ciao

'Option Explicit
Sub Main
   Dim Ini,Fin,nSorte,sRiga,sFileCsv
   Dim aCol(1),aRuote(1)
   nSorte = 1
   Inix = 9501
   Finx = EstrazioneFin
   Ini = 3950'EstrazioneFin - 200 ' range analisi
   Fin = 9500'EstrazioneFin
   ResetTimer
   ' prepara il file csv
   sFileCsv = GetDirectoryAppData & "temp\Analisi.csv"
   Call EliminaFile(sFileCsv)
   ' scrive i titoli delle colonne nel file csv
   '-------------------------------------------------------------
   sRiga = " " ' spazio 1
   Call ScriviFile(sFileCsv,sRiga,False) ' scrive spazio 1
   sRiga = " " 'spazio 2
   Call ScriviFile(sFileCsv,sRiga,False)
   sRiga = " " 'spazio 3
   Call ScriviFile(sFileCsv,sRiga,False) ' scrive spazio 3
   sRiga = " " 'spazio 2
   Call ScriviFile(sFileCsv,sRiga,False)
   sRiga = " " 'spazio 3
   Call ScriviFile(sFileCsv,sRiga,False) ' scrive spazio 5
   '--------------------------------------------------------------
   sRiga = "id;Ruota;Numero;Ritardo;RitardoMax;Frequenza;FRe/sto;iniz;Fine;ClpSortita"
   Call ScriviFile(sFileCsv,sRiga,False)
   '--------------------------------------------------------------------------------------------------
   ' imposta i numeri da sviluppare (tutti e 90)
   For n = 1 To 90
      For r = 1 To 10' : If r = 11 Then r = 12
         aCol(1) = n
         aRuote(1) = r
         b = SeriePrima(Inix,Finx,aCol,aRuote,1)
         Call StatisticaFormazioneTurbo(aCol,aRuote,nSorte,RitAtt,RitMax,,Freq,Ini,Fin)
         ' conteggio colonna corrente
         k = k + 1
         sRiga = k & ";"
         sRiga = sRiga & NomeRuota(aRuote(1)) & ";"
         sRiga = sRiga & StringaNumeri(aCol) & ";"
         sRiga = sRiga & RitAtt & ";"
         sRiga = sRiga & RitMax & ";"
         sRiga = sRiga & Freq & ";"
         sRiga = sRiga & Int((freq/ritmax*100)) & ";"
         sRiga = sRiga & Inix & ";"
         sRiga = sRiga & b & ";"
         sRiga = sRiga & b - Inix
         Call ScriviFile(sFileCsv,sRiga,False)
         Call AvanzamentoElab(1,900,k)
         If ScriptInterrotto Then Exit For
      Next
   Next
   '.....................................................................................................
   Call CloseFileHandle(sFileCsv)
   Call LanciaFile(sFileCsv)
   Scrivi "File scritto in Excel",1
   Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
End Sub

 

[claudio8]

Claudio,prova a darti un mio punto di veduta.
Intanto quel codice XlsLeggiinFoglio non l'ho mai usato ma ho visto che è esistente nei codici vbscript.
Mike, XlsLeggiinFoglio esiste tra le funzioni di "vbsSpazioscript" è solo che non riesco a farlo funzionare, sopra ho inserito quanto specificato in Help, probablmente non essendo stato testato neanche da Luigi, è passato nel dimenticatoio.

Invece il file XlsApriFile in passato lo avevo usato ed avevo lo scopo di riscrivere in un file esistente la cella o le celle che si volevano scrivere.

Grazie dello script, ma per comodità visiva di lettura ho dovuto creare delle tabelle/archivio che scrivo in excel e rivedo in excel. Per poterle usare come tali (archivi), devo poter leggere nei fogli o file xls (ruota x ruota quindi foglio x foglio) onde verificare ipotesi di gioco con le varie funzioni di Spazioscript.
In sostanza creo l'archivio o lo aggiorno, attraverso vbscipt o Vbspazioscript ma non riesco a prelevare i dati dai fogli per farli elaborare dagli script.
Ho trovato tra gli scripti Test uno script di Luigi (n° 3 test_XlsFunction ) ma nessuno dei 3 ha nel costrutto XlsLeggiinFoglio . Potrebbe anche essere che a me manchi quello con XlsLeggiinFoglio.
Se puoi verificare tra i tuoi file test, ti ringrazio.
Ciao

ps: metto qui il link della vers. spm in cui sono state inserite queste funzioni.
Luigi scrisse:
(Nella directory script\test sono presenti 3 esempi Test_ClsFunction.ls
Test_ClsFunction2.ls ,Test_ClsFunction3.ls che dimostrano l'utilizzo) ( intendeva Test_ XlsFunction)
https://forum.lottoced.com/threads/setup-aggiornato-spaziometria-nuovo-argomento.90841/page-35#post-1379624
oppure prova a lanciare una ricerca tra gli script(tasto cannocchiale) con quuesto testo: XlsLeggiinFoglio

 

[Mike58]

Per il codice XlsLeggiinFoglio , non trovo neanche io esempi anche con la ricerca cannocchiale in script e non saprei come usarlo e in quale costrutto anche se in quello che cerchi di fare mi sembra iter costrutto più logico.

Negli script Cartella Test ci sono solo i 3 script di esempio e ri-confermo che xlsApriFile non mi funziona più mi manca la DLL(sarà andata persa) .

Purtroppo non avendo mai avuto la necesità di fare l'inverso leggere il foglio e cella da excel, non saprei come utilizzarlo e senza il relativo mio test non posso esserti di aiuto.

Se Esiste XlsLeggiinFoglio e la piattaforma lo riconosce dovrebbe funzionare, bisogna trovare il giusto iter del costrutto.

Da parte mia se risolvo il problema della dll mancante posso anche riprovare, ma in questo momento le mie energie sono altre cosa da capire.

Un saluto

 

[claudio8]

Pare che abbia risolto usando il Vbscript normale, non il vbspazioscript sto testando ... sembra molto lento.
Grazie Mike,
sai dirmi se cè na funzione che dalla data estrazione ne ricava il numero?
ciao

 

[Mike58]

No !!! Claudio, non penso che si possa estrapolare dalla sola data anche se lo vedi associato a GetInfoEstrazione, ma ricavarlo non credo esista la funzione.
Ciao

 

[Mike58]

Claudio, chi cerca trova.... e cosi dalla DataEstrazione si può ricavare il numero Id estrazione con la funzione
dello script.

Sub Main
  Scrivi DataEstrazione(10057,False,0,".")
  Scrivi DataEstrToIdEstr (19,3,2022) questo scrive iD Numero estrazione
End Sub

 

[claudio8]

Claudio, chi cerca trova.... e cosi dalla DataEstrazione si può ricavare il numero Id estrazione con la funzione
dello script.

Sub Main
  Scrivi DataEstrazione(10057,False,0,".")
  Scrivi DataEstrToIdEstr (19,3,2022) questo scrive iD Numero estrazione
End Sub

Grazie Mike, per i test ho sostituito nel foglio excel le data con il numero e ho fatto una 1a ricerca x Ambata.

c   1) es 10019 codice 05 -> 41 esce al   1° colpo FI .. .. 41 .. ..
c   2) es 10023 codice 05 -> 69 esce al  12° colpo FI .. .. .. 69 ..
c   3) es 10042 codice 05 -> 74 esce al   8° colpo FI .. .. 74 .. ..

c   1) es 10011 codice 06 -> 73 esce al   3° colpo FI 73 .. .. .. ..
c   3) es 10013 codice 06 -> 74 esce al   8° colpo FI 74 .. .. .. ..
c   4) es 10015 codice 06 -> 41 esce al   5° colpo FI .. .. 41 .. ..
c   5) es 10027 codice 06 -> 52 esce al   9° colpo FI .. .. .. 52 ..
c   7) es 10040 codice 06 -> 37 esce al   8° colpo FI .. .. .. .. 37

c   1) es 10010 codice 07 -> 69 esce al  25° colpo FI .. .. .. 69 ..
c   2) es 10017 codice 07 -> 63 esce al  15° colpo FI 63 .. .. .. ..
c   3) es 10018 codice 07 -> 14 esce al  12° colpo FI 14 .. .. .. ..
c   5) es 10023 codice 07 -> 52 esce al  13° colpo FI .. .. .. 52 ..
c   6) es 10026 codice 07 -> 51 esce al   3° colpo FI .. .. .. .. 51
c   7) es 10032 codice 07 -> 37 esce al  16° colpo FI .. .. .. .. 37
c  10) es 10044 codice 07 -> 37 esce al   4° colpo FI .. .. .. .. 37
c  11) es 10046 codice 07 -> 66 esce al   1° colpo FI .. .. .. 66 ..
c  13) es 10049 codice 07 -> 74 esce al   1° colpo FI .. .. 74 .. ..
c  14) es 10052 codice 07 -> 68 esce al   5° colpo FI .. .. 68 .. ..

Niente male su 50 estrazioni i casi a valore 6 e 7 con range ristretti
grazie mille, a buon rendere