用宏导出两列内容 共同保存在指定路径一个txt文件里.
发布网友
发布时间:2022-05-20 13:30
我来回答
共1个回答
热心网友
时间:2023-10-25 11:47
arr = .Range("F1:F" & .UsedRange.Rows.Count).Value
修改为:
arr = .Range("E1:F" & .UsedRange.Rows.Count).Value
Print #1, arr(i, 1)
修改为:
Print #1, arr(i, 1), arr(i,2)追问导出成功了,但是为什么和我手动复制的不一样,
我用手动复制两列到文本里 两列间隔是一个“大空格”(相当于按了一下TAB键)。
而用宏导出的是十多个空格。
不知道能不能改进一下?我需要导出的文本像我上面说的那样,才能适合我的软件读取。
追答Print #1, arr(i, 1), arr(i,2)
修改为:
Print #1, arr(i, 1) & chr(9) & arr(i,2)
来自:求助得到的回答