Форматированный текст (PRN-файл) ограничен 240 символами на строку в Excel
Симптомы
В Microsoft Excel при сохранении листа в виде файла форматированного текста (с разделителями пробелами) (PRN-файл) все символы за пределами двухсот сорокового знака помещаются в следующую строку.
Примечание.
Если несколько строк на одном листе содержат текст, превышающий 240 символов, текст начинает переносить на строку после последней строки, содержащей текст.
Например, рассмотрим следующий лист:
Cell | Число знаков |
---|---|
A1 | 40 |
A2 | 255 |
A3 | 10 |
A4 | 21 |
A5 | 2 |
A6 | 52 |
A7 | 255 |
A8 | 5 |
A9 | 3 |
A20 | 13 |
Полученный форматированный текстовый файл содержит строки со следующим количеством символов:
Номер строки | Символы |
---|---|
1 | 40 |
2 | 240 |
3 | 10 |
4 | 21 |
5 | 2 |
6 | 52 |
7 | 240 |
8 | 5 |
9 | 3 |
10-19 | 0 |
20 | 13 |
21 | 0 |
22 | 15 |
23-26 | 0 |
27 | 15 |
После последней строки (в этом примере строка 20) нумеровка строк начинается с 1 для строк, которые упакованы в оболочку. По сути, строка 21 соответствует строке 1, строка 22 соответствует строке 2 и т. д.
Причина
Это происходит потому, что форматированные текстовые (разделенные пробелами) (PRN-файлы) имеют ограничение в 240 символов на строку.
Обходной путь
Корпорация Майкрософт предоставляет примеры программирования только в целях демонстрации без явной или подразумеваемой гарантии. Данное положение включает, но не ограничивается этим, подразумеваемые гарантии товарной пригодности или соответствия отдельной задаче. Эта статья предполагает, что пользователь знаком с представленным языком программирования и средствами, используемыми для создания и отладки процедур. Специалисты технической поддержки Майкрософт могут пояснить работу той или иной процедуры, но модификация примеров и их адаптация к задачам разработчика не предусмотрена. Чтобы создать текстовый файл с разделителями пробелами, который превышает ограничение в 240 символов на строку, используйте макрос, аналогичный приведенному ниже примеру макроса.
Примечание.
Перед запуском этого макроса выполните следующие действия.
- Выберите ячейки для включения в текстовый файл.
- Убедитесь, что ширина столбца достаточно широка, чтобы просмотреть самую большую строку в каждом столбце. Максимальная ширина столбца для одного столбца Excel составляет 255 символов при форматировании шрифтом фиксированной ширины.
- Используйте команды меню Стиль, чтобы отформатировать лист, чтобы использовать шрифт фиксированной ширины. Например, Courier — это шрифт фиксированной ширины.
Следующий пример кода можно изменить для экспорта данных, разделенных символами, отличными от пробела. Перед выполнением этого примера макроса необходимо выбрать диапазон данных для экспорта.
Sub ExportText()
Dim delimiter As String
Dim quotes As Integer
Dim Returned As String
delimiter = " "
quotes = MsgBox("Surround Cell Information with Quotes?", vbYesNo)
' Call the WriteFile function passing the delimiter and quotes options.
Returned = WriteFile(delimiter, quotes)
' Print a message box indicating if the process was completed.
Select Case Returned
Case "Canceled"
MsgBox "The export operation was canceled."
Case "Exported"
MsgBox "The information was exported."
End Select
End Sub
'------------------------------------------------------------
Function WriteFile(delimiter As String, quotes As Integer) As String
' Dimension variables to be used in this function.
Dim CurFile As String
Dim SaveFileName
Dim CellText As String
Dim RowNum As Integer
Dim ColNum As Integer
Dim FNum As Integer
Dim TotalRows As Double
Dim TotalCols As Double
' Show Save As dialog box with the .TXT file name as the default.
' Test to see what kind of system this macro is being run on.
If Left(Application.OperatingSystem, 3) = "Win" Then
SaveFileName = Application.GetSaveAsFilename(CurFile, _
"Text Delimited (*.txt), *.txt", , "Text Delimited Exporter")
Else
SaveFileName = Application.GetSaveAsFilename(CurFile, _
"TEXT", , "Text Delimited Exporter")
End If
' Check to see if Cancel was clicked.
If SaveFileName = False Then
WriteFile = "Canceled"
Exit Function
End If
' Obtain the next free file number.
FNum = FreeFile()
' Open the selected file name for data output.
Open SaveFileName For Output As #FNum
' Store the total number of rows and columns to variables.
TotalRows = Selection.Rows.Count
TotalCols = Selection.Columns.Count
' Loop through every cell, from left to right and top to bottom.
For RowNum = 1 To TotalRows
For ColNum = 1 To TotalCols
With Selection.Cells(RowNum, ColNum)
Dim ColWidth as Integer
ColWidth=Application.RoundUp(.ColumnWidth, 0)
' Store the current cells contents to a variable.
Select Case .HorizontalAlignment
Case xlRight
CellText = Space(Abs(ColWidth - Len(.Text))) & .Text
Case xlCenter
CellText = Space(Abs(ColWidth - Len(.Text))/2) & .Text & _
Space(Abs(ColWidth - Len(.Text))/2)
Case Else
CellText = .Text & Space(Abs(ColWidth - Len(.Text)))
End Select
End With
' Write the contents to the file.
' With or without quotation marks around the cell information.
Select Case quotes
Case vbYes
CellText = Chr(34) & CellText & Chr(34) & delimiter
Case vbNo
CellText = CellText & delimiter
End Select
Print #FNum, CellText;
' Update the status bar with the progress.
Application.StatusBar = Format((((RowNum - 1) * TotalCols) _
+ ColNum) / (TotalRows * TotalCols), "0%") & " Completed."
' Loop to the next column.
Next ColNum
' Add a linefeed character at the end of each row.
If RowNum <> TotalRows Then Print #FNum, ""
' Loop to the next row.
Next RowNum
' Close the .prn file.
Close #FNum
' Reset the status bar.
Application.StatusBar = False
WriteFile = "Exported"
End Function
Примечание.
Выходной файл, создаваемый этой подпрограммой, по определению отличается от файла форматированного текста(*.prn). По определению форматированный текстовый файл не может содержать более 240 символов на строку. Кроме того, форматированный текстовый файл также содержит сведения о шрифтах принтера. В этом примере макроса нет. Это решение предназначено для обеспечения гибкости при экспорте в текстовые файлы.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по