Formaterad text (.prn) är begränsad till 240 tecken per rad i Excel

Symptom

När du i Microsoft Excel sparar ett kalkylblad som en formaterad textfil (blankstegsavgränsad) (.prn) omsluts alla tecken utöver 2000-tecknet till nästa rad.

Obs!

Om flera rader på samma blad innehåller text som är längre än 240 tecken börjar texten radbryts på raden efter den sista raden som innehåller text.

Tänk dig till exempel följande blad:

Cell	Antal tecken
A1	40
A2	255
A3	10
A4	21
A5	2
A6	52
A7	255
A8	5
A9	3
A20	13

Den resulterande formaterade textfilen innehåller rader med följande antal tecken:

Radnummer	Tecken
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

Efter den sista raden (i det här exemplet rad 20) börjar radnumreringen vid 1 för de rader som är omslutna. I praktiken motsvarar rad 21 linje 1, rad 22 motsvarar rad 2 och så vidare.

Orsak

Det här beteendet beror på att formaterade textfiler (blanksteg avgränsade) (.prn) har en gräns på 240 tecken per rad.

Lösning

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supportexperter kan hjälpa till att förklara funktionerna i en viss procedur, men de kommer inte att ändra dessa exempel för att tillhandahålla extra funktioner eller konstruera procedurer för att uppfylla dina specifika behov. Om du vill skapa en blankstegsavgränsad textfil som överskrider begränsningen på 240 tecken per rad använder du ett makro som liknar följande exempelmakrot.

Obs!

Innan du kör det här makrot gör du följande:

• Markera cellerna som ska ingå i textfilen.
• Kontrollera att kolumnbredderna är tillräckligt breda för att visa den största strängen i varje kolumn. Den maximala kolumnbredden för en enskild Excel-kolumn är 255 tecken när den formateras med ett teckensnitt med fast bredd.
• Använd formatmenykommandona för att formatera kalkylbladet så att det använder ett teckensnitt med fast bredd. Courier är till exempel ett teckensnitt med fast bredd.

Följande exempelkod kan ändras för att exportera data avgränsade med andra tecken än ett blanksteg. Du måste välja det dataintervall som ska exporteras innan du kör det här exempelmakrotet.

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

Obs!

Den utdatafil som den här rutinen skapar skiljer sig per definition från en formaterad textfil (*.prn). Den formaterade textfilen får per definition inte innehålla fler än 240 tecken per rad. Dessutom innehåller den formaterade textfilen även skrivarteckensnittsinformation. Det här exempelmakrotet gör det inte. Den här lösningen är utformad för att ge flexibilitet när du exporterar till textfiler.