You are here:--creare file testo saltando celle vuote
creare file testo saltando celle vuote2019-08-18T10:47:59+01:00

Home Forum Domande su Excel VBA e MACRO creare file testo saltando celle vuote

  • Autore
    Articoli
  • Avatarteto21162
    Partecipante
      Post totali: 79

      Salve a Tutti,

      con la macro che segue partendo da un range in un foglio excel creo un file txt.

      Nel range di riferimento, che contiene risultati di formula capita di avere delle celle vuote in quanto ho impostato che se non soddisfa certi criteri la formula =se  contenuta deve inserire “”

      Ma il codice sotto nel creare il file di testo mi considera le celle con risultato “” come ” a capo ”

      Vorrei modificare il codice in modo che creasse il file senza questi ” a capo ” ma solo considerando i dati delle celle piene.

      Grazie per l’aiuto

      Teto

      Sub ScriviTesto_2()
      Dim MyFile As String
      Dim Cella As Range
      Dim Stringa As String
      Dim mioRange As Range
      Dim FileSystemObj As Object
      Dim TextStreamFileObj As Object

      ChDir ThisWorkbook.Path
      ‘MyFile = ThisWorkbook.Path & “\” & Range(“M2”) & “.txt”
      MyFile = ThisWorkbook.Path & “\” & Range(“w12”) & “.txt”

      Set FileSystemObj = CreateObject(“Scripting.FileSystemObject”)
      Set TextStreamFileObj = FileSystemObj.CreateTextFile(MyFile, True)

      ‘Set mioRange = Range(“A1:” & Range(“m1”))
      ‘Set mioRange = Range(“x14:x24”)
      Set mioRange = Range(“y2:y24”)

      For Each Cella In mioRange
      Stringa = Cella
      TextStreamFileObj.Writeline (Stringa)
      Next

      TextStreamFileObj.Close

      Set mioRange = Nothing
      Set FileSystemObj = Nothing
      Set TextStreamFileObj = Nothing

      End Sub

      Ecco il codice:

       

      • Questo argomento è stato modificato 3 mesi, 2 settimane fa da Avatar teto21162.
    • BySalvBySalv
      Amministratore del forum
        Post totali: 547

        Ciao Teto, allora la formula se() prova ad inserire ” ” con lo spazio invece di “” e vedi se va bene.

        Ciao By Sal (8-D

      • Avatarteto21162
        Partecipante
          Post totali: 79

          Ciao Sal,

          ho provato a modificare la formula SE da “” a ” ” ma non funziona la formula nel senso che il dato a a cui si riferisce non fa scattare l’inserimento di ” ” ma comunque lo spazio non è considerato dato?

          La conseguenza è che il codice che crea il file txt considera ancora spazio le celle interessate.

          Teto

        • BySalvBySalv
          Amministratore del forum
            Post totali: 547

            Non puoi inserire un esempio senza dati sensibili, cosi vedo.

            Ciao By Sal (8-D

          Devi essere loggato per rispondere a questa discussione.

          Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

          Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

          Chiudi