办公软件的达人请留步，帮忙个帮，100分真诚奉上！

办公软件的达人请留步，帮忙个帮，100分真诚奉上！

Private Sub toXml()
    arr = [a1].CurrentRegion
    For i = 1 To UBound(arr, 1)
        If Dir(ThisWorkbook.Path & "" & arr(i,1) & ".txt", 16) <> Empty Then Kill ThisWorkbook.Path & "" & arr(i,1) & ".txt"
        Open ThisWorkbook.Path & "" & arr(i,1) & ".txt" For Append As #1
        Close #1
    next
End Sub用这个宏就好了。

Alt+F11》新窗口 插入》模块》粘贴代码》F5
追问我是菜鸟，没有搞明白....
Alt+F11没有反应
我安装是的wps版本的追答你的excel没安装宏功能？

追问我刚才问了，这个版本没有，开发工具里的vba是灰色的追答你先看看控制面板
控制面板》添加删除程序》microsoft office》更改》添加或删除功能》


把这些都本地安装装上~如果没有，那我也没办法，下个完整版的安装吧

追问

估计没有，我从新去下一个，要下什么版本的？哪里去下
追答下面不还有个高级么？那个打勾，再看看？


追问
我没有从新下载，在c盘找到一个2003版本的，是这个么


我没有从新下载，在c盘找到一个2003版本的，是这个么

追答打开你有数据的文件，看下alt+f11可以弹出这个窗口吗，可以就照最开始的步骤做追问
Alt+F11》新窗口 插入》模块》粘贴代码》F5，这些步骤完成了，接下来有什么指示？
追答完成了，你就看下同目录下是否生成了你要的txt啊~追问
感谢感谢，大神，我成功了，欧耶！可是txt里面没有文字哈？
追答Private Sub toXml()
    arr = [a1].CurrentRegion
    For i = 1 To UBound(arr, 1)
        If Dir(ThisWorkbook.Path & "" & arr(i,1) & ".txt", 16) <> Empty Then Kill ThisWorkbook.Path & "" & arr(i,1) & ".txt"
        Open ThisWorkbook.Path & "" & arr(i,1) & ".txt" For Append As #1
            Print #1, arr(i,1)'写入第一行
        Close #1
    next
End Sub这个是我的错，刚才发现没写入，但是被推荐了，没法给你代码，只能等你追问了。