全球主机交流论坛

标题: Excel写入txt的问题 [打印本页]

作者: lzlancom 时间: 2024-1-3 10:15
标题: Excel写入txt的问题
一张Excel表格有100行内容，如何实现:
第一行内容写入到d:/1.txt
第二行内容写入到d:/2.txt
第三行内容写入到d:/3.txt
.
.
.
第一百行内容写入到d:/100.txt

作者: 梦想成真 时间: 2024-1-3 10:18

作者: cicvc 时间: 2024-1-3 10:19
复制到notepad++批处理

作者: van 时间: 2024-1-3 10:42
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 时间: 2024-1-3 11:02
把excel转换成json.就好操作了。

欢迎光临全球主机交流论坛 (https://loc.442266.xyz/)