excel用命令将指定的内容保存在指定的txt文件中

Posted 2023-03-13

例如，A列和B列都是数字，想把A1*B1、A2*B2……的内容保存在D:\a.txt中，如何实现？
用命令实现，并且要能自动换行的，就是A1*B1的结果在一行，A2*B2的结果在另一行
现在能把数据保存在C列，但是我不想这样，想不在C列显示直接保存在D:\a.txt中，不知道如何实现。

Sub a()Dim a%a = InputBox("请输入最后一行的行号")Dim i%Doi = i + 1 If i > a Then Exit Sub Else Cells(i, 3) = Cells(i, 1) * Cells(i, 2) End IfLoopEnd Sub

你可以把结果存到字符串，直接保存

Sub a()
Dim str_result As String
Dim a%
a = InputBox("请输入最后一行的行号")
Dim i%
Do
i = i + 1
If i > a Then
Exit Sub
Else
str_result = str_result & Cells(i, 1) * Cells(i, 2) & vbCrLf
End If
Loop

Open "D:\a.txt" For Output As #1
Print #1, str_result '在TXT里输入
Close #1 '关闭
MsgBox "文件1.txt已保存在C盘了"

End Sub

这个是VB的代码，应该可以使用追问

代码有点问题，脚本原来是exit sub，要改成exit do，现在OK了，多谢。
要将下面这个“Exit Sub”改成“Exit Do”
Do
i = i + 1
If i > a Then
Exit Sub

参考技术A 扣
一五九六三九七零 参考技术B 要写代码来做