Excel verfügt über die Funktion zum Importieren von Textdateien mit fester Breite. Dort wird ein Dialogfeld angezeigt, in dem Sie auswählen können, wo die Anfangs- und Endpunkte der Felder in Spalten eingefügt werden.
Verfügt es auch über eine Funktionalität, bei der Sie bei einer vorhandenen Kalkulationstabelle in eine Textdatei mit fester Breite exportieren können ?
Wenn ja, wie kann ich darauf zugreifen? Ich habe versucht, "Speichern unter" zu verwenden und "Textdatei" auszuwählen, aber es scheint nur als Tabulatorzeichen zu speichern, was mir nicht weiterhilft.
Dies ist Excel 2003, wenn es darauf ankommt.
Ich denke, die beste Funktion, die Sie mit der nativen Excel-Funktionalität erreichen können, ist Speichern unter | Formatierter Text (durch Leerzeichen getrennt) (* .prn) . Die Breiten werden automatisch bestimmt und Leerzeichen eingefügt, um diese Breite bei 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 dann aus Access exportieren. Mit Access können Sie ein Layout mit fester Breite für Ihre exportierte Datei festlegen und erhalten äußerst detaillierte Steuerelemente für die Angabe dieser Breiten.
Wow, ich wollte diese Frage selbst stellen, aber sie wurde schon gestellt. Alle Excel-Zwischenablage-Ausgaben sind tabstandardmäßig begrenzt. Dies ist etwas ärgerlich für die Ausgabe von "echtem" Klartext, wenn Sie eine Schriftart mit fester Breite haben, aber nicht unbedingt eine Unterstützung für Tabulatorzeichen.
Jedenfalls habe ich ein kleines Excel-Makro gefunden und geändert, das den aktuell ausgewählten Bereich als einfache ASCII-Tabelle mit Spalten mit fester Breite kopiert.
187712 201 37 0,18 2525 580 149 0,25 136829 137 43 0,31
Hier ist der Makrocode. Stellen Sie 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 zunächst Ihre Daten als Courier New (oder eine andere Schriftart mit fester Breite). Speichern Sie dann als .prn und Sie erhalten eine feste Breite.
Auf Jeff Atwoods Antwort eingehen, da ich mich nicht dazu äußern würde:
Ich habe sein Makro geändert, um die Spaltenbreite auf die breiteste Zelle in dieser Spalte festzulegen und jede Spalte ihre eigene Breite zu haben. Sein Makro hat nur die breiteste Zelle in der ersten Zeile gefunden und dann die Breite aller Spalten darauf festgelegt.
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
Es arbeitet mit Zugang aus dem Kasten heraus : https://support.office.com/en-ie/article/export-data-to-a-text-file-f72dfc38-a8a0-4c5b-8c2c-bf2950814140#bmsteps mit diesem So habe ich es ganz einfach und schnell managaed - besser als mit Excel. In meinem Fall war es eine Konvertierung der Tabelle.