Formátovaný text (.prn) je v Excelu omezený na 240 znaků na řádek.
Když v aplikaci Microsoft Excel uložíte list jako soubor Formátovaný text (s oddělovači mezerami) (.prn), všechny znaky nad dva sta čtyřicátého znaku se zalomí na další řádek.
Poznámka
Pokud několik řádků na stejném listu obsahuje text delší než 240 znaků, začne se text zalamovat na řádku za posledním řádkem, který obsahuje text.
Představte si například následující list:
| Buňky | Počet znaků |
|---|---|
| A1 | 40 |
| A2 | 255 |
| A3 | 10 |
| A4 | 21 |
| A5 | 2 |
| A6 | 52 |
| A7 | 255 |
| A8 | 5 |
| Č. 9 | 3 |
| A20 | 13 |
Výsledný formátovaný textový soubor obsahuje řádky s následujícím počtem znaků:
| Číslo řádku | Znaky |
|---|---|
| 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 |
Za posledním řádkem (v tomto příkladu je to řádek 20) začíná číslování řádků u řádků, které jsou zabalené, číslem 1. Ve skutečnosti řádek 21 odpovídá řádku 1, řádek 22 odpovídá řádku 2 atd.
K tomuto chování dochází, protože formátované textové soubory (s oddělovači mezerami) (.prn) mají omezení 240 znaků na řádek.
Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele. Pokud chcete vytvořit textový soubor oddělený mezerami, který přesahuje omezení 240 znaků na řádek, použijte makro podobné následujícímu vzorovým makrům.
Poznámka
Před spuštěním tohoto makra udělejte toto:
- Vyberte buňky, které chcete zahrnout do textového souboru.
- Ověřte, že jsou šířky sloupců dostatečně široké, aby bylo vidět největší řetězec v každém sloupci. Maximální šířka jednoho excelového sloupce je 255 znaků, pokud je formátován písmem s pevnou šířkou.
- Pomocí příkazů nabídky Styl naformátujte list tak, aby používal písmo s pevnou šířkou. Například Courier je písmo s pevnou šířkou.
Následující ukázkový kód je možné upravit tak, aby exportoval data oddělená jinými znaky než mezerou. Před spuštěním tohoto ukázkového makra musíte vybrat oblast dat, která se má exportovat.
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
Poznámka
Výstupní soubor, který tato rutina vytvoří, se z definice liší od formátovaného textového souboru (*.prn). Formátovaný textový soubor nemůže podle definice obsahovat více než 240 znaků na řádek. Kromě toho formátovaný textový soubor obsahuje také informace o písmu tiskárny. Toto ukázkové makro ne. Toto řešení je navržené tak, aby poskytovalo flexibilitu při exportu do textových souborů.