Risultati da 1 a 8 di 8

Discussione: Salvare il contenuto di una textBox in .TXT



  1. #1
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Salvare il contenuto di una textBox in .TXT

    Gent.mi,


    non trovando nulla sulla rete, sono a chiederVi una gentilezza per poter salvare il
    contenuto di una TextBox (su UserForm) in formato .TXT creando possibilmente una cartella
    sul Desktop.


    Anticipatamente ringrazio, saluto.


    Domenico.

  2. #2
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Salvare il contenuto di una textBox in .TXT

    Gent.mi,
    faccio seguito alla precedente per essere riuscito a creare la cartella sul Desktop con il
    seguente codice:


    > Dim cartella As Variant
    cartella = "File TXT"
    If cartella = "" Then Exit Sub
    MkDir "c:\Users\User\Desktop\" & cartella
    Exit Sub


    mi rimane il salvataggio del contenuto della TextBox in formato .TXT nella cartella

    creatasi.


    Ringrazio per l'aiuto.



    Domenico

  3. #3
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1119
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Salvare il contenuto di una textBox in .TXT

    sarebbe utile un file di esempio da testare comunque prova così:
    Codice: 
    Sub a()
    
    DestFile = "c:\Users\User\Desktop\File TXT\nomefile.txt"
    FileNum = FreeFile()
    Open DestFile For Output As #FileNum
    Print #FileNum, Textbox1.Text
    Close #FileNum
    End Sub

  4. #4
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Salvare il contenuto di una textBox in .TXT

    Gent.mo Patel,


    ringrazio della disponibilità e mi scuso per non aver inserito nella discussione il file di
    esempio.
    Ho provato e purtroppo non sono riuscito.
    Ho notato che, creato la cartella sul desktop, cliccando nuovamente, mi da errore.
    nell'augurare una buona giornata, saluto.



    Domenico.
    File Allegati File Allegati

  5. #5
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1119
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Salvare il contenuto di una textBox in .TXT

    ti da errore perché la cartella sul desktop la devi creare manualmente e non da macro, altrimenti tutte le volte che clicchi sul pulsante cerca di crearla di nuovo e non può visto che già esiste.
    la tua macro diventa
    Codice: 
    Private Sub Cmd_Premi_Click()
    
    Dim nuova As Variant
    Dim DestFile As Variant
    Dim FileNum As Integer
    DestFile = "c:\Users\User\Desktop\File TXT\file.txt"
    FileNum = FreeFile()
    Open DestFile For Output As #FileNum
    Print #FileNum, TextBox1.Text
    Close #FileNum
    
    
    End Sub

  6. #6
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Salvare il contenuto di una textBox in .TXT

    Gent.mo Patel,



    con la cartella già creata sul Desktop funziona.

    Una domanda forse banale non si potrebbe creare una condizione? se la cartella esiste non

    tenerla in considerazione?
    Attualmente, per la poco conoscenza in VBA, cerco senza riuscire.
    Mi scuso e saluto


    Domenico.

  7. #7
    L'avatar di robynud
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Gardone Val Trompia
    Età
    45
    Messaggi
    155
    Versione Office
    Office 2016
    Likes ricevuti
    24
    Likes dati
    65

    Re: Salvare il contenuto di una textBox in .TXT

    ciao Pacifico437 prova cosi
    Codice: 
    
    Private Sub Cmd_Premi_Click()
    
    Dim DestFile As Variant
    Dim FileNum As Integer
    Dim Indirizzo As String
    Dim NomeCartella As String
    
    Indirizzo = Range("A2").Value    '<<< Qui ci metti l'indirizzo dove creare la cartella se non vuoi usare il valore della cella "A2"
    NomeCartella = Range("B2").Value '<<< Qui cimetti il nome della cartella se non vuoi usare il valore della cella "B2"
    ChDrive "C"
    If Dir(Indirizzo & NomeCartella, vbDirectory) = "" Then 
        MkDir (Indirizzo & NomeCartella)
    End If
    
    DestFile = "C:\Users\Robynud\Desktop\File TXT\Esempio.txt" '<<< Qui devi cambiare il tuo indirizzo del file
    FileNum = FreeFile()
    Open DestFile For Output As #FileNum
    Print #FileNum, TextBox1.Text
    Close #FileNum
    
    End Sub
    Edit: Ops Scusa patel non avevo visto la tua risposta
    File Allegati File Allegati
    Ultima modifica fatta da:robynud; 16/05/16 alle 11:43 Motivo: Ops Scusa pate non avevo letto la tua risposta

  8. #8
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1119
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Salvare il contenuto di una textBox in .TXT

    robynud la tua rsposta è validissima e migliore della mia, ho voluto semplificare.

Discussioni Simili

  1. in una textbox scrivere su più righe
    Di raffaelealta nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 11/02/17, 04:21
  2. [Risolto] SetFocus su una TextBox
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 07/10/16, 13:09
  3. Popolare la TextBox
    Di dautattmaui nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 04/05/16, 20:42
  4. Lettera nella textbox
    Di dautattmaui nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 22/02/16, 11:23
  5. Risposte: 4
    Ultimo Messaggio: 07/10/15, 16:09

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •