Esportare un foglio di calcolo Excel in un file di testo a larghezza fissa?

Excel ha la funzionalità di importare file di testo a larghezza fissa in cui presenta una finestra di dialogo che ti consente di scegliere dove sono l'inizio e la fine dei campi che inserisce nelle colonne.

Ha anche funzionalità in cui, dato un foglio di calcolo esistente, è possibile esportare in un file di testo a larghezza fissa?

In tal caso, come accedo a questo? Ho provato a usare Salva con nome e scegliendo File di testo ma sembra salvarlo solo come delimitato da tabulazioni, il che non mi aiuta.

Questo è Excel 2003 se è importante.

Penso che il più vicino che puoi ottenere dalla funzionalità nativa di Excel sia Salva con nome | Testo formattato (spazio delimitato) (* .prn) . Determinerà automaticamente le larghezze e inserirà gli spazi da riempire a quella larghezza, se necessario.

Oltre a ciò è necessario disporre di una macro o altro componente aggiuntivo che ti permetterà di fare di più.

Se si dispone di Office Professional, è possibile aprire il file Excel in Access e quindi Esporta da Access. Access ti consentirà di specificare un layout a larghezza fissa per il tuo file esportato e ti darà controlli estremamente granulari per specificare quelle larghezze.

Caspita, stavo per fare questa domanda da solo ma era già stata posta. Tutto l'output degli Appunti di Excel è tabdelimitato per impostazione predefinita. Questo è un po 'fastidioso per l'output di testo "reale" quando hai un carattere a larghezza fissa ma non necessariamente il supporto del delimitatore di tabulazione.

Comunque, ho trovato e modificato una piccola macro di Excel che copierà la regione attualmente selezionata come una semplice tabella ASCII a colonne a larghezza fissa - in questo modo:

187712 201 37 0,18   
2525 580 149 0,25   
136829 137 43 0,31   

Ecco il codice macro. Per usarlo, assicurati di abilitare la scheda Sviluppatore in Opzioni di Excel se stai utilizzando Excel 2007 o versioni successive.

Sub CopySelectionToClipboardAsText()

   ' requires a reference to "Windows Forms 2.0 Object Library"
   ' add it via Tools / References; if it does not appear in the list
   ' manually add it as the path C:\Windows\System32\FM20.dll

    Dim r As Long, c As Long
    Dim selectedrows As Integer, selectedcols As Integer

    Dim arr
    arr = ActiveSheet.UsedRange
    selectedrows = UBound(arr, 1)
    selectedcols = UBound(arr, 2)

    Dim temp As Integer
    Dim cellsize As Integer
    cellsize = 0
    For c = 1 To selectedcols
        temp = Len(CStr(Cells(1, c)))
        If temp > cellsize Then
            cellsize = temp
        End If
    Next c
    cellsize = cellsize + 1

    Dim line As String
    Dim output As String

    For r = 1 To selectedrows
        line = Space(selectedcols * cellsize)
        For c = 1 To selectedcols
            Mid(line, c * cellsize - cellsize + 1, cellsize) = Cells(r, c)
        Next c
        output = output + line + Chr(13) + Chr(10)
    Next r

    Dim MyData As MSForms.DataObject
    Set MyData = New DataObject
    MyData.SetText output
    MyData.PutInClipboard

    MsgBox "The current selection was formatted and copied to the clipboard"

End Sub

Innanzitutto, formatta i tuoi dati come Courier New (o qualche altro carattere a larghezza fissa). Quindi salva come .prn e otterrai una larghezza fissa reale.

Espandendo la risposta di Jeff Atwood, dal momento che non mi lasciava commentare lì:

Ho modificato la sua macro per impostare la larghezza della colonna sulla cella più larga in quella colonna e per avere ogni colonna la propria larghezza. La sua macro ha trovato solo la cella più ampia nella prima riga e quindi ha impostato la larghezza di tutte le colonne su di essa.

Sub CopySelectionToClipboardAsText()

   ' requires a reference to "Windows Forms 2.0 Object Library"
   ' add it via Tools / References; if it does not appear in the list
   ' manually add it as the path C:\Windows\System32\FM20.dll

    Dim r As Long, c As Long, linesize As Long
    Dim selectedrows As Integer, selectedcols As Integer

    Dim arr
    arr = ActiveSheet.UsedRange
    selectedrows = UBound(arr, 1)
    selectedcols = UBound(arr, 2)
    ReDim CellSizes(1 To selectedcols, 2) As Integer

    Dim temp As Integer
    Dim cellsize As Integer
    linesize = 0
    For c = 1 To selectedcols
        cellsize = 0
        For r = 1 To selectedrows
            temp = Len(CStr(Cells(r, c)))
            If temp > cellsize Then
                cellsize = temp
            End If
        Next
        CellSizes(c, 0) = cellsize + 1
        CellSizes(c, 1) = linesize
        linesize = linesize + cellsize + 1
    Next c

    Dim line As String
    Dim output As String

    For r = 1 To selectedrows
        line = Space(linesize)
        For c = 1 To selectedcols
            Mid(line, CellSizes(c, 1) + 1, CellSizes(c, 0)) = Cells(r, c)
        Next c
        output = output + line + Chr(13) + Chr(10)
    Next r

    Dim MyData As MSForms.DataObject
    Set MyData = New DataObject
    MyData.SetText output
    MyData.PutInClipboard

    MsgBox "The current selection was formatted and copied to the clipboard"

End Sub

Questo è un assassino per me. Ha anche alcune opzioni.

http://www.sensefulsolutions.com/2010/10/format-text-as-table.html

Funziona con Access out of the box: https://support.office.com/en-ie/article/export-data-to-a-text-file-f72dfc38-a8a0-4c5b-8c2c-bf2950814140#bmsteps con questo il modo in cui l'ho gestito abbastanza facilmente e velocemente - meglio che con Excel. Nel mio caso è stata una conversione della tabella.