Excel elektronik tablosunu sabit genişlikte metin dosyasına dışa aktarma?

Excel, sabit genişlikte metin dosyalarını içe aktarma işlevine sahiptir; burada alanların başlangıcı ve bitişlerinin sütunlara yerleştirileceği yeri seçmenizi sağlayan bir iletişim kutusu sunar.

O da mevcut bir elektronik verilen özelliğe sahip mıdır yapabilirsiniz dışa sabit genişlikli metin dosyasına?

Öyleyse, buna nasıl erişebilirim? Farklı Kaydet'i kullanmayı ve Metin Dosyası'nı seçmeyi denedim, ancak bu yalnızca bana yardımcı olmayan Sekmeyle ayrılmış olarak kaydedilmiş görünüyor.

Bu önemlidir, Excel 2003'tür.

Yerel Excel işlevsellikten en yakın alabileceğinizi düşünüyorum. Farklı Kaydet | Biçimlendirilmiş Metin (Boşlukla Sınırlı) (* .prn) . Genişlikleri otomatik olarak belirler ve gerektiğinde bu genişliğe döşemek için boşluk ekler.

Bunun ötesinde, daha fazlasını yapmanıza izin verecek bir makro veya başka bir eklentiye sahip olmanız gerekir.

Office Professional'ınız varsa, Excel dosyanızı Access'te ve ardından Access'ten Ver'i açabilirsiniz. Access, dışa aktarılan dosyanız için sabit genişlikli bir düzen belirlemenize izin verir ve bu genişlikleri belirlemek için size son derece ayrıntılı kontroller verir.

Vay, bu soruyu kendim soracaktım ama zaten sorulmuştu. Tüm Excel pano çıktısı tabvarsayılan olarak sınırlandırılmıştır. Sabit genişlikli bir fontunuz olduğunda ancak mutlaka sekme sınırlayıcı desteği olmadığında, "gerçek" düz metin çıktısı için can sıkıcı bir durumdur.

Her neyse, seçili bölgeyi ASCII tablosu gibi sabit genişlikli sütunlar olarak kopyalayacak küçük bir Excel Makrosu buldum ve değiştirdim:

187712 201 37 0,18   
2525 580 149 0,25   
136829 137 43 0,31   

İşte Makro kodu. Kullanmak için, Excel 2007 veya sonraki bir sürümünü kullanıyorsanız , Geliştirici sekmesini Excel Seçenekleri'nde etkinleştirdiğinizden emin olun .

Sub CopySelectionToClipboardAsText()

   ' requires a reference to "Windows Forms 2.0 Object Library"
   ' add it via Tools / References; if it does not appear in the list
   ' manually add it as the path C:\Windows\System32\FM20.dll

    Dim r As Long, c As Long
    Dim selectedrows As Integer, selectedcols As Integer

    Dim arr
    arr = ActiveSheet.UsedRange
    selectedrows = UBound(arr, 1)
    selectedcols = UBound(arr, 2)

    Dim temp As Integer
    Dim cellsize As Integer
    cellsize = 0
    For c = 1 To selectedcols
        temp = Len(CStr(Cells(1, c)))
        If temp > cellsize Then
            cellsize = temp
        End If
    Next c
    cellsize = cellsize + 1

    Dim line As String
    Dim output As String

    For r = 1 To selectedrows
        line = Space(selectedcols * cellsize)
        For c = 1 To selectedcols
            Mid(line, c * cellsize - cellsize + 1, cellsize) = Cells(r, c)
        Next c
        output = output + line + Chr(13) + Chr(10)
    Next r

    Dim MyData As MSForms.DataObject
    Set MyData = New DataObject
    MyData.SetText output
    MyData.PutInClipboard

    MsgBox "The current selection was formatted and copied to the clipboard"

End Sub

Öncelikle, verilerinizi Courier New (veya başka bir sabit genişlik fontu) olarak biçimlendirin. Sonra .prn olarak kaydedin ve gerçek sabit genişlik elde edersiniz.

Jeff Atwood'un cevabını genişletiyor, çünkü orada yorum yapmama izin vermiyordu:

Makroyu, sütun genişliğini bu sütundaki en geniş hücreye ayarlamak ve her sütunun kendi genişliğine sahip olması için değiştirdim. Makrosu yalnızca ilk satırdaki en geniş hücreyi buldu ve sonra tüm sütunların genişliğini ona ayarladı.

Sub CopySelectionToClipboardAsText()

   ' requires a reference to "Windows Forms 2.0 Object Library"
   ' add it via Tools / References; if it does not appear in the list
   ' manually add it as the path C:\Windows\System32\FM20.dll

    Dim r As Long, c As Long, linesize As Long
    Dim selectedrows As Integer, selectedcols As Integer

    Dim arr
    arr = ActiveSheet.UsedRange
    selectedrows = UBound(arr, 1)
    selectedcols = UBound(arr, 2)
    ReDim CellSizes(1 To selectedcols, 2) As Integer

    Dim temp As Integer
    Dim cellsize As Integer
    linesize = 0
    For c = 1 To selectedcols
        cellsize = 0
        For r = 1 To selectedrows
            temp = Len(CStr(Cells(r, c)))
            If temp > cellsize Then
                cellsize = temp
            End If
        Next
        CellSizes(c, 0) = cellsize + 1
        CellSizes(c, 1) = linesize
        linesize = linesize + cellsize + 1
    Next c

    Dim line As String
    Dim output As String

    For r = 1 To selectedrows
        line = Space(linesize)
        For c = 1 To selectedcols
            Mid(line, CellSizes(c, 1) + 1, CellSizes(c, 0)) = Cells(r, c)
        Next c
        output = output + line + Chr(13) + Chr(10)
    Next r

    Dim MyData As MSForms.DataObject
    Set MyData = New DataObject
    MyData.SetText output
    MyData.PutInClipboard

    MsgBox "The current selection was formatted and copied to the clipboard"

End Sub

Bu benim için bir katil. Aynı zamanda birkaç seçenek var.

http://www.sensefulsolutions.com/2010/10/format-text-as-table.html

: O Erişim kutusunun dışarı ile çalışır https://support.office.com/en-ie/article/export-data-to-a-text-file-f72dfc38-a8a0-4c5b-8c2c-bf2950814140#bmsteps bununla yolu oldukça kolay ve hızlı bir şekilde yönetiyordum - Excel'den daha iyi. Benim durumumda tablonun bir dönüşüm oldu.