数据排列组合后导出的代码

Sub DaoChu()

Dim I As Integer

For I = 1 To 582

Open "D:\wenzhang1\" & I & "asd.html" For Output As 1 '修改文章txt存储目录

Print #1, Range("I" & CStr(I)).Value '这里要修改字母为你的对应的列 当前为I列

Close 1

Next I

MsgBox "数据导出完毕！", vbOKOnly, "导出成功"

End Sub

数据排列组合后导出的代码由网页知识大全整理