Eine Excel-Tabelle in eine Textdatei mit fester Breite exportieren?

Excel verfügt über die Funktion zum Importieren von Textdateien mit fester Breite, in denen ein Dialogfeld angezeigt wird, in dem Sie auswählen können, wo die Felder beginnen und enden, die in Spalten abgelegt werden sollen.

Hat es auch Funktionen, mit denen Sie bei einer vorhandenen Tabelle in eine Textdatei mit fester Breite exportieren können ?

Wenn ja, wie kann ich darauf zugreifen? Ich habe versucht, mit Speichern unter und Auswahl von Textdatei, aber es scheint nur als Tabulator-getrennt zu speichern, was mir nicht hilft.

Dies ist Excel 2003, wenn es darauf ankommt.

Ich denke, das Beste, was Sie mit nativen Excel-Funktionen erreichen können, ist Speichern unter | Formatierter Text (durch Leerzeichen getrennt) (* .prn) . Es werden automatisch die Breiten ermittelt und Leerzeichen eingefügt, um diese nach Bedarf aufzufüllen.

Darüber hinaus benötigen Sie ein Makro oder ein anderes Add-In, mit dem Sie mehr tun können.

Wenn Sie über Office Professional verfügen, können Sie Ihre Excel-Datei in Access öffnen und anschließend aus Access exportieren. In Access können Sie ein Layout mit fester Breite für Ihre exportierte Datei festlegen und die Breite äußerst detailliert steuern.

Wow, ich wollte diese Frage selbst stellen, aber sie wurde bereits gestellt. Die gesamte Ausgabe der Excel-Zwischenablage ist tabstandardmäßig begrenzt. Dies ist ärgerlich für "echte" Nur-Text-Ausgaben, wenn Sie eine Schriftart mit fester Breite haben, aber nicht unbedingt Tabulator-Trennzeichen unterstützen.

Wie auch immer, ich habe ein kleines Excel-Makro gefunden und modifiziert, das den aktuell ausgewählten Bereich als einfache ASCII-Tabelle mit Spalten fester Breite kopiert - wie folgt:

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

Hier ist der Makrocode. Stellen Sie zur Verwendung sicher, dass Sie die Registerkarte Entwickler in den Excel-Optionen aktivieren, wenn Sie Excel 2007 oder höher verwenden.

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

Formatieren Sie Ihre Daten zunächst als Courier New (oder eine andere Schriftart mit fester Breite). Speichern Sie dann als .prn und Sie erhalten eine echte feste Breite.

Erweitere die Antwort von Jeff Atwood, da ich dort keinen Kommentar abgeben würde:

Ich habe sein Makro geändert, um die Spaltenbreite auf die breiteste Zelle in dieser Spalte einzustellen und jede Spalte mit einer eigenen Breite zu versehen. Sein Makro fand nur die breiteste Zelle in der ersten Zeile und stellte dann die Breite aller Spalten darauf ein.

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

Das ist ein Mörder für mich. Es gibt auch einige Optionen.

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

Dies funktioniert mit Access out of the box: https://support.office.com/de-de/article/export-data-to-a-text-file-f72dfc38-a8a0-4c5b-8c2c-bf2950814140#bmsteps So habe ich es ganz einfach und schnell geschafft - besser als mit Excel. In meinem Fall war es eine Konvertierung der Tabelle.