作者：乔山办公网日期：
返回目录：excel表格制作
我可以帮你写个VBA代码，还需要吗?
如果需要，请告知要生成的Sheet名，LMNO四列从哪行开始输出。
Sub a()
Dim i As Integer, fso As Object, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.createtextfile("c:\盘zd\1.TXT")
f.Close
Set f = Nothing
Set fso = Nothing
End Sub
试试版这个权
您好，zhidao代码改成内这样容
Sub CommandButton1_Click()
Open "D:\new.txt" For Output As #1
Print #1, Right(Sheets(1).Cells(1, 1).Value, 2)
Close #1
End Sub