ricerca file e aprirlo in formato testo

[zem]

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

[Avatar3]

E' tutto abbastanza chiaro
tranne il fatto di aprirlo in formato testo
lo apri in formato testo se è un file.txt altrimenti...

[zem]

I file che devo ricercare sono in formato testo però sono senza estensione .txt
Grazie

[maxmula]

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

[Anthony47]

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