O texto formatado (.prn) está limitado a 240 carateres por linha no Excel

Sintomas

No Microsoft Excel, quando guarda uma folha de cálculo como um ficheiro Texto Formatado (Delimitado pelo Espaço) (.prn), todos os carateres que ultrapassem o 200.º caráter são moldados para a linha seguinte.

Nota

Se várias linhas na mesma folha contiverem texto que ultrapasse os 240 carateres, o texto começa a encapsular na linha após a última linha que contém texto.

Por exemplo, considere a seguinte folha:

Célula	Número de Carateres
A1	40
A2	255
A3	10
A4	21
A5	2
A6	52
A7	255
A8	5
A9	3
A20	13

O ficheiro de texto formatado resultante contém linhas com o seguinte número de carateres:

Número da Linha	Carateres
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

Após a última linha (neste exemplo, linha 20), a numeração de linhas começa em 1 para as linhas encapsuladas. Com efeito, a linha 21 corresponde à linha 1, a linha 22 corresponde à linha 2 e assim sucessivamente.

Causa

Este comportamento ocorre porque, por predefinição, os ficheiros Texto Formatado (Delimitado pelo Espaço) (.prn) têm um limite de 240 carateres por linha.

Solução

A Microsoft fornece exemplos de programação apenas a título informativo, sem qualquer garantia expressa ou implícita, incluindo, sem limitações, as garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que o utilizador está familiarizado com a linguagem de programação demonstrada e as ferramentas utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às suas necessidades específicas. Para criar um ficheiro de texto delimitado por espaço que exceda a limitação de 240 carateres por linha, utilize uma macro semelhante à seguinte macro de exemplo.

Nota

Antes de executar esta macro, faça o seguinte:

• Selecione as células a incluir no ficheiro de texto.
• Verifique se as larguras das colunas são suficientemente largas para ver a cadeia maior de cada coluna. A largura máxima da coluna para uma única coluna do Excel é de 255 carateres quando formatada com um tipo de letra de largura fixa.
• Utilize os comandos do menu Estilo para formatar a folha de cálculo para utilizar um tipo de letra de largura fixa. Por exemplo, Courier é um tipo de letra de largura fixa.

O seguinte código de exemplo pode ser modificado para exportar dados delimitados com carateres diferentes de um espaço. Tem de selecionar o intervalo de dados a exportar antes de executar esta macro de exemplo.

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

Nota

O ficheiro de saída que esta rotina cria é, por definição, diferente de um ficheiro texto formatado (*.prn). Por definição, o ficheiro de texto formatado não pode conter mais de 240 carateres por linha. Além disso, o ficheiro de texto formatado também contém informações sobre o tipo de letra da impressora. Esta macro de exemplo não. Esta solução foi concebida para dar flexibilidade ao exportar para ficheiros de texto.