Novità

EXCEL E DINTORNI

druid ha scritto:
Buongiorno Baciccia, al momento utilizzo wetransfert perche' su MEGA ho gia' esaurito lo spazio a disposizione, avendo archiviato nel tempo tutta una serie di file; poi su wetransfert c'e' il discorso del tempo, i file durano da 1 a 3 giorni, poi vengono cancellati; siccome il file era destinato a te ed una volta scaricato non ha senso che rimanga in giro, in quanto verra' sostituito dalle tue nuove versioni. Volevo poi aggiungere una cosa, i file si scaricano anche senza registrarsi, basta accettare i coockie, i termini di servizio e la privacy e ti porta alla pagina di download (l'ho ri-testato ieri sera con un browser che non uso e su cui non ho i coockie impostati per il login automatico).
Ciao.
Clicca per espandere...
1731314942382.png
Caro Druid
ho, come ho già detto molte volte, alcuni limiti. Uno di questi, forse il peggiore, è che quando devo leggere qualcosa ad esempio una pagina Web, faccio fatica e spesso non riesco. E' come se fossi in grado di vedere solo una piccola parte di ciò che guardo e non l'insieme.
Di solito quando ho problemi di questo tipo chiedo aiuto a mi figlia che, però, ora non c'è.
Quindi non sono in grado di accedere al filetransfert.
Quindi se qualcuno ha scaricato la macro mi faccia il piacere di metterla su Mega che da lì sono in grado di scaricarla.
Grazie
Baciccia
 
Tra poco postero il file con la macro passatami da Druid (se ricordo bene).
Alcune considerazioni, penso funzioni, non l'ho testata, però per farla funzionare richiede alcuni cambiamenti in Microsoft Defender che ho cercato di spiegare così:

Procedura per escludere la macro da Windows Defender

  1. Apri Windows Security
    • Clic destro sull'icona di Windows
    • Seleziona "Impostazioni"
    • "Privacy e Sicurezza" -> "Windows Security" -> "Apri Windows Security"
  2. Imposta l'esclusione
    • Clicca "Protezione da virus e minacce"
    • Scorri fino a "Impostazioni di Protezione da virus e minacce"
    • Sotto "Esclusioni" clicca "Aggiungi o rimuovi esclusioni"
    • Clicca "Aggiungi un'esclusione"
    • Seleziona "Cartella"
    • Scegli la cartella dove si trova il file Excel
  3. Permessi specifici per Excel
    • Nelle stesse impostazioni di sicurezza
    • Aggiungi anche un'esclusione per il processo
    • Seleziona "Processo"
    • Aggiungi "EXCEL.EXE"
  4. Verifica
    • La cartella dovrebbe apparire nella lista delle esclusioni
      • EXCEL.EXE dovrebbe apparire nei processi esclusi
In VBA:

Alt + F11 per aprire l'editor VBA
Menu "Strumenti" -> "Riferimenti"
Spuntare:
"Microsoft XML, v6.0" (per MSXML2.XMLHTTP60)
"Microsoft ActiveX Data Objects 6.1" (per ADODB.Stream)

Senza questi riferimenti la macro non può utilizzare gli oggetti per il download. Dopo averli aggiunti, la macro dovrebbe funzionare correttamente anche nel nuovo file.
Per aprire l'editor VBA hai diverse opzioni:
Dalla barra multifunzione di Excel:
Scheda "Sviluppo" -> "Visual Basic"
Se non vedi la scheda "Sviluppo":
File -> Opzioni -> Personalizzazione barra multifunzione
Spunta "Sviluppo" nella lista a destra
Click destro su qualsiasi scheda della barra multifunzione:

"Personalizza barra multifunzione"
Spunta "Sviluppo" nella lista a destra
Altra scorciatoia da tastiera:
Alt + F11 non funziona, prova con:
Alt + L, poi L (per versioni italiane di Excel)

Oggi non ci sono e non riesco a capire se la spiegazione è correta o no. Leggo e rileggo e non capisco un acca!
Fantumazz! All'Alzheimer!

Provate e fatemi sapere. Se avete problemi non esitate chiedete (a qualcun altro) e se sono tornato con la testa vi risponderò.

Ho rinominato il file: Altri&Baciccia.Vers.1

Da ora in poi (se me ne ricordo) ogni file che ha qualche cambiamento avrà ...Vers.X
Se qualcuno vuole fare modifiche le faccia pure, postando il file come Altri&Baciccia.VersProva1
Avete capito? Bene spiegatemi che cavolo ho detto!

mega.nz

13.23 MB file on MEGA

mega.nz mega.nz

Tiramolla vi avviluppi tra le sue spire
Baciccia
 
mega.nz

13.34 MB file on MEGA

mega.nz mega.nz

Piccole modifiche alla macro Aggiorna Archivio. Ora, se non c'è, crea automaticamente il foglio Appoggio.
Controlla che gli estratti vengano scritti come numeri e non come testo (portandola su un altro file i numeri aggiunti avevano l'errore "Numero memorizzato come testo").
Controlla anche che MSXML2 e ADODB siano a posto (se non lo sono seguite le spiegazioni, se le capite, altrimenti chiedete)
C'è poi un nuovo foglio Rit1 che è una prova, vedrò poi se tenerlo, modificarlo, cancellarlo ecc.
Ho poi aggiunto Genio2 che è simile a Genio però in quindicine. Altro non ricordo.
Vi sono fogli che non ricordo più cosa fanno, a cosa servano accidenti!
Buon primo maggio
Baciccia
 
A me non dà errore.

Assicurati d'aver seguito questi passaggi:

Apri Windows Security
Clic destro sull'icona di Windows
Seleziona "Impostazioni"
"Privacy e Sicurezza" -> "Windows Security" -> "Apri Windows Security"
Imposta l'esclusione
Clicca "Protezione da virus e minacce"
Scorri fino a "Impostazioni di Protezione da virus e minacce"
Sotto "Esclusioni" clicca "Aggiungi o rimuovi esclusioni"
Clicca "Aggiungi un'esclusione"
Seleziona "Cartella"
Scegli la cartella dove si trova il file Excel
Permessi specifici per Excel
Nelle stesse impostazioni di sicurezza
Aggiungi anche un'esclusione per il processo
Seleziona "Processo"
Aggiungi "EXCEL.EXE"
Verifica
La cartella dovrebbe apparire nella lista delle esclusioni
EXCEL.EXE dovrebbe apparire nei processi esclusi

Poi apri il menu Sviluppo:

1731424647365.png

Clicca sulla prima icona sulla sinistra "Visual Basic"

1731424723524.png

Nella finestra che si apre clicca su "Strumenti":

1731424784608.png
Ora clicca su "Riferimenti":

1731424833795.png

Assicurati che questa voce abbia la spunta: 1731424890484.png
Assicurati che anche questa voce abbia la spunta: 1731425064218.png

Se non le vedi scorri la finestrella fino a trovarle e spuntale.

Questa è la parte della macro che effettua i controlli:
Private Function ControllaRiferimenti() As Boolean
Dim refMissing As String
refMissing = ""

' Controlla MSXML2
On Error Resume Next
Dim testXML As MSXML2.XMLHTTP60
Set testXML = New MSXML2.XMLHTTP60
If Err.Number <> 0 Then
refMissing = refMissing & "- Microsoft XML, v6.0" & vbNewLine
End If

' Controlla ADODB
Dim testStream As ADODB.stream
Set testStream = New ADODB.stream
If Err.Number <> 0 Then
refMissing = refMissing & "- Microsoft ActiveX Data Objects 6.1" & vbNewLine
End If
On Error GoTo 0

If refMissing <> "" Then
MsgBox "Mancano i seguenti riferimenti:" & vbNewLine & vbNewLine & _
refMissing & vbNewLine & _
"Aprire l'Editor VBA (Alt+F11), " & _
"menu Strumenti->Riferimenti e selezionare i riferimenti mancanti.", vbCritical
ControllaRiferimenti = False
Else
ControllaRiferimenti = True
End If
End Function

Sub AggiornaArchivio()
If Not ControllaRiferimenti() Then Exit Sub

' Verifica 7-Zip
If Dir("C:\Program Files\7-Zip\7z.exe") = "" Then
MsgBox "7-Zip non trovato. Installare 7-Zip nel percorso predefinito.", vbCritical
Exit Sub
End If

' Verifica permessi cartella
On Error Resume Next
Open ThisWorkbook.Path & "\test.tmp" For Output As #1
Close #1
Kill ThisWorkbook.Path & "\test.tmp"
If Err.Number <> 0 Then
MsgBox "Permessi insufficienti sulla cartella. Verificare i diritti di scrittura.", vbCritical
Exit Sub
End If
On Error GoTo ErrorHandler

Non ci capisci nulla? Neanch'io :oops: .

Se il problema continua speriamo in deus ex machina. Che significa? Non lo so. Volevo solo vantarmi con un po' di latino, che non conosco.

La prosperità si accompagni alla salute e alla felicità
Baciccia
 
mega.nz

13.35 MB file on MEGA

mega.nz mega.nz

Piccoli cambiamenti al "Quadro principale" ora se clicchi si Aggiungi non sposta più i cosi (accidenti come si chiamano?) per tornare al quadro principale. Quindi se li avete spostati dove cojo, cojo li li ritroverete. Sono abbastanza oscuro?

Il foglio Legge del terzo ha qualche aggiunta:

1731443921967.png
 
Baciccia4251 ha scritto:
Se la macro funziona, e io non ho fatto casini inenarrabili, non è necessario scaricare nulla. L'ho provata su file diversi e funziona. se solo si seguono le indicazioni fornite
Baicciin
Clicca per espandere...
Screenshot 2024-11-12 220236.png

Come prova ho rinominato il file 7-Zip che provvede allo scompattamento del file Archivio scaricato dalla Lottomatica, e mi ha dato lo stesso msg di errore dell'utente Pagano, quindi se il il programma 7-zip non e' installato, l' aggiornamento non funziona.
 
Buongiorno, volevo dire a chi non è riuscito a fare l'aggiornamente dell'archivioche basta installare 7zip copiare questa stringa : C:\Program Files\7-Zip\7z.exe e sostituirla nella macro aggiornamento archivio. Baciccia il tuo operato è stato perfetto. Buona giornata a tutti.
 
Baciccia4251, tutti ti chiedono di tutto e anche io rompo, non riesci a far trovare all' IA i Terni che hanno lo stesso ritardo su almeno 3 Ruote? Ovviamente aggiornabili ogni volta ce si aggiorna l'archivio..
Grazie in anticipi.. 💪
 
Pandit ha scritto:
Baciccia4251, tutti ti chiedono di tutto e anche io rompo, non riesci a far trovare all' IA i Terni che hanno lo stesso ritardo su almeno 3 Ruote? Ovviamente aggiornabili ogni volta ce si aggiorna l'archivio..
Grazie in anticipi.. 💪
Clicca per espandere...
Carissimo Pandit
non rompi affatto. Sei sempre il benvenuto. Ci proverò però il VBA forse non è il più indicato per ricerche di questo tipo. Il numero di terni da controllare, su tutte le ruote, è grande e i tempi rischiano di essere biblici. Comunque vedremo.
Un saluto fraterno
Baciccia
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 30 novembre 2024
    Bari
    25
    46
    41
    83
    89
    Cagliari
    13
    80
    42
    53
    51
    Firenze
    87
    26
    10
    34
    02
    Genova
    03
    69
    74
    44
    70
    Milano
    63
    55
    33
    53
    15
    Napoli
    90
    66
    76
    69
    23
    Palermo
    59
    58
    66
    24
    29
    Roma
    58
    43
    23
    05
    50
    Torino
    53
    34
    17
    15
    09
    Venezia
    90
    73
    82
    22
    39
    Nazionale
    25
    81
    37
    30
    58
    Estrazione Simbolotto
    Torino
    14
    10
    34
    44
    16
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto