Excel có chức năng nhập các tệp văn bản có chiều rộng cố định trong đó trình bày một hộp thoại cho phép bạn chọn nơi bắt đầu và kết thúc của các trường mà nó đặt vào các cột.
Liệu nó cũng có chức năng trong đó, với một bảng tính hiện có, bạn có thể xuất thành tệp văn bản có chiều rộng cố định?
Nếu vậy, làm thế nào để tôi truy cập này? Tôi đã thử sử dụng Save As và chọn File Text nhưng dường như chỉ lưu dưới dạng Tab được phân định bằng tab mà không giúp tôi.
Đây là Excel 2003 nếu có vấn đề.
Câu trả lời:
Tôi nghĩ rằng gần nhất bạn có thể nhận được từ chức năng Excel gốc là Save As | Văn bản được định dạng (Phân cách không gian) (* .prn) . Nó sẽ tự động xác định chiều rộng và chèn khoảng trắng vào pad theo chiều rộng đó nếu cần.
Ngoài ra, bạn cần phải có một macro hoặc bổ trợ khác sẽ cho phép bạn làm được nhiều hơn.
Nếu bạn có Office Professional, bạn có thể mở tệp Excel của mình trong Access và sau đó Xuất từ Access. Access sẽ cho phép bạn chỉ định bố cục chiều rộng cố định cho tệp đã xuất của mình và cung cấp cho bạn các điều khiển cực kỳ chi tiết để chỉ định các độ rộng đó.
Ồ, tôi sẽ tự hỏi câu hỏi này nhưng nó đã được hỏi rồi. Tất cả đầu ra clipboard của Excel được tabphân định theo mặc định. Điều này gây khó chịu cho đầu ra văn bản thuần "thực" khi bạn có phông chữ có chiều rộng cố định nhưng không nhất thiết phải hỗ trợ dấu phân cách tab.
Dù sao, tôi đã tìm thấy và sửa đổi một Macro Excel nhỏ sẽ sao chép vùng hiện được chọn dưới dạng bảng ASCII có chiều rộng cố định đơn giản - như vậy:
187712 201 37 0,18 2525 580 149 0,25 136829 137 43 0,31
Đây là mã Macro. Để sử dụng nó, hãy đảm bảo bạn bật tab Nhà phát triển trong Tùy chọn Excel nếu bạn đang sử dụng Excel 2007 trở lên.
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
Đầu tiên, định dạng dữ liệu của bạn là Courier New (hoặc một số phông chữ có chiều rộng cố định khác). Sau đó lưu dưới dạng .prn và bạn sẽ có được chiều rộng cố định thực sự.
Mở rộng câu trả lời của Jeff Atwood, vì nó sẽ không cho phép tôi nhận xét ở đó:
Tôi đã sửa đổi macro của mình để đặt chiều rộng cột thành ô rộng nhất trong cột đó và để mỗi cột có chiều rộng riêng. Macro của anh ta chỉ tìm thấy ô rộng nhất trong hàng đầu tiên và sau đó đặt chiều rộng của tất cả các cột cho nó.
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
Đây là một kẻ giết người đối với tôi. Nó có một vài lựa chọn là tốt.
http://www.sensefulsolutions.com/2010/10/format-text-as-table.html
Nó hoạt động với Access out of the box: https://support.office.com/en-ie/article/export-data-to-a-text-file-f72dfc38-a8a0-4c5b-8c2c-bf2950814140#bmsteps với điều này cách tôi quản lý nó khá dễ dàng và nhanh chóng - tốt hơn so với Excel. Trong trường hợp của tôi, đó là một chuyển đổi của bảng.