小白求助，怎样用vba来实现excel的数据自动生成txt文件

LIUZHU

JSA的代码相对精简一点

LIUZHU

WPS测试，Excel不支持

鲨鱼辣椒789

LIUZHU 发表于 2023-7-12 10:14
WPS测试，Excel不支持

我就是excel的，不过也谢谢老哥了，万分感谢

mmwwdd

Sub GenerateTxtFiles()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
   
    Dim i As Long
    For i = 2 To lastRow
        Dim fileName As String
        fileName = Cells(i, "D").Value & ".txt"
        
        Dim filePath As String
        filePath = ThisWorkbook.Path & "\" & fileName
        
        Open filePath For Output As #1
        Print #1, Cells(i, "A").Value
        Close #1
    Next i
End Sub
AI给你回复