excel表数据生成定长txt数据

项目作业中需要造数据，从txt文件中获取定长数据，直接从txt中修改，会显得十分麻烦，于是便利用excel自带的vba写了一个小工具。效果如下：

A1表示字段名，A2表示长度，A3是数据，也可以增加字段类型，自行拓展

点击“Create”按钮后，会在该excel文件目录下生成相应txt文件，txt文件的名字是自动获取此sheet页的名字

sheet名字

生成文件列表

文件内容

可自动生成多行数据

主要代码如下

Sub inputdata_Click()
    Dim cols As Integer
    Dim rows As Integer
    Dim str As String
    Dim num As Integer
    Dim nullStr As String
    Dim strFileName As String
        
    cols = ActiveSheet.UsedRange.Columns.Count
    rows = ActiveSheet.Range("A1048576").End(xlUp).Row
    strFileName = ThisWorkbook.path & "\" & ActiveSheet.Name & ".txt"
    str = ""
    nullStr = ""
    
    If Dir(strFileName, 16) <> Empty Then
        Kill strFileName
    End If
    
    For j = 3 To rows
        For i = 1 To cols
            num = ActiveSheet.Cells(2, i)
            If num - Len(ActiveSheet.Cells(j, i)) < 0 Then
                MsgBox "the char " & ActiveSheet.Cells(j, i) & "(row: " & j & ",col: " & i & ")" & "'s length is wrong !"
                Exit Sub
            End If
            For k = 1 To num - Len(ActiveSheet.Cells(j, i))
                nullStr = nullStr & "0"
            Next
            str = str & nullStr & ActiveSheet.Cells(j, i)
            nullStr = ""
        Next
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.OpenTextFile(strFileName, 8, True)
        f.writeline str
        f.Close
        str = ""
    Next
        
    MsgBox "input success"
End Sub

代码有缺陷，每循环一次就要创建一个读写实例，然后再关闭，影响效率，想把创建时提到循环前面，把close放到循环外面，试了一下，不晓得为什么会出问题。

本人vba初学，不是很懂，希望改善