Sub 输出文本()
Sheets(“sheet1”).Select ‘选定要保存的工作表
k = 1
For i = 1 To 1000 Step 20 ‘从第1行到1000行,每20行为一个文件
Range(“a” & i & “:f” & i + 19).Copy ‘复制A到F列的六行内容
Workbooks.Add
ActiveSheet.Paste

ActiveWorkbook.SaveAs Filename:=k, FileFormat:=xlText, CreateBackup:=False ‘以txt类型存储
ActiveWindow.Close (True) ‘关闭文件
k = k + 1
Next
MsgBox “保存完毕”
End Sub

分类: 代码

发表评论

电子邮件地址不会被公开。 必填项已用*标注