MACRO DI EXCEL (O DI ACESS)

[Gattuccio0]

Sono senza parole Flash! Funziona alla perfezione.

Quindi se io ora dovessi utilizzare lo stesso procedimento per altre ricette dovrei andare a compilare semplicemente l'elenco del file listaRic.txt ed il gioco è fatto?

[Flash30005]

Sono senza parole Flash! Funziona alla perfezione.

Quindi se io ora dovessi utilizzare lo stesso procedimento per altre ricette dovrei andare a compilare semplicemente l'elenco del file listaRic.txt ed il gioco è fatto?

Ma scherzi?
Il file ListaRic.txt come listaRic.cfg li puoi anche cancellare vengono ricreati automaticamente.
l'unica cosa da fare per non ripetere gli stessi file (le stesse ricette) sarebbe opportuno spostare i file processati quindi senza modificare il percorso, per il momento, prova a togliere quegli otto file e mettere nella directory Ricette3 altri file.doc (di ricette) vedrai che avrai il tuo file excel aggiornato.
Se tutto è ok, ti modificherò la macro in maniera tale da spostare i file processati man mano che vengono trascritti nel foglio di excel

Fammi sapere
Ciao

[Flash30005]

Aggiungo che sarebbe opportuno sapere come hai organizzato le tue ricette
Percorso della/le directory
Se tutte le ricette devono andare sullo stesso foglio o in fogli diversi o in cartelle (file) di excel diverse
Insomma ora si tratta di automatizzare e personalizzare alle tue esigenze la/le macro

Ciao

[Gattuccio0]

Ciao Flash,
ho fatto la prova aggiungendo altri fila ma si sono verificati alcuni bugs.
All'indirizzo www.marcialisgroup.com/html/dl/limmagin ... cette3.zip ti ho messo la cartella compresi di files nuovi ed il foglio di Excel con il risultato finale.
Alcuni errori probabilmente sono dovuti al fatto che, essendo documenti in Word che hanno parecchi anni, hanno un'intestazione oppure elementi grafici (tipo _________________________________________) che magari hanno creato dei conflitti (penso...).

Gattuccio

[Flash30005]

Ciao Flash,
ho fatto la prova aggiungendo altri fila ma si sono verificati alcuni bugs.
All'indirizzo http://www.marcialisgroup.com/html/dl/l ... cette3.zip ti ho messo la cartella compresi di files nuovi ed il foglio di Excel con il risultato finale.
Alcuni errori probabilmente sono dovuti al fatto che, essendo documenti in Word che hanno parecchi anni, hanno un'intestazione oppure elementi grafici (tipo _________________________________________) che magari hanno creato dei conflitti (penso...).

Gattuccio

Il tuo link mi dà errore di explorer, sei sicura che hai postato il link giusto?
(prova a cliccarci sopra anche tu)
ciao

[Gattuccio0]

Ho sbagliato a scriverlo...eccolo www.marcialisgroup.com/dl/limmaginario/Ricette3.zip

P.S. Flash, sono un uomo

[Flash30005]

Quello che temevo si è avverato...
I file da te inviati inizialmente sono dei file .txt rinominati arbitrariamente e brutalmente in .doc
mentre (ad es.) il file 00335.doc, come altri postati ora sono dei veri file di word (con formattazione e struttura) quindi hai un archivio non omogeneo dal quale è un po' difficile poter realizzare una macro che "capisca" quale file sta trattando.
Ho fatto una prova, ho aperto il file 00335.doc con word e l'ho salvato in file .txt l'ho rinominato in .doc e la macro funziona (anche se c'è da sistemare qualcosa).
Quindi ora bisogna pensare a convertire tutti i file .doc in file .txt

Vado a mangiare perché con tutte queste ricette mi è venuta fame
e chissà se a stomaco pieno mi viene qualche idea....
Ciao

[Gattuccio0]

Immaginavo ci fosse qualcosa sotto: le ricette sono state create in un arco di quasi 20 anni, create con i vari programmi, riaperte e risalvate.
Diciamo che la buona maggioranza potrebbe essere stata creata in Word. Il tuo file, per esclusione, importa i file giusti con la segnalazione degli errori.
Potrei prendere i file "imperfetti" riaprirli e risalvarli in Word...di sicuro si tratta di una minoranza.

Buon appetito.

[Gattuccio0]

Ho fatto una prova con 528 ricette:
6 sono corrette.
90 sono semi corrette in quanto nel testo della ricetta il titolo (che dovrebbe essere alfa numerico) non è contenuto nella prima riga bensì nella seconda:

anzichè essere:

01053
SFORMATO DI FAGIOLINI

ho:
#Titolo: SFORMATO DI FAGIOLINI
#Codice:1053
#Testo:;;;;;;; ;;;;;Ingredienti per 6 pers;;300 gr di fagiolini verdi;1/2 cipolla..ecc.

E tutte le altre sono presenti con: ÐÏࡱ
Quindi, per un'analisi spannometrica, ti dovrei dare almeno un file per tipo. Giusto?

[Flash30005]

Eccomi,
Ci ho lavorato un po' su e sono riuscito con i 34 file inviati ad ottenere un risultato credo soddisfacente
scarica questo archivio
http://rapidshare.com/files/248262207/Ricette.zip.html
scompattalo e avrai una cartella Ricette (da posizionare nella root)
Questa cartella contiene delle sotto-directory con programma e file
Il programma e i file del programma sono contenuti nella Root di Ricette
I file .doc vanno posizionati in C:\Ricette\3\. (qui)
Il processo è suddiviso in due parti la prima (AvvioConvWord) attiva una macro di word (ho dovuto farla con word, poi spiegherò perché) che trasforma tutti i file .doc in file testo (dos) in maniera da eliminare qualsiasi codice-struttura di word.
La seconda (CreaArch è avviata dalla prima macro) fa l'elenco dei file Txt li processa e inserisce i dati nel foglio di excel.
Ho cercato di eliminare righe non volute ma su 600 file ci potrà essere qualche sorpresa in più che non su 34 file.
Una volta finito vengono spostati tutti i file .Doc in ArchivioDoc e i file txt in ArchivioTxt
vengono cancellati i file temporanei, ListaRic.txt ListaRic.cfg etc
Tutti i file .bat devono rimanere nella directory Ricette

Devi solo aprire il file DbRicette3.xls e avviare solo la macro "AvvioConvWord" e aspettare che finisca.

Prova e fai sapere

Ciao

P.s. L'apertura del file word non è visibile.
Ho notato che per elaborare 34 file il mio Pc (non di ultima generazione) ha impiegato 14 secondi quindi per 600
ricette dovresti impiegare
circa 5 minuti

[Flash30005]

Le spiegazioni sono valide come da post precedente
per il programma (archivio completo) è preferibile questo
http://rapidshare.com/files/248322335/Ricette4.zip.html

Ciao

[Gattuccio0]

Ciao Flash,
ho fatto tutto dietro tue istruzioni: apro il file DbRicette3.xls ed avvio solo la macro "AvvioConvWord".
Mi compare un pop-up con:
Errore di run-time '5111:
Comando non disponibile su questa piattaforma (Set fs = Application.FileSearch)

Do l'OK su Fine e ne compare un altro con:
Errore di run-time '445:
Azione non valida per l'oggetto (Set fs = Application.FileSearch)

E poi..."Attendere. Un'altra applicazione sta completando un'azione Ole"

Tutti glie errori mi vengono segnalati sia con i file del primo link sia con quelli del secondo (applicazione completa).

[Gattuccio0]

...inoltre il file ConvF.doc rimane sempre in uso da Microsoft Office Word

[ricky53]

Ciao,
il messaggio di errore vuol dire che stai utilizzando il 2007.
Confermi?

Il 2007 non supporta più quelle funzionalità.
Tempo fa trovai nel blog di Gianni Giaccaglini un suo intervento che spiegava come fare per sostituire ... non ricordo altro.

Ciao da Ricky53

[Gattuccio0]

Confermo Ricky...uso il "meraviglioso" 2007...

[Gattuccio0]

Ciao Ricky, ti riferivi a questo http://blog.shareoffice.it/giannigiacca ... /8987.aspx

Gattuccio

[Flash30005]

Ok, tagliamo la testa al toro!
Ho eliminato la routine FileSearch e ho impostato un timer al suo posto
La routine serviva per sincronizzare il programma macro con i file Batch del dos che creano i file da processare e a volte la macro non trovava il file in quanto ancora non generato dal file .bat quindi facevo aspettare il processo macro fino a che non trovava i file .cfg
Ora ho impostato 3 secondi di attesa e sembra che (con 34 file) siano sufficienti
quindi invio di nuovo l'archivio
http://rapidshare.com/files/248458833/Ricette5.zip.html

Fai sapere
Ciao

[Gattuccio0]

Flash...è perfetto!
Ho fatto la prova con i 34 files...ci impiega circa 14/19 secondi (come a te) ma funziona perfettamente.
Ho fatto una prova con oltre 100 files ma, durante il procedimento di lavorazione mi appare sempre il pop-up

"Attendere. Un'altra applicazione sta completando un'azione Ole" (che tra le altre cose non ho mai sentito).

Dato che ho circa 18.456 ricette...penso che me la prenderò con calma e farò le operazioni a scaglioni di 50/80 file alla volta.

Gattuccio

[Flash30005]

Flash...è perfetto!
Ho fatto la prova con i 34 files...ci impiega circa 14/19 secondi (come a te) ma funziona perfettamente.
Ho fatto una prova con oltre 100 files ma, durante il procedimento di lavorazione mi appare sempre il pop-up

"Attendere. Un'altra applicazione sta completando un'azione Ole" (che tra le altre cose non ho mai sentito).

Dato che ho circa 18.456 ricette...penso che me la prenderò con calma e farò le operazioni a scaglioni di 50/80 file alla volta.

Gattuccio

Era quello che prevedevo i 3 secondi sono sufficienti per una cinquantina di file ma oltre è troppo poco tempo
iLa routine Filesearch si "adattava" alle esigenze: faceva un loop fino a che il programma dos non si completava e forniva i file Lista.Potrei provare ad adattare la soluzione di ripiego per office 2007 del link postato da te...
Comunque fai una prova:
aumenta i secondi di ritardo nella macro excel CreaArch in questo punto

Codice: Seleziona tutto

Ini = Timer
ritardo = 3
Pausa:
If Timer < Ini + ritardo Then GoTo Pausa

prova a mettere Ritardo = 10
Stessa cosa nella macro word in ConvF.doc ma fai attenzione
prima di aprire il file ConvF.doc svuota la cartella C:\Ricette\3 da file .doc altrimenti ti si apriranno tante finestre word per ogni file che hai in quella cartella, ancora meglio se subito dopo aver lanciato il file blocchi la macro con i tasti Alt + Pausa (Break) e vai in debug, modifichi la macro con Riatardo = 10 e salvi il file
Fatto questo, elabora prima 100 e poi 500 file (in ogni caso io non andrei oltre i 1000 file anche modificando ulteriormente il ritardo)

Prova e fai sapere
Ciao

P.s. Ma il messaggio "Attendere. Un'altra applicazione sta completando un'azione Ole" non ti permette di andare oltre? ha un pulsante ok, annulla etc? E se aspetti cosa succede?

[Gattuccio0]

Ho messo Ritardo = 10 stanto attento a non toccare nulla d'altro e, stessa cosa nella macro word in ConvF.doc. Ho lanciato l'applicazione con le prime 100 ma la cosa strana è che:

mi appare un pop-up con:
Errore di run-time '5153:

Impossibile attribuire a un documento lo stesso nome di un documento aperto.
Digitare un nome differente.
(C:\Ricette|3|2_031.txt)

Risultato: nella cartella .doc ci sono tutti e 100 i documenti. In quella .txt ce n'è uno solo. Difatti il risultato della macro è stata la compilazione di una riga.

Il messaggio "Attendere. Un'altra applicazione sta completando un'azione Ole" mi permette sì di andare oltre premendo OK ma ne vengono fuori in continuazione. Ho provato a lasciarlo perdere...ho aspettato 20 minuti ma poi ho interrotto.