怎样用表格制作名单然后保存到桌面?
发布网友
发布时间：2022-04-26 18:10
共1个回答
热心网友
时间：2023-10-20 08:06
Sub 保存为txt()
Dim MyOutDir As String, i
MyOutDir = "C:\Users\Administrator\Desktop\" '截取的内容保存为txt时的输出目录，可自行修改
Set l = Range([a1], [a1048576].End(3))
Open MyOutDir & "名单.txt" For Output As #11
For i = 1 To l.Rows.Count
Print #11, l(i)
Next
On Error Resume Next
Close #11
End Sub
