Risultati da 1 a 7 di 7

Discussione: Trasferire Dati Da Excel a TXT e Viceversa



  1. #1
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Trasferire Dati Da Excel a TXT e Viceversa

    Ciao a tutti , Premetto che questo e una delle tante cose che non sono mai riuscito ad imparare , per qui vi chiederei un pochino di pazzienza in merito .
    Allora , il mio problema e questo : Attraverso un Userform , e le classiche TextBox ; Inserisco logicamente dei dati all loro interno , Poi con un pulsante io Vorrei poter Trasferire tali dati in una TXT che tengo nella mia cartella di Lavoro posizionata nel Desktop.
    Ora la difficoltà maggiore sarebbe : Non solo trasferire questi dati in Pippo.TXT ; ma all'occorrenza riuscire a recuperarli sempre inserendoli nelle textBox.
    Porto un Esempio pratico : Nella prima text chiamata ID scrivo (0001) ; Nella Seconda textBox Chiamata Cognome , Scrivo (Pippo).
    Ora io vorrei che premendo un tasto questi due dati venissero salvati in una TXT per l'appunto chiamato pippo .
    E che all'occorrenza se io in un altra textbox chiamata (Ricerca) Scrivessi la Parola (Pippo) , essa dovrebbe andarmi a recuperare tutti i dati appartenete al Sig : Pippo e riposizionarli nelle apposite textbox. Secondo voi e possibile creare tutto questo ?
    Mi basterebbe solo che mi facciate vedere come creare tutto ciò e nulla di più , Grazie

    (P.S) Allego File Bozza ma Senza Codice in quanto sono gnaro di tutto
    File Allegati File Allegati

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Non ho capito se deve generare un file per ogni cognome o tutti in un unico file chiamato Pippo.txt

  3. #3
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Ciao Rubyk , Ma ! Vedi tu ? Se si potesse inserire tutto in un unico File Sarebbe meglio , Però anche sapere come generarne dei nuovi ad ogni Cognome non sarebbe male no ?
    Grazie infinite per la tua Tempestività , Saluti da Maurizio

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Secondo me è uno spreco di risorse generare un file per ogni cognome. Tempo fa avevo creato una routine del genere. Vedo di recuperarla e la posto.

  5. #5
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Grazie infinite Rubik , ma non stare li a diventare matto per me .
    Ho tralasciare i tuoi impegni per seguire me .
    Anxhe se io ho in definitiva un programma che mette tutto in una sola txt e sappia recuperare il tutto da essa a me va anche bene cosi.
    Questo perche pur avendo provato e riprovato piu volte ; penso che sia più facile ummettere dei dati e recuperarli in un formato txt ; piuttosto che in word.
    Tutto qui.
    Grazie comunque poi vedi tu Saluti e Buona Seeata

  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Ho adattato un mio vecchio lavoro al tuo file sicuramente migliorabile da qualche guru. Questo è il codice.

    Codice: 
    Private Sub Cmd_Chiudi_Click()
    End
    End Sub
    
    Private Sub Cmd_Salva_Dati_Click()
    Dim myFile As String
    
    myFile = ThisWorkbook.Path & "\Database.txt"
    Open myFile For Append As #1
        Write #1, TextBox1, TextBox2, TextBox3
        Debug.Print , TextBox1, TextBox2, TextBox3
    
    Close #1
    
    End Sub
    
    Private Sub Cmd_Trova_Cliente_Click()
    Dim Stringa As String
    Dim myFile As String
    Dim A As Integer, B As Integer, C As Integer
    
    ChDir ThisWorkbook.Path
        myFile = ThisWorkbook.Path & "\Database.txt"
        'myFile = Application.GetOpenFilename("File di testo,*.txt")
        If myFile = "Falso" Then
            MsgBox "Nessun file selezionato.", vbCritical + vbOKOnly, "Attenzione"
            Exit Sub
        End If
    
    Open myFile For Input As #1
    Do Until (EOF(1))
        Line Input #1, Stringa
        If InStr(Stringa, UserForm1.TextBox1) > 0 Then
            A = InStr(Stringa, ",")
            B = InStr(A + 1, Stringa, ",")
            C = B - A
            
            TextBox2 = Replace(Mid(Stringa, A + 1, C - 1), """", "")
            TextBox3 = Replace(Mid(Stringa, B + 1), Chr(34), "")
            GoTo Esci
        End If
    Loop
    Esci:
    Close #1
    
    End Sub
    File Allegati File Allegati

  7. #7
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Grazie Grazie Grazie ; infinite Rubik e prorpio quello che volevo io .
    Sei un genio come Sempre , Sinceri saluti e Buona Giornata da Maurizio

Discussioni Simili

  1. Trasferire dati automaticamente su due fogli diversi
    Di Dilly nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 25/07/16, 17:59
  2. Trasferire dati
    Di D@nilo nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 31/03/16, 16:02
  3. Macro per trasferire dati da una colonna in un unica cella...
    Di Danilo nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 03/03/16, 19:24
  4. Trasferire Dati da Excel a Word
    Di A.Maurizio nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 08/01/16, 21:01
  5. Trasferire i dati da un data base (campi e records) verso una tabella incrociata
    Di Gerardo Zuccalà nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 21/08/15, 07:35

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
  •