把excel每一行中的数据输出为一个txt文档的VBA函数
excel vba代码：
Sub makeTxt()
For i = 1 To 10'从第1行到10行(最后一行)
On Error Resume Next'出现错误时继续运行脚本
Open "d:\" & Cells(i, 1) & ".txt" For Append As #1'新建文本文档到D盘下，并命名为句柄1，文本文档的文件为excel表格中的第一列中的内容
Print #1, Cells(i, 2)' 写入excel表格中的第二列到文本文档中
Close #1
Next
End Sub
【综合网络信息编辑，版权当属原作者。由于部分网络资料几经转载，很多作品的原作者和来源不详或者不确定，若未标明来源，敬请谅解，请及时联系我们注明！若有侵犯，恳请联系我们，我们将尽快删除！】
手机扫描阅读分享本文
关注微信公众号，随时找到我们
本文地址：https://www.kbiji.com/kong/1700.html
关注我们：请关注一下我们的微信公众号：扫描二维码，公众号：乐享空笔记
版权声明：本文除注明"转载"外，其它为原创（或源于互联网，由@乐享空笔记整理），其中转载文章版权归原作者所有，欢迎分享本文，转载请保留出处。部分网站内容综合网络信息编辑，版权当属原作者。由于部分网络资料几经转载，很多作品的原作者和来源不详或者不确定，若未标明来源，敬请谅解，请及时联系我们注明！若有侵犯，恳请联系我们，我们将尽快删除！
关注我们：请关注一下我们的微信公众号：扫描二维码
，公众号：乐享空笔记版权声明：本文除注明"转载"外，其它为原创（或源于互联网，由@乐享空笔记整理），其中转载文章版权归原作者所有，欢迎分享本文，转载请保留出处。部分网站内容综合网络信息编辑，版权当属原作者。由于部分网络资料几经转载，很多作品的原作者和来源不详或者不确定，若未标明来源，敬请谅解，请及时联系我们注明！若有侵犯，恳请联系我们，我们将尽快删除！
评论已关闭！