Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

ricerca file e aprirlo in formato testo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

ricerca file e aprirlo in formato testo

Postdi zem » 07/07/11 22:46

Salve a tutti, vorrei sapere se e' possibile creare una cella dove io inserisco il nome del file, da cercare in una cartella specificata tramite macro, e aprirla in formato testo in una cella specifica dedicata solo a quello.

es: nel desktop tengo una cartella nominata "archivio" con all'interno altre cartelle e il mio obbiettivo e' ricercare un determinato file nella cartella "archivio" e nelle sottocartelle, e una volta trovato aprirlo in formato testo senza avere la possibilita' di modificarlo.

Spero di essere stato chiaro.
ciao a tutti ;)
Avatar utente
zem
Utente Junior
 
Post: 45
Iscritto il: 11/02/09 00:02

Sponsor
 

Re: ricerca file e aprirlo in formato testo

Postdi Avatar3 » 08/07/11 08:19

E' tutto abbastanza chiaro
tranne il fatto di aprirlo in formato testo
lo apri in formato testo se è un file.txt altrimenti...
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: ricerca file e aprirlo in formato testo

Postdi zem » 15/07/11 02:46

I file che devo ricercare sono in formato testo però sono senza estensione .txt
Grazie
Avatar utente
zem
Utente Junior
 
Post: 45
Iscritto il: 11/02/09 00:02

Re: ricerca file e aprirlo in formato testo

Postdi maxmula » 15/07/11 08:54

Per visualizzare il testo senza che sia possibile modificarlo, puoi pensare di piazzare un controllo TextBox con proprietà Enabled = False.

Per utilizzare i controlli devi visualizzare l'apposita toolbar: Visualizza/BArre degli strumenti/Controlli (non so se si chiami esattamente così: io ho excel in inglese e lì si chiama Control Toolbox.); clicchi sul controllo che serve (TextBox, ad esempio, trascini sul foglio e dimensioni a piacimanto, poi clicchi col destro e scegli Proprietà, impostando:
    (Name) = TESTO_FILE
    Enabled = False
    MultiLine = True
    WordWrap = False
    ScrollBars = 3
    Visible = True


Per aprire il file, puoi utilizzare la gestione file tradizionale: richiedi il nome file all'utente tramite il metodo GetOpenFilename (trovi tutte le informazioni necessarie sulla Guida di Excel ;) ), poi leggi in modo sequenziale il file scelto :

Codice: Seleziona tutto

    nomefile = application.GetOpenFilename(...)        '  Vedi guida x i parametri...
    if nomefile = False then Goto FINE   'esce se l'utente non ha selezionato alcun file

    F= FreeFile
    Open nomefile For Input As #F
        testo = Input$(LOF(F), F)
    Close #F
    TESTO_FILE.TEXT = testo
FINE:


Se non ho sbagliato a digitare qualche istruzione, così dovrebbe funzionare.

Ciao!
MAx
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34

Re: ricerca file e aprirlo in formato testo

Postdi Anthony47 » 18/07/11 22:50

zem, hai poi provato quanto ti e' stato suggerito da max?

Tieni presente che una soluzione piu' semplice e' quella di elencare il contenuto del file in un foglio di excel, una riga dopo l' altra.
Per questo la macro potrebbe essere
Codice: Seleziona tutto
Sub testor()
Scrivisu="Foglio2"       'Il foglio usato per listare il file; SARA' AZZERATO
    nomefile = Application.GetOpenFilename("Files (*.*), *.*")        '  Vedi guida x i parametri...
    If nomefile = False Then Exit Sub   'esce se l'utente non ha selezionato alcun file
Ri = 0
Sheets(Scrivisu).select
Cells.Clearcontents
F = FreeFile
    Open nomefile For Input As #F
Do While Not EOF(F)
    Ri = Ri + 1
    Line Input #F, Riga
    Cells(Ri, 1) = Riga
Loop
Close #F
End Sub

Questo funziona su excel; se invece hai OpenOffice allora non so come la macro si comporta.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "ricerca file e aprirlo in formato testo":


Chi c’è in linea

Visitano il forum: Nessuno e 14 ospiti