Excel写入txt的问题

lzlancom

一张Excel表格有100行内容，如何实现:
第一行内容写入到d:/1.txt
第二行内容写入到d:/2.txt
第三行内容写入到d:/3.txt
.
.
.
第一百行内容写入到d:/100.txt

梦想成真

cicvc

复制到notepad++批处理

van

gpt说用vba

Sub WriteToTextFiles()
    Dim ws As Worksheet
    Dim i As Long
    Dim txtFile As Integer
    Dim txtPath As String
   
    Set ws = ActiveSheet '设置工作表为当前活动的工作表
    txtPath = "d:\" '设置文本文件的保存路径
   
    For i = 1 To 100 '循环遍历100行内容
        txtFile = FreeFile '获取一个可用的文件编号
        Open txtPath & i & ".txt" For Output As #txtFile '以输出模式打开文本文件
        Print #txtFile, ws.Cells(i, 1).Value '将单元格的值写入文本文件
        Close #txtFile '关闭文本文件
    Next i
End Sub

cnly1987

把excel转换成json.就好操作了。