Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Nuovo script
- Creatore Discussione KEN
- Data di inizio
Baciccia4251
Advanced Member
Bene. Se hai bisogno d'aiuto chiedi.
Ciao
KEN
Senior Member
come prima
pazienza
Baciccia4251
Advanced Member
Ho chiesto a Chatgdp (puoi usarlo anche tu)
excel lanciando un programma appare questo avviso: "Si è verificato un errore: Metodo "Run" dell'oggetto: IWshell3 non riuscito
ChatGPT ha detto:
L'errore che stai incontrando, "Si è verificato un errore: Metodo 'Run' dell'oggetto: IWshell3 non riuscito", è spesso legato a problemi con la modalità in cui un programma esterno o uno script sta cercando di essere eseguito all'interno di Excel tramite un oggetto WScript.Shell.Questo errore può presentarsi in diverse situazioni, ma generalmente indica che Excel sta cercando di eseguire un comando tramite il metodo Run dell'oggetto IWshShell (un componente di scripting che permette di eseguire comandi esterni o lanciare applicazioni) e qualcosa non funziona come previsto.
Possibili cause e soluzioni:
- Percorso del file errato o mancante:Se l'oggetto Run sta cercando di avviare un programma o uno script e il percorso del file è errato o il file è mancante, si verificherà un errore.
- Verifica che il percorso del file o programma che stai cercando di eseguire esista e sia corretto.
- Assicurati che eventuali variabili di ambiente (se usate) siano configurate correttamente.
- Autorizzazioni insufficienti:Se stai tentando di eseguire un programma o uno script che richiede privilegi di amministratore, potrebbe essere necessario eseguire Excel come amministratore per consentire l'esecuzione.
- Prova a eseguire Excel come amministratore (tasto destro su Excel > "Esegui come amministratore").
- Problemi di compatibilità con la versione di Excel o Windows:Se il codice che stai eseguendo è stato scritto per una versione precedente di Excel o Windows, potrebbe non funzionare correttamente.
- Assicurati che il codice sia compatibile con la versione attuale di Excel e con il sistema operativo.
- Impostazioni di sicurezza:Excel potrebbe bloccare l'esecuzione di macro o script che cercano di eseguire programmi esterni.
- Controlla le impostazioni di sicurezza delle macro in Excel: vai su File > Opzioni > Centro protezione > Impostazioni Centro protezione > Impostazioni macro e verifica se le macro sono abilitate.
- Se il problema riguarda un codice VBA che lancia un programma esterno, prova a disabilitare temporaneamente le opzioni di protezione (ma fai attenzione a eventuali rischi di sicurezza).
- Sintassi del codice VBA:Se l'errore è causato da un errore nel codice VBA che utilizza WScript.Shell, puoi provare a correggere la sintassi o usare una versione alternativa del comando. Ad esempio:
Problemi con l'oggetto IWshShell:Se l'oggetto WScript.Shell è danneggiato o non è registrato correttamente, potrebbe essere necessario eseguire una riparazione del sistema o registrare nuovamente l'oggetto:
- Puoi provare a registrare nuovamente WScript.Shell tramite il comando da prompt dei comandi:
Come procedere:
- Verifica se il problema si verifica con un comando specifico o uno script in particolare.
- Controlla il codice VBA per assicurarti che il percorso del programma o dello script sia corretto.
- Esegui Excel come amministratore e verifica se l'errore persiste.
- Controlla le impostazioni di sicurezza di Excel per assicurarti che le macro e gli script siano abilitati.
In questo momento la mia testa è su Marte, quindi non sono in grado i interpretare il messaggio di Chatgdp.
In attesa che la testa torni o che qualcuno ti dia la dritta corretta prova:
1) Apri il Prompt dei Comandi come Amministratore e digita regsvr32 %indir%\system32\wscript.dll
2) Prova ad aprire il programma come Amministratore
3) Ricontrolla che Macro e Script siano abilitati (appena rientro in possesso della testa) se non sai come fare, te lo spiego
Spero sinceramente che qualcun altro intervenga, per una soluzione in tempi rapidi
Baciccia senza Testa
Baciccia4251
Advanced Member
13.18 MB file on MEGA
Eliminati i fogli Futuro e acc. non ricordo, comunque visto che non riuscivo a farli funzionare correttamente mi sono arreso.
Ho però fatto alcune modifiche e aggiunto il foglio AnalisiRuotaP che alla prima prova mi ha dato un piccolo risultato, ricordate che probabilmente è solo un caso, prima di metterci soldi controllate per un po' di estrazioni cosa succede e se e quando avrete conferme provate:
Il foglio è qusto:
Non riesco a ricordare (toh!) come ho scelto i numeri, mi sembra d'aver scritto su un foglio gli ultimi 5 estratti in verticale e afianco di ognuno i numeri con maggior frequenza e quelli ripetuti due o più volte. 67 e 71 erano i due con la frequenza più alta e gli altri 3 ripetuti più volte. (Forse)
Funziona così: aprite il foglio RuotaP Cliccate su elabora e selezionate la ruota che volete. Quando ha finito (abbiate pazienza) Cliccate su AnalisiRuotaP, ad un certo punto vi chiederà di scegliere come ordinarla, vi sono tre opzioni 1- Secondo la frequenza, e altre due Numero Base e Numero successivo. Terminata l'elaborazione dovrebbe aprire automaticamente il foglio AnalisiRuotaP dove troverete i dati, appare anche la ruota selezionata, l'ultima estrazione, con gli estratti. A mio modo di vedere se seguita per un po' potrebbe dare qualche indicazione. Se avete suggerimenti... suggerite.
In maniera similare funziona VenusP, i passi sono gli stessi ma non la ho ancora controllata o usata. Provate gente, provate.
La fortuna vi accompagni assieme alla sete di giustizia, tolleranza e amore
Baciccia che un po' c'è e spesso non c'è
Baciccia4251
Advanced Member
ho provato a fare una previsione su Torino, in base al foglio che ho postato, in base agli ultimi estratti e scegliendo i numeri che avevano una maggior frequenza e/o una alta relazione reciproca, usciva questo:
Il 3 indicava come più probabile il 15 che però era uscito contestualmente al 3, quindi non era da considerare (in questo caso)
Il 15 indicava il 3 stesso ragionamento.
Il 41 (e anche il 44) indicava il 35, da prendere in considerazione
Il 44 indicava (come il 41) il 35 e il 43-44 (il 44 era uscito quindi si esclude)
84 indicava 88
Quindi la previsione era 35.38.43.78.88 su Torino. Si poteva giocare 1,25 euro ambo, 50 cent. terno, 20 cent quaterna, 5 cent cinquina, 1 euro ambetto (come la schedina che avevo postato)
Quello che volevo giocare, poi quando sono uscito, solo per giocare al lotto, sono andato a comprare cose che non mi servivano all'Ipercoop, dimenticando di giocare. Va beh!
Ecco cosa è uscito a Torino:
sono usciti 1 ambo 38.43 e (se non sbaglio) due ambetti 38.77 e 43.77
Il 3 indicava come più probabile il 15 che però era uscito contestualmente al 3, quindi non era da considerare (in questo caso)
Il 15 indicava il 3 stesso ragionamento.
Il 41 (e anche il 44) indicava il 35, da prendere in considerazione
Il 44 indicava (come il 41) il 35 e il 43-44 (il 44 era uscito quindi si esclude)
84 indicava 88
Quindi la previsione era 35.38.43.78.88 su Torino. Si poteva giocare 1,25 euro ambo, 50 cent. terno, 20 cent quaterna, 5 cent cinquina, 1 euro ambetto (come la schedina che avevo postato)
Quello che volevo giocare, poi quando sono uscito, solo per giocare al lotto, sono andato a comprare cose che non mi servivano all'Ipercoop, dimenticando di giocare. Va beh!
Ecco cosa è uscito a Torino:
sono usciti 1 ambo 38.43 e (se non sbaglio) due ambetti 38.77 e 43.77
|
Baciccia4251
Advanced Member
Savona
mega.nz
Ascolta perché è un po complesso, non capire, ma spiegare.
Nel foglio Archivio troverai un nuovo pulsante chiamato "Aggiorna Archivio Ken". Che bello! Dirai. Aspetta
Direttamente dall'Ufficio Complicazioni Affari Semplici:
1) scarica questo file:
Ti apparirà una finestra col file da scaricare, scegli di scaricarlo nello stesso posto dove hai il programma Excel
Estrai il file e rinominalo come: storico_locale.txt (deve essere nella stessa Cartella del file Excel)
2) Apri il file del lotto, vai sul foglio Archivio e clicca su "Aggiorna Archivio Ken", se non hai fatto errori e se ci sono estrazioni da aggiungere verranno aggiunte. Nel caso non vi fossero estrazioni da aggiungere una finestra ti dirà: BuuuH! Per spaventarti. No. In realtà farà solo presente che non vi sono nuove estrazioni.
Un po' macchinoso ma l'ho provato con altre versioni di Excel e funziona.
Fino a che qualcun altro darà una soluzione migliore.
Buon non Onomastico
Bacicciuk
13.18 MB file on MEGA
Nel foglio Archivio troverai un nuovo pulsante chiamato "Aggiorna Archivio Ken". Che bello! Dirai. Aspetta
Direttamente dall'Ufficio Complicazioni Affari Semplici:
1) scarica questo file:
Ti apparirà una finestra col file da scaricare, scegli di scaricarlo nello stesso posto dove hai il programma Excel
Estrai il file e rinominalo come: storico_locale.txt (deve essere nella stessa Cartella del file Excel)
2) Apri il file del lotto, vai sul foglio Archivio e clicca su "Aggiorna Archivio Ken", se non hai fatto errori e se ci sono estrazioni da aggiungere verranno aggiunte. Nel caso non vi fossero estrazioni da aggiungere una finestra ti dirà: BuuuH! Per spaventarti. No. In realtà farà solo presente che non vi sono nuove estrazioni.
Un po' macchinoso ma l'ho provato con altre versioni di Excel e funziona.
Fino a che qualcun altro darà una soluzione migliore.
Buon non Onomastico
Bacicciuk
Baciccia4251
Advanced Member
13.36 MB file on MEGA
www.igt.it/STORICO_ESTRAZIONI_LOTTO/storico01-oggi.zip (ora il link funziona) ricorda dopo averlo estratto rinominalo: storico_locale.txt
Baciccia
Antonio Pagano
Senior Member
Baciccia a che foglio fai riferimento puoi ripostarlo?.grazie
Baciccia4251
Advanced Member
Dal foglio RuotaP, se vai sul post Excel e dintorni trovi una breve spiegazione:
Questo è il foglio RuotaP
Poi segui le istruzioni e ti porterà sul foglio AnalisiRuotaP:
Buon divertimento
Baciccia
Baciccia4251
Advanced Member
No. Nessuna Maledizione. Devi fare così: crea la cartella "MaledettoArchivioOTiAggiorniOtiSpacco" o come preferisce nominarla, copiaci dentro il file Excel e il file storico_locale.txt (seguendo la procedura: scarichi l'archivio dal link che ti ho messo, estrai il file e lo rinomini storico_locale.txt). Se tutto è fatto correttamente vedrai che funziona. L'avviso che ti è apparso mi fa sospettare che 1) i file si trovino in cartelle diverse oppure 2) non hai rinominato in maniera corretta il file. A volte, lo so per esperienza, si fanno errori banali tipo rinominare col segno - al posto del segno _ e cose del genere. La macro funziona, altrimenti non ti sarebbe apparso il messaggio d'errore.Buongiorno devo informarti che ancora non funziona , credo che ho preso la maledizione dell'archivioVedi l'allegato 2293606Vedi l'allegato 2293607
Ti allego il file txt correttamente nomato.
Prima di provare recita:
Uocchi, contruocchi, scatta maluocchio;
uocchi, contruocchi, crepa maluocchio.
Invoca Totò, De Filippo e Ave Ninchi
e ricorda: Sorridi... Domani sarà peggio.
Baciccia Portafortuna
Antonio Pagano
Senior Member
Baciccia buona Domenica, puoi far visualizzare nella textbox l'ultima data presente nell'archivio storico_locale.txt, il vba lo sto imparando leggendo il tuo foglio ma moltissime cose sono ancora incomprensibili per me. Ti ringrazio in anticipo.
Antonio Pagano
Senior Member
Baciccia4251
Advanced Member
Quindi qualcosa hai Capito! Beato te! Io non ci capisco una mazza. Per me il VBA significava "VogliamociBeneAmore", tanto che a mia moglie dicevo sempre VBA, VBA, VBA. e lei gentilmente rispondeva FC, mah! Le donne!. Guardo quelle strane cose che si susseguono nelle Macro e che per magia fanno apparire cose che a volte capisco anche meno.
Comunque, credimi, ci ho provato: mi sono concentrato e, a occhi chiusi, per assorbire energia dall'Universo, ho pensato APPARI! APPARI!!
Ma non è apparso niente
. Si vede che il mio Angelo Custode è in ferie, oppure l'ultimo FC lo ha offeso? 
La risposta dell'AI:
Sub LeggiUltimaData()
Dim filePath As String
Dim ultimaRiga As String
Dim ultimaData As String
' Apri la finestra di dialogo per selezionare il file
filePath = Application.GetOpenFilename("File di testo (*.txt), *.txt")
' Verifica che un file sia stato selezionato
If filePath = "False" Then
MsgBox "Nessun file selezionato", vbExclamation
Exit Sub
End If
' Apri il file e leggi l'ultima riga
Open filePath For Input As #1
Do While Not EOF(1)
Line Input #1, ultimaRiga
Loop
Close #1
' Estrai la data dalla prima parte della riga (prima del tab)
ultimaData = Left(ultimaRiga, 10)
' Assumendo che tu abbia già una TextBox chiamata TextBox1
Me.TextBox1.Value = ultimaData
End Sub
Da adattare alla tua situazione. Io ci ho provato. L'uovo era fritto alla perfezione
.è l'occasione giusta per diventare esperto nullasapiente come me. Apri Chatgdp su internet e rivolgile la stessa domanda, scoprirai un mondo
e diventerai come me un nientologo che fa programmi.
Poi qualcuno ti chiederà: ...puoi far visualizzare nella textbox l'ultima data presente nell'archivio ...
e così scopriranno quanto nulla ne sai...
Baciccia il Nientologo
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 23 novembre 2024Bari3380865225Cagliari6757590580Firenze3132588877Genova4039233681Milano2858452538Napoli2082234457Palermo7656886231Roma1281597472Torino4653724523Venezia0412426420Nazionale6344781055Estrazione Simbolotto
Torino
4342123922
