Sformatowany tekst (prn) jest ograniczony do 240 znaków w wierszu w programie Excel

Uwaga

Nazwa usługi Office 365 ProPlus została zmieniona na Aplikacje usługi Microsoft 365 dla przedsiębiorstw. Aby uzyskać więcej informacji na temat tej zmiany, przeczytaj ten wpis w blogu.

Symptomy

W programie Microsoft Excel po zapisaniu arkusza jako pliku Tekst sformatowany (rozdzielany spacjami) (prn) wszystkie znaki wykraczające poza dwustuty znak są zawijane do następnego wiersza.

Uwaga

Jeśli kilka wierszy w tym samym arkuszu zawiera tekst o wartości spoza 240 znaków, tekst zacznie zawijać się w wierszu za ostatnim wierszem zawierającym tekst.

Rozważmy na przykład następujący arkusz:

Komórka Liczba znaków
A1 40
A2 255
A3 10
A4 21
A5 2
A6 52
A7 255
A8 5
A9 3
A20 13

Wynikowy sformatowany plik tekstowy zawiera wiersze z następującą liczbą znaków:

Numer wiersza Znaki
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 zaczyna się od 1 dla wierszy, które są zawinięte. W efekcie wiersz 21 odpowiada wierszowi 1, wierszowi 22 odpowiada wiersz 2 i tak dalej.

Przyczyna

Dzieje się tak dlatego, że pliki z tekstem sformatowanym (rozdzielanym spacjami) (prn) mają ograniczenie 240 znaków w wierszu.

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ć plik tekstowy rozdzielany spacjami, który przekracza ograniczenie 240 znaków na wiersz, użyj makra podobnego do poniższego przykładowego makra.

Uwaga

Przed uruchomieniem tego makra wykonaj następujące czynności:

  • Zaznacz komórki, które mają zostać uwzględnione w pliku tekstowym.
  • Upewnij się, że szerokości kolumn są wystarczająco szerokie, aby wyświetlić największy ciąg w każdej kolumnie. Maksymalna szerokość kolumny w pojedynczej kolumnie programu Excel wynosi 255 znaków w przypadku formatowania przy użyciu czcionki stałej szerokości.
  • Użyj poleceń menu Styl, aby sformatować arkusz tak, aby zawierał czcionkę o stałej szerokości. Na przykład czcionką Courier jest czcionka o stałej szerokości.

Poniższy przykładowy kod można zmienić, aby wyeksportować dane rozdzielane 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, który ta procedura tworzy, z definicji różni się od pliku Sformatowany tekst(*.prn). Sformatowany plik tekstowy z definicji nie może zawierać więcej niż 240 znaków w wierszu. Ponadto sformatowany plik tekstowy zawiera również informacje o czcionce drukarki. To przykładowe makro nie działa. To rozwiązanie ma na celu dać elastyczność podczas eksportowania do plików tekstowych.