Question

现在想用办公软件excel的vba编程实现一个功能，要求如下，希望大神出手相助！

现在想用办公软件excel的vba编程实现一个功能，要求如下，希望大神出手相助！
将excel中的两列数据输出并生成txt文档，用逗号分隔。文件命名为“YYYYMMDD+编号”，编号从1到20，如果超过20就会出现警告。

txt输出效果：
a1,b1
a2,b2
a3,b3
...

Answer 1

用 VBA的 FSO对象实现应该是可以的。
"编号从1到20，如果超过20就会出现警告。"是什么意思？

追问

我不会写啊，我从来没用过这个编程，是否可以帮我写一下？谢谢！关于编号，就是我输出到txt文档的时候需要给文件命名，每次执行的时候生成一个文件，在同一路径下按顺序编号，从1到20，当生成到第21个时，在excel中提示超过20个文件了，不能继续输出了

比如第一个文件名就是 20170118_1.txt，第二个是20170118_2.txt，以此类推，同一路径下，只允许生成20个文件，前面的日期是系统日期

追答

前面的好实现，就是你后面的这个要求不好实现。情况太多，懒得费神了。

给你个生成一个文件的吧：默认生成在 F 根目录下

Sub CreateTxtFile()
    Dim Arr As Variant, i As Integer, FSO As Object
    Arr = Sheet1.Range("A1").CurrentRegion
    Set FSO = CreateObject("Scripting.FileSystemObject")
    With FSO.CreateTextFile("F:\TEST.txt", True)
        For i = 1 To UBound(Arr, 1)
            .WriteLine Arr(i, 1) & "," & Arr(i, 2)
        Next i
        .Close
    End With
End Sub

Answer 2

........... 私信找我

追问

你也不理我啊