ExcelVBA收纳箱：将一列数据转为文本文件内容

我们将探讨如何利用Excel VBA实现将A列数据转化为文本文件内容的具体步骤，如图所示。

1、 先看动图演示吧

2、 首先打开表格。

3、 然后选择DIY工具箱。

4、 接着我们选择收纳箱操作。

5、 接着选择本地新建命令。

6、 弹出界面我们输入如下代码。Sub 另存为文本文档()Dim WshShellSet WshShell = CreateObject("酱毙付Wscript.Shell")On Error Resume Next ? ActiveWorkbook.SaveAs Filename:= _? ? ? ? ThisWorkbook.Path & "Step.txt", FileFormat:=xlText, _? ? ? ? CreateBackup:=False? ? Application.WindowState = xlMinimized? ? Application.WindowState = xlNormalWshShell.SendKeys "%{F4}"End Sub

7、 并设置函数类别况喝和函数说明。

8、 确定后搜索找到我们刚驾绵才编写的命令。

9、 并单击执行按钮。

10、 好了，即可看到我们导出的文本文件内容，双击该文件。