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, ) <> Empty Then
         Kill strFileName
     End If

     For j =  To rows
         For i =  To cols
             num = ActiveSheet.Cells(, i)
             If num - Len(ActiveSheet.Cells(j, i)) <  Then
                 MsgBox "the char " & ActiveSheet.Cells(j, i) & "(row: " & j & ",col: " & i & ")" & "'s length is wrong !"
                 Exit Sub
             End If
             For k =  To num - Len(ActiveSheet.Cells(j, i))
                 nullStr = nullStr & ""
             Next
             str = str & nullStr & ActiveSheet.Cells(j, i)
             nullStr = ""
         Next
         Set fs = CreateObject("Scripting.FileSystemObject")
         Set f = fs.OpenTextFile(strFileName, , True)
         f.writeline str
         f.Close
         str = ""
     Next

     MsgBox "input success"
 End Sub

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

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