网页知识大全 有各种问题可直接咨询博主
您所在的位置:首页 > 实例 > 正文

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

作者:网页知识大全clewo.net 来源:网络 日期:2018/12/12 18:38:54 加入收藏 评论:0 标签:数据排列组合后导出的代码

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

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

本文网址:http://clewo.net/shili/145.html
读完这篇文章后,您心情如何?
  • 0
  • 0
  • 0
  • 0
  • 0
  • 0
  • 0
  • 0