Biçimlendirilmiş metin (.prn), Excel'de satır başına 240 karakterle sınırlıdır
Microsoft Excel'de, çalışma sayfasını Biçimlendirilmiş Metin (BoşlukLa Ayrılmış) (.prn) dosyası olarak kaydettiğinizde, iki yüz fortieth karakterin ötesindeki tüm karakterler sonraki satıra kaydırılır.
Not
Aynı sayfadaki birkaç satırda 240 karakterden fazla metin varsa, metin, metin içeren son satırdan sonraki satırda kaydırmaya başlar.
Örneğin, aşağıdaki sayfayı göz önünde bulundurun:
| Hücre | Karakter Sayısı |
|---|---|
| A1 | 40 |
| A2 | 255 |
| A3 | 10 |
| A4 | 21 |
| A5 | 2 |
| A6 | 52 |
| A7 | 255 |
| A8 | 5 |
| A9 | 3 |
| A20 | 13 |
Sonuçta elde edilen biçimlendirilmiş metin dosyası aşağıdaki karakter sayısına sahip satırlar içerir:
| Satır Numarası | Karakter |
|---|---|
| 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 |
Son satırdan sonra (bu örnekte, 20. satırda), satır numaralandırması kaydırılan satırlar için 1'de başlar. Aslında, 21. satır 1. satıra karşılık gelir, 22. satır 2'ye karşılık gelir ve bu şekilde devam eder.
Bu davranış, tasarım gereği Biçimlendirilmiş Metin (BoşlukLa Ayrılmış) (.prn) dosyalarının satır başına 240 karakter sınırına sahip olması nedeniyle oluşur.
Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler. Satır başına 240 karakterlik sınırlamayı aşan boşlukla ayrılmış bir metin dosyası oluşturmak için aşağıdaki örnek makroya benzer bir makro kullanın.
Not
Bu makroyu çalıştırmadan önce aşağıdakileri yapın:
- Metin dosyasına eklenecek hücreleri seçin.
- Sütun genişliklerinin her sütundaki en büyük dizeyi görüntülemek için yeterince geniş olduğunu doğrulayın. Sabit genişlikli yazı tipiyle biçimlendirildiğinde, tek bir Excel sütunu için en fazla sütun genişliği 255 karakterdir.
- Çalışma sayfasını sabit genişlikli bir yazı tipi kullanacak şekilde biçimlendirmek için Stil menüsü komutlarını kullanın. Örneğin Courier, sabit genişlikli bir yazı tipidir.
Aşağıdaki örnek kod, boşluk dışında karakterlerle sınırlandırılmış verileri dışarı aktarmak için değiştirilebilir. Bu örnek makroyu çalıştırmadan önce dışarı aktarılacak veri aralığını seçmelisiniz.
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
Not
Bu yordamın oluşturduğu çıkış dosyası, tanım gereği Biçimlendirilmiş Metin(*.prn) dosyasından farklıdır. Tanım gereği, biçimlendirilmiş metin dosyası satır başına 240'tan fazla karakter içeremez. Ayrıca, biçimlendirilmiş metin dosyası yazıcı yazı tipi bilgilerini de içerir. Bu örnek makro bunu yapmaz. Bu çözüm, metin dosyalarına dışarı aktardığınızda esneklik sağlamak için tasarlanmıştır.