Formaterad text (.prn) är begränsad till 240 tecken per rad i Excel
Anteckning
Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.
Symptom
När du i Microsoft Excel sparar ett kalkylblad som en fil med formaterad text (blankstegsavgränsad text) (.prn) radbruts alla tecken efter det två hundra tecken som finns på nästa rad.
Anteckning
Om flera rader på samma blad innehåller text som inte är längre än 240 tecken börjar texten radbrutna på raden efter den sista raden som innehåller text.
Tänk på 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 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 radnumrering 1 för de linjer som radbruten. I praktiken motsvarar linje 21 rad 1, rad 22 motsvarar rad 2 och så vidare.
Orsak
Detta inträffar eftersom formaterade textfiler (blankstegsavgränsade) (PRN-filer) som standard har en begränsning 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 ska du använda ett makro som liknar följande exempelmakro.
Anteckning
Innan du kör det här makrot gör du följande:
- Markera de celler 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 Excel är 255 tecken när den är formaterad med ett teckensnitt med fast bredd.
- Använd menykommandona för Format om du vill formatera kalkylbladet till att använda ett teckensnitt med fast bredd. Till exempel är Courier ett teckensnitt med fast bredd.
Följande exempelkod kan ändras för att exportera data avgränsade med andra tecken än blanksteg. Du måste markera det dataområde som ska exporteras innan du kör det här exempelmakroet.
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
Anteckning
Utdatafilen som den här rutinen skapar skiljer sig per definition från en formaterad textfil(*.prn). Per definition får den formaterade textfilen inte innehålla mer än 240 tecken per rad. Dessutom innehåller den formaterade textfilen även teckensnittsinformation för skrivaren. Det här exempelmakroet gör det inte. Den här lösningen är utformad för att ge flexibilitet när du exporterar till textfiler.