Ciao "!LAZZARO" non mi si apre il programma ma solo un immagine del mega programma.
Intendi questo?
Ufficio complicazioni affari semplici di mega si è inventata questa merdata, scusate ma la volgarità è necessaria!
devi cliccare sulla freccia in giù
Poi visto che hai problemi con spaziometria e il suo archivio prova questo, intendiamoci io sono un coyons, non so nulla, anzi nulla è già troppo!
Prova a far così (ne hai provate tante, una in più...)
Apri il programma che hai scarica e vai su Archivio:
dentro trovi questo:
Clicca su "Crea storico txt"
Una volta finito apri Spaziometria, e apri elabora Script
Incollaci dentro questo:
'Aggiorna archivio lotto di Spaziometria (Ramco)_apr2026
'Versione modificata per usare storico.txt generato da Excel
Option Explicit
Sub Main
Dim sDirTemp,sFileBd
Dim sCData,nSalvate
Dim sDataEstr,sDataLastEstr
Dim nEstrTot,id,z,b
Dim aRighe,k
Dim sData,sSigla
Dim aEstr,r,c
Dim aCampi
sFileBd = GetDirectoryAppData & "BaseDati.dat"
' --- Percorso file TXT ---
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
' 2 = cartella TEMP di Windows
sDirTemp = fso.GetSpecialFolder(2) & "\storico.txt"
' --- Verifica esistenza file TXT ---
If Not fso.FileExists(sDirTemp) Then
Call Scrivi("ERRORE: il file storico.txt non esiste.",True,,,vbRed)
Call Scrivi("Generarlo prima da Excel con la macro CreaStoricoTXT.",True)
Set fso = Nothing
Exit Sub
End If
Set fso = Nothing
' --- Lettura righe del file TXT ---
ReDim aRighe(0)
If Not LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
Call Scrivi("ERRORE: impossibile leggere storico.txt.",True,,,vbRed)
Exit Sub
End If
' --- Dati archivio corrente ---
nEstrTot = EstrazioniArchivio
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
z = Right(sDataLastEstr,4) & "/" & Mid(sDataLastEstr,4,2) & "/" & Left(sDataLastEstr,2)
id = IndiceAnnuale(nEstrTot)
b = False
' --- Loop sulle righe del file TXT ---
ReDim aEstr(11,5)
sCData = ""
For k = 0 To UBound(aRighe)
If ScriptInterrotto Then Exit For
If Trim(aRighe(k)) <> "" Then
aCampi = Split(aRighe(k),vbTab)
If UBound(aCampi) >= 6 Then
sData = Trim(aCampi(0)) ' AAAA/MM/GG
sSigla = Trim(aCampi(1))
' --- Nuova data ---
If sData <> sCData Then
If b = True Then
If sCData <> "" Then
If Left(sCData,4) <> Left(sData,4) Then id = 0
id = id + 1
sDataEstr = Right(sCData,2) & "/" & Mid(sCData,6,2) & "/" & Left(sCData,4)
If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
nSalvate = nSalvate + 1
Call Messaggio(nSalvate)
Else
ColoreTesto 2
Call Scrivi("ATTENZIONE: errore salvataggio estrazione " & sCData,True)
ColoreTesto 0
End If
End If
End If
If sCData = z Then b = True
ReDim aEstr(11,5)
sCData = sData
End If
' --- Rimappatura sigle ---
If sSigla = "BA" Then r = 1
If sSigla = "CA" Then r = 2
If sSigla = "FI" Then r = 3
If sSigla = "GE" Then r = 4
If sSigla = "MI" Then r = 5
If sSigla = "NA" Then r = 6
If sSigla = "PA" Then r = 7
If sSigla = "RM" Then r = 8
If sSigla = "TO" Then r = 9
If sSigla = "VE" Then r = 10
If sSigla = "RN" Then r = 11
' --- Numeri ---
For c = 1 To 5
aEstr(r,c) = Format2(CInt(Trim(aCampi(c + 1))))
Next
End If
End If
Call AvanzamentoElab(0,UBound(aRighe),k)
Next
' --- Salva ultima estrazione ---
If b = True Then
If sCData <> "" Then
id = id + 1
sDataEstr = Right(sCData,2) & "/" & Mid(sCData,6,2) & "/" & Left(sCData,4)
If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
nSalvate = nSalvate + 1
End If
End If
End If
' --- Riepilogo ---
If nSalvate > 0 Then
AllineaArchivi
Call Scrivi()
Call Scrivi("Script per Spaziometria - Aggiornamento da file Excel",True,,,vbBlue)
Call Scrivi()
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
Call Scrivi()
Call Scrivi("Estrazioni totali: " & EstrazioniArchivio)
Call Scrivi()
Call Scrivi("RAMCOLOTTO",True,,,vbBlue)
Else
Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
End If
End Sub
A questo punto lancia lo Script
SE tutto va bene aggiornerà l'archivio, nel mio caso, avendo l'archivio già aggiornato mi dà:
Nel caso dovesse non funzionare, procediamo passo, passo, con la disinstallazione completa di Spaziometria (disinstallazione veramente completa, poi se sarà necessari ti spiego). Passo successivo reinstallazione di Spaziometria, il resto te lo spiegherò se sarà necessario.
Se non erro hai qualche difficoltà con l'informatica in generale, non ti preoccupare, formeremo una squadra invincibile! Tu che capisci poco, io che non capisco una mazza. Ricostruiremo l''Universo1 Pst.. chi è Dio al nostro confronto!
Ho trovato un post di Baciccia che, più o meno diceva: Non capisciandi dell'Universo uniamoci... Forse troveremo qualcuno che capisce qualcosa!
