Excel 'de biçimlendirilmiş metin (. prn), 240 karakterleriyle sınırlıdır

Not

Office 365 ProPlus, Microsoft 365 Kurumsal Uygulamaları olarak yeniden adlandırılıyor. Bu değişiklik hakkında daha fazla bilgi için, bu blog yazısını okuyun.

Belirtiler

Microsoft Excel 'de, çalışma sayfasını biçimlendirilmiş metin (boşlukla ayrılmış) (. prn) dosyası olarak kaydettiğinizde, iki taraflı fortici karakterinin ötesindeki tüm karakterler bir sonraki çizgiye kaydırılır.

Not

Aynı sayfadaki birden fazla satırda 240 karakter dışında bir metin varsa, metin metin içeren son satırdan sonraki satırda kaydırmaya başlar.

Örneğin, aşağıdaki sayfayı dikkate alın: |Hücresini| Karakter sayısı| |-----|------------| |A1| 40| |A2 |255| |'Ün |on| |A4| 210| |A5| 2| |A6 |52| |A7| 255| |A8| tir| |A9| @| |A20| 13|

Sonuç olarak biçimlendirilmiş metin dosyası, aşağıdaki karakter sayısıyla satırlar içerir:

Satır numarası Karakteri
2 40
2 240
@ on
1.921.024 210
tir 2
+ 52
+ 240
8@@ tir
döndürdü @
10-19 0
20 13
210 0
#c16 15
23-26 0
numaralı 15

Son satırdan sonra (Bu örnekte, satır 20), kaydırılan satırlar için satır numaralandırması 1 ' den başlar. Aslında, satır 21 satır 1 ' le, satır 22 ise satır 2 ' ye karşılık gelir ve bu şekilde.

Neden

Bu davranış, tasarım, biçimlendirilmiş metin (boşlukla ayrılmış) (. prn) dosyalarında satır başına 240 karakter sınırlaması nedeniyle oluşur.

Geçici Çözüm

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. Çizgi başına 240 karakterlik sınırlamanın aşan boşlukla sınırlanmış 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ütunda en büyük dizeyi görüntüleyecek kadar geniş olduğunu doğrulayın. Tek bir Excel sütunu için en yüksek sütun genişliği, sabit genişlikte bir yazı tipiyle biçimlendirilmiş olarak 255 karakterdir.
  • Çalışma sayfasını sabit genişlikte bir yazı tipi kullanacak şekilde biçimlendirmek için stil menüsü komutlarını kullanın. Örneğin, Courier sabit genişlikte 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çmeniz gerekir.

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 olarak biçimlendirilmiş metin (*. prn) dosyasından farklıdır. Tanımda, biçimlendirilmiş metin dosyası satır başına en çok 240 karakter içeremez. Ayrıca, biçimlendirilmiş metin dosyası da yazıcı yazı tipi bilgilerini içerir. Bu makro örneği yok. Bu çözüm, metin dosyalarına aktardığınızda esneklik sağlayacak şekilde tasarlanmıştır.