Sviluppare funzionalita su Microsoft Office con VBA esportazione di massa di tutte le cartelle di lavoro in txt ma con formattazione

LoginRegistrati
Stai vedendo 22 articoli - dal 1 a 22 (di 22 totali)
  • Autore
    Articoli
  • #30287 Risposta

    ForumExcel
    Partecipante

      buonasera

      ho trovato questa procedura che esporta tutte le cartelle di lavoro in txt ma non esporta nel formato che mi occorre con formattazione dello spazio tra i numeri allego esempio dei numeri e qui la procedura se mi potete consigliare la modifica da eseguire grazie:

      Sub ExportSheetsToText()
      Dim xWs As Worksheet
      Dim xTextFile As String
      For Each xWs In Application.ActiveWorkbook.Worksheets
      xWs.Copy
      xTextFile = CurDir & "\" & xWs.Name & ".txt"
      Application.ActiveWorkbook.SaveAs Filename:=xTextFile, FileFormat:=xlText
      Application.ActiveWorkbook.Saved = True
      Application.ActiveWorkbook.Close
      Next
      End Sub

      Allegati:
      You must be logged in to view attached files.
      #30291 Risposta
      Oscar
      Oscar
      Partecipante
        11 pts

        Te l'ho copiata dal programma  così com'è devi solo modificare l'indirizzo dove vuoi salvare i tuoi File  e il foglio1 dove hai lo sviluppo

        Sub Esporta_Colonne()
        Application.ScreenUpdating = False
        Dim Riga, Colonna, Y, I As Integer
        Colonna = 5
        Riga = WorksheetFunction.CountA(Foglio1.Range("A:A"))
        ChDir ThisWorkbook.Path & "\Salva" & "\"  '<<<<<< Da modificare
        File = Application.GetSaveAsFilename(InitialFileName:=NomeFile, fileFilter:="File.Txt, *.txt,Testo Unicode, ", Title:="Lottoscar - Salva con Nome")
        If File <> False Then
        Dim FileExist As Boolean
        NomeFile = File
        If Dir(MyDir & "" & NomeFile) <> "" Then
                Select Case MsgBox("" & NomeFile _
                                      & vbCrLf & "File già esistente." _
                                      & vbCrLf & "                   " _
                                      & vbCrLf & "Sostituire il file?" _
                                      , vbYesNo Or vbExclamation Or vbDefaultButton1, "Lottoscar - Salva con Nome")
                Case vbNo
                Exit Sub
        End Select
        End If
        Application.DisplayAlerts = False
        Open NomeFile For Output As #1
        For Y = 1 To Riga
        For I = 1 To Colonna
        valore = Cells(Y, I).Value
        If I = Colonna Then
        valore = valore & vbCrLf
        Else
        valore = valore & " "
        End If
        Print #1, valore;
        Next I
        Next Y
        Close #1
        End If
        End Sub
        #30297 Risposta

        ForumExcel
        Partecipante

          Scusa per inserire il salvataggio nella stessa cartella di lavoro dove e stato aperto il file come fare?

          Grazie

          Giuseppe

          #30298 Risposta
          Oscar
          Oscar
          Partecipante
            11 pts

            Sostituisci la prima riga con la seconda

            ChDir ThisWorkbook.Path & "\Salva" & "\" '<<<<<< Da modificare

             

            ChDir ThisWorkbook.Path & "\"

            #30308 Risposta

            ForumExcel
            Partecipante

              Buongiorno sostituito riga ma ho errore runtime 76

              Grazie

              riporto procedura

              Sub Esporta_Colonne()
              Application.ScreenUpdating = False
              Dim Riga, Colonna, Y, I As Integer
              Colonna = 5
              Riga = WorksheetFunction.CountA(Foglio1.Range("A:A"))
              ChDir ThisWorkbook.Path & "\"
              File = Application.GetSaveAsFilename(InitialFileName:=NomeFile, fileFilter:="File.Txt, *.txt,Testo Unicode, ", Title:="Lottoscar - Salva con Nome")
              If File <> False Then
              Dim FileExist As Boolean
              NomeFile = File
              If Dir(MyDir & "" & NomeFile) <> "" Then
              Select Case MsgBox("" & NomeFile _
              & vbCrLf & "File già esistente." _
              & vbCrLf & " " _
              & vbCrLf & "Sostituire il file?" _
              , vbYesNo Or vbExclamation Or vbDefaultButton1, "Lottoscar - Salva con Nome")
              Case vbNo
              Exit Sub
              End Select
              End If
              Application.DisplayAlerts = False
              Open NomeFile For Output As #1
              For Y = 1 To Riga
              For I = 1 To Colonna
              valore = Cells(Y, I).Value
              If I = Colonna Then
              valore = valore & vbCrLf
              Else
              valore = valore & " "
              End If
              Print #1, valore;
              Next I
              Next Y
              Close #1
              End If
              End Sub

               

              #30310 Risposta
              Oscar
              Oscar
              Partecipante
                11 pts

                Riga = WorksheetFunction.CountA(Foglio1.Range("A:A"))     ' è sul foglio1 se sei su un'altro foglio  devi modificare il foglio  

                 

                Vedi il File allegato 

                Allegati:
                You must be logged in to view attached files.
                #30312 Risposta

                ForumExcel
                Partecipante

                  Non riesco i miei fogli di lavoro si chiamano 1 fino a 224

                  Grazie

                  Giuseppe

                  #30313 Risposta
                  Oscar
                  Oscar
                  Partecipante
                    11 pts

                    ForumExcel ha scritto:

                    Non riesco i miei fogli di lavoro si chiamano 1 fino a 224

                    E' la stessa cosa la macro va ovunque , allega il tuo File che vediamo

                    #30314 Risposta

                    ForumExcel
                    Partecipante

                      Ecco il file grazie tante

                      Giuseppe

                       

                      Allegati:
                      You must be logged in to view attached files.
                      #30316 Risposta
                      Oscar
                      Oscar
                      Partecipante
                        11 pts

                        Si ma non ho capito cosa devi fare , hai 224 fogli cosa li devi salvare tutti? e in che modo li vuoi salvare?

                        La riga che hai modificato non va così

                        vedi il File allegato che salva il foglio1

                        Allegati:
                        You must be logged in to view attached files.
                        #30318 Risposta

                        ForumExcel
                        Partecipante

                          Si tutti fogli di lavoro in txt separatore lo spazio come faile allegato salvato manualmente.

                          Grazie

                          Giuseppe

                          Allegati:
                          You must be logged in to view attached files.
                          #30320 Risposta
                          Oscar
                          Oscar
                          Partecipante
                            11 pts

                            ForumExcel ha scritto:

                            Si tutti fogli di lavoro in txt separatore lo spazio come faile allegato salvato manualmente.

                            Un File unico o 224 File

                            #30321 Risposta

                            ForumExcel
                            Partecipante

                              no tutti separati

                              Grazie

                              Giuseppe

                              #30322 Risposta
                              Oscar
                              Oscar
                              Partecipante
                                11 pts

                                La prova falla in una cartella vuota

                                Il File è quì sotto

                                Allegati:
                                You must be logged in to view attached files.
                                #30324 Risposta
                                Oscar
                                Oscar
                                Partecipante
                                  11 pts

                                  Vedi questo il primo salvava sempre il foglio1 , poi ho eliminato l'avviso di sovrascrittura

                                  Allegati:
                                  You must be logged in to view attached files.
                                  #30326 Risposta

                                  ForumExcel
                                  Partecipante

                                    errore 75  in allegato 

                                    Allegati:
                                    You must be logged in to view attached files.
                                    #30328 Risposta

                                    Aldo Ercolini
                                    Partecipante
                                      3 pts

                                      Senza nulla togliere a @oscar, se vuoi provare questo, fa la stessa cosa con un concetto leggermente diverso, ma proprio iniezie.

                                      L'ho provato fino al foglio 3 e funzionava.

                                      Non ho messo nessun pulsante, l'ho provato con F5. Come far partire la Macro decidilo Tu.

                                      Allegati:
                                      You must be logged in to view attached files.
                                      #30330 Risposta

                                      ForumExcel
                                      Partecipante

                                        Grazie Aldo funziona mi chiede di confermare il nome lo faro 224 volte nessun problema ideale sarebbe stato il salvataggio nella cartella di lavoro dei 224 files txt.

                                        Grazie mille faccio una donazione questo è doveroso.

                                        Giuseppe

                                         

                                        #30333 Risposta

                                        Aldo Ercolini
                                        Partecipante
                                          3 pts

                                          Questo penso faccia quello che chiedi.

                                          Salva tutti i fogli in un txt che ha come nome il nome del foglio e li posiziona nella stessa cartella dove e' posizionato il file excel.

                                          Chiede solo se sovrascrivere.

                                          Allegati:
                                          You must be logged in to view attached files.
                                          #30335 Risposta

                                          Aldo Ercolini
                                          Partecipante
                                            3 pts

                                            Se tu volessi ritornare alla versione con il "Salva con nome" basta tu tolga il commento alla riga:

                                            file = Application.GetSaveAsFilename(InitialFileName:=xWs.Name, fileFilter:="File.Txt, *.txt,Testo Unicode, ", Title:="Lottoscar - Salva con Nome")

                                            e lo metti alla riga:

                                            file = xWs.Name & ".txt"

                                            #30336 Risposta

                                            ForumExcel
                                            Partecipante

                                              perfetto Grazie!!!!!!!!!!!!!!!!!!!!!

                                              #30337 Risposta
                                              Oscar
                                              Oscar
                                              Partecipante
                                                11 pts

                                                Così non ti chiede piu di sovrascrivere

                                                Allegati:
                                                You must be logged in to view attached files.
                                              LoginRegistrati
                                              Stai vedendo 22 articoli - dal 1 a 22 (di 22 totali)
                                              Rispondi a: esportazione di massa di tutte le cartelle di lavoro in txt ma con formattazione
                                              Gli allegati sono permessi solo ad utenti REGISTRATI
                                              Le tue informazioni:



                                              vecchio frac - 2750 risposte

                                              patel
                                              patel - 1073 risposte

                                              albatros54
                                              albatros54 - 1058 risposte

                                              Marius44
                                              Marius44 - 970 risposte

                                              Luca73
                                              Luca73 - 766 risposte