Sformatowany tekst (prn) jest ograniczony do 240 znaków na wiersz w programie Excel
Symptomy
W programie Microsoft Excel podczas zapisywania arkusza jako pliku sformatowanego tekstu (rozdzielanego przestrzenią) (prn) wszystkie znaki poza dwustu znakami fortyfikacji są owinięte do następnego wiersza.
Uwaga
Jeśli kilka wierszy w tym samym arkuszu zawiera tekst przekraczający 240 znaków, tekst rozpoczyna zawijanie w wierszu po ostatnim wierszu zawierającym tekst.
Rozważmy na przykład następujący arkusz:
Komórki | Liczba znaków |
---|---|
A1 | 40 |
A2 | 255 |
A3 | 10 |
A4 | 21 |
A5 | 2 |
A6 | 52 |
A7 | 255 |
A8 | 5 |
A9 | 3 |
A20 | 13 |
Wynikowo sformatowany plik tekstowy zawiera wiersze z następującą liczbą znaków:
Numer wiersza | Znaków |
---|---|
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 |
Po ostatnim wierszu (w tym przykładzie wiersz 20) numerowanie wierszy rozpoczyna się od 1 dla opakowanych wierszy. W efekcie wiersz 21 odpowiada wierszowi 1, wiersz 22 odpowiada wierszowi 2 itd.
Przyczyna
Takie zachowanie występuje, ponieważ zgodnie z projektem pliki sformatowanego tekstu (rozdzielane spacjami) (prn) mają limit 240 znaków na wiersz.
Obejście problemu
Firma Microsoft podaje przykłady programowania tylko dla celów ilustracyjnych, nie udzielając żadnej rękojmi, wyrażonej wprost ani dorozumianej, w tym także, ale nie tylko, dorozumianej rękojmi co do przydatności handlowej lub do określonych celów. W tym artykule zakłada się, że czytelnik zna demonstrowany język programowania oraz narzędzia używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać żadnych funkcji i konstruować nowych procedur w celu dostosowania ich do określonych potrzeb użytkownika. Aby utworzyć rozdzielany spacjami plik tekstowy, który przekracza ograniczenie 240 znaków na wiersz, użyj makra podobnego do następującego przykładowego makra.
Uwaga
Przed uruchomieniem tego makra wykonaj następujące czynności:
- Wybierz komórki, które mają zostać uwzględnione w pliku tekstowym.
- Sprawdź, czy szerokości kolumn są wystarczająco szerokie, aby wyświetlić największy ciąg w każdej kolumnie. Maksymalna szerokość kolumny dla pojedynczej kolumny programu Excel wynosi 255 znaków po sformatowaniu przy użyciu czcionki o stałej szerokości.
- Użyj poleceń menu Styl, aby sformatować arkusz, aby użyć czcionki o stałej szerokości. Na przykład Courier to czcionka o stałej szerokości.
Poniższy przykładowy kod można zmodyfikować w celu wyeksportowania danych rozdzielanych znakami innymi niż spacja. Przed uruchomieniem tego przykładowego makra należy wybrać zakres danych do wyeksportowania.
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
Uwaga
Plik wyjściowy tworzony przez tę procedurę jest z definicji inny niż plik Formated Text(*.prn). Z definicji sformatowany plik tekstowy nie może zawierać więcej niż 240 znaków na wiersz. Ponadto sformatowany plik tekstowy zawiera również informacje o czcionkach drukarki. To przykładowe makro nie jest. To rozwiązanie ma na celu zapewnienie elastyczności podczas eksportowania do plików tekstowych.
Opinia
https://aka.ms/ContentUserFeedback.
Dostępne już wkrótce: W 2024 r. będziemy stopniowo wycofywać zgłoszenia z serwisu GitHub jako mechanizm przesyłania opinii na temat zawartości i zastępować go nowym systemem opinii. Aby uzyskać więcej informacji, sprawdź:Prześlij i wyświetl opinię dla