Schreiben von Textdateien mit fester Breite von Excel VBA

Question

Dies ist die Ausgabe eines Programms.

Ich habe angegeben, was im Programm jeder Zellenbreite sein soll und mein Programm korrekte Ausgabe zeigt.

Was ich tun möchte, ist Zelle Inhalt soll von rechts nach links geschrieben werden. ZB hervorgehobene Zahl 9983.54 hat eine Breite von 21. Textdatei hat die ersten 7 Spalten verwendet. Aber ich möchte, dass es die letzten 7 Spalten der Textdatei verwendet.

Bitte sehen Sie sich das erwartete Ausgabebild an.

ich keine Ahnung bekommen, wie dies zu tun. Ich bin kein sehr professioneller Programmierer, aber ich liebe es zu programmieren. Diese Textdatei wird als Eingabe für ein anderes Programm verwendet und ich versuche das Schreiben von Textdateien von Excel VBA zu automatisieren.

Kann jemand vorschlagen, dieses Ausgabeformat zu erhalten?

Hier ist der Code, der mir

Option Explicit 

Sub CreateFixedWidthFile(strFile As String, ws As Worksheet, s() As Integer) 
    Dim i As Long, j As Long 
    Dim strLine As String, strCell As String 

    'get a freefile 
    Dim fNum As Long 
    fNum = FreeFile 

    'open the textfile 
    Open strFile For Output As fNum 
    'loop from first to last row 
    'use 2 rather than 1 to ignore header row 
    For i = 1 To ws.Range("a65536").End(xlUp).Row 
     'new line 
     strLine = "" 
     'loop through each field 
     For j = 0 To UBound(s) 
      'make sure we only take chars up to length of field (may want to output some sort of error if it is longer than field) 
      strCell = Left$(ws.Cells(i, j + 1).Value, s(j)) 
      'add on string of spaces with length equal to the difference in length between field length and value length 
      strLine = strLine & strCell & String$(s(j) - Len(strCell), Chr$(32)) 
     Next j 
     'write the line to the file 
     Print #fNum, strLine 
    Next i 
    'close the file 
    Close #fNum 

End Sub 

‚erste Ausgabe gab den Code zum Beispiel unter Verwendung genannt werden könnte:

Sub CreateFile() 
    Dim sPath As String 
    sPath = Application.GetSaveAsFilename("", "Text Files,*.txt") 
    If LCase$(sPath) = "false" Then Exit Sub 
    'specify the widths of our fields 
    'the number of columns is the number specified in the line below +1 
    Dim s(6) As Integer 
    'starting at 0 specify the width of each column 
    s(0) = 21 
    s(1) = 9 
    s(2) = 15 
    s(3) = 11 
    s(4) = 12 
    s(5) = 10 
    s(6) = 186 
    'for example to use 3 columns with field of length 5, 10 and 15 you would use: 
    'dim s(2) as Integer 
    's(0)=5 
    's(1)=10 
    's(2)=15 
    'write to file the data from the activesheet 
    CreateFixedWidthFile sPath, ActiveSheet, s 
End Sub 

Answer 1

So etwas sollte funktionieren:

x = 9983.54 
a = Space(21-Len(CStr(x))) & CStr(x) 

Dann werden 14 Leerzeichen gefolgt von x:

a = "    9983.54" 

Hier 21 ist die gewünschte Spaltenbreite --- ändern Sie wie nötig. CStr kann für nicht-numerische x unnötig sein.

Wenn Sie mit der rechten rechtfertigen viele verschiedene Daten in unterschiedlicher Breite Felder Sie gehen einen Allzweck-Funktion schreiben konnte:

Function LeftJust(val As String, width As Integer) As String 
    LeftJust = Space(width - Len(val)) & val 
End Function 

Die Sie es mit LeftJust(CStr(9983.54), 21) nennen.

Beachten Sie auch, dass die Anweisung Print # von VBA über einen Spc(n)-Parameter verfügt, den Sie verwenden können, um eine Ausgabe mit fester Breite zu erstellen, z. B. Print #fNum, Spc(n); a; vor dieser Aussage berechnen Sie n: n = 21-Len(CStr(a)).

Hoffnung, die