求一个批量将excel每行转换成单独的txt

thuang9

excel每行有6列，第一列为生成的txt文件名，第二列到第六列的内容在txt中转置成对应第一行到第五行.


excel有几千行，最好可以做一个列数可以修改的（或者自适应最好），谢谢各位大佬

thuang9

我在论坛搜到以下可以用，但是生成的txt内容没有换行，中间还有个，


Sub Excel和txt映射()
Dim i&, j&, info$
For i = 1 To 100 '可在此处修改行数，这里假定有3行
    info = ""
    For j = 1 To 3 '可在此处修改列数，这里假定有3列
        info = info & "," & Cells(i, j)
    Next j
    info = Right(info, Len(info) - 1)
    Open ThisWorkbook.Path & "\" & Cells(i, 1) & ".txt" For Output As #1 '将每行第1个单元格信息作为txt文件名
        Print #1, info
    Close #1
Next i
End Sub

山菊花

可把","改成换行符：

info = info & "," & Cells(i, j)
改为：
info = info & vbCrLf & Cells(i, j)
或：
info = info & Cells(i, j) & vbCrLf

thuang9

我就是想把附件里的两个文件分别复制上千个，每个文件内容的数字依次递增其余不变，并将文件名保存为那个对应的数字

thuang9

山菊花 发表于 2024-4-23 14:54
可把","改成换行符：

info = info & "," & Cells(i, j)

谢谢大佬，不过生成的txt有个空白的第一行。还有就是生成的文件和原始文件有点区别，也许是我用excel导入数据的时候造成的.

wanghan519

thuang9 发表于 2024-4-23 14:59
我就是想把附件里的两个文件分别复制上千个，每个文件内容的数字依次递增其余不变，并将文件名保存为那个对 ...

发现tobj是二进制文件，一般的替换方法字符编码的转换可能出错
但sed不管这些只是替换，所以改了一下

thuang9

哇，谢谢wanghan519，太好了，一下就复制了2000个。瞬间理解了有知识，会让工作学习是多么的轻松愉快！谢谢大佬

wanghan519

thuang9 发表于 2024-4-23 15:54
哇，谢谢wanghan519，太好了，一下就复制了2000个。瞬间理解了有知识，会让工作学习是多么的轻松愉快！谢谢 ...

别啊，我上面回答错了，刚刚改正的你还没下载。。。

tobj是二进制文件，用powershell替换时因为会当成gbk转编码，会有错误，所以改成了sed，sed不管字符编码所以暂时没问题，改用这个吧

wanghan519

今天又学到一条教训，powershell会自作聪明把管道里的东西解编码，遇到二进制文件或者执行外部命令时需要小心处理
原始的ed、sed工具则不管编码，这在某些情况下还挺方便
不能太凭直觉，要不是楼主提醒错误，就翻车了。。。

thuang9

wanghan519 发表于 2024-4-23 15:58
别啊，我上面回答错了，刚刚改正的你还没下载。。。

tobj是二进制文件，用powershell替换时因为会当成 ...

嗯嗯，太谢谢你了