求将EXCEL中选定一列数据导出至文本文件中的VBA代码

heukevin

我现在打算将Excel中的一列数据（如从B1至B50）按照原序导出到一个.txt或.js的文件中，请问VBA代码该怎么写啊？请求各位指点，谢谢啦！

清风竹-

1. Public Sub output()
   
2. Dim x As Range
   
3. Open ThisWorkbook.Path & "\新建.txt" For Output As #1
   
4.     For Each x In [b1:b50]
   
5.         Print #1, x
   
6.     Next
   
7. Close #1
   
8. End Sub
   

复制代码