A formázott szöveg (.prn) soronként legfeljebb 240 karakter hosszúságú lehet az Excelben

Jelenségek

A Microsoft Excelben, amikor formázott szövegként (.prn) menti a munkalapot, a kétszáz fortieth karakteren túli karakterek a következő sorba kerülnek.

Megjegyzés:

Ha ugyanazon a lapon több sor is tartalmaz 240 karakternél hosszabb szöveget, a szöveg a szöveget tartalmazó utolsó sor utáni sornál kezd körbefutni.

Vegyük például a következő lapot:

Cella	Karakterek száma
A1	40
A2	255
A3	10
A4	21
A5	2
A6	52
A7	255
A8	5
A9	3
A20	13

Az eredményként kapott formázott szövegfájl a következő számú karaktert tartalmazó sorokat tartalmazza:

Sor száma	Karakterek
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

Az utolsó sor (ebben a példában a 20. sor) után a sor számozása a becsomagolt sorok esetében 1-nél kezdődik. A 21. sor tulajdonképpen az 1. sornak, a 22. sor a 2. sornak és így tovább.

A probléma oka

Ez azért fordul elő, mert a formázott szöveg (szóközzel tagolt) (.prn) fájlok legfeljebb 240 karakterből állhatnak soronként.

Kerülő megoldás

A Microsoft csak szemléltetési célból ad közre programozási példákat, és azokra sem közvetlen, sem közvetett jótállást nem vállal. Ebbe beleértendő a forgalomba hozhatóságra és az adott célra való megfelelőségre vonatkozó jótállás is. A cikk feltételezi, hogy az olvasó jártas a szemléltetésre szolgáló programozási nyelvben, valamint az eljárások létrehozására és a velük kapcsolatos hibakeresésre szolgáló eszközök használatában. A Microsoft támogatási szakemberei segítséget nyújthatnak egy-egy adott eljárás funkcionalitásának megértésében, de funkcionalitásbővítési célból nem módosítják a példákat, és nem készítenek az egyéni igényeknek megfelelő eljárásokat. Ha olyan szóközzel tagolt szövegfájlt szeretne létrehozni, amely túllépi a soronkénti 240 karakteres korlátozást, használjon az alábbi mintamakróhoz hasonló makrót.

Megjegyzés:

A makró futtatása előtt tegye a következőket:

• Jelölje ki a szövegfájlban szerepeltetni kívánt cellákat.
• Ellenőrizze, hogy az oszlopszélességek elég szélesek-e az egyes oszlopok legnagyobb sztringjének megtekintéséhez. Egy Excel-oszlop maximális oszlopszélessége 255 karakter, ha rögzített szélességű betűtípussal van formázva.
• A Stílus menü parancsaival rögzített szélességű betűtípussal formázhatja a munkalapot. A Courier például rögzített szélességű betűtípus.

Az alábbi mintakód módosítható úgy, hogy az adatokat szóköz helyett karakterekkel tagoltan exportálja. A mintamakró futtatása előtt ki kell jelölnie az exportálandó adattartományt.

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

Megjegyzés:

A rutin által létrehozott kimeneti fájl definíció szerint eltér a formázott szövegfájltól (*.prn). Definíció szerint a formázott szövegfájl soronként legfeljebb 240 karaktert tartalmazhat. Emellett a formázott szövegfájl nyomtatóbetűtípus-információkat is tartalmaz. Ez a mintamakró nem. Ez a megoldás úgy lett kialakítva, hogy rugalmasan exportáljon szövegfájlokba.