excel如何自动导出txt

另为存为文本文件即可

Excel版本参考：2010

1、点击要导出为txt文件的excel文件的开始-另存为

2、保存类型：文本文件（制表符分割），文件名：test(根据实际写）

3、确定，出现d窗提示，点击确定

4、找到test文本文件，打开查看效果

wzsteel的方法中是没有引号的,要加引号,就要先在做wzsteel前做一个工作,使表中加上引号
sub jyh()
dim a as integer,b as integer,c as integer,d as integer
a=activesheetusedrangerowscount
b=activesheetusedrangecolumncount
for c=1 to a
for d=1 to b
cells(c,d)value="'" & cells(c,d)value & "'"
next d
next c
end sub

在此excel文件中，同时按alt和f11进入宏界面，点菜单的插入，模块，粘贴如下代码：
sub
test()
applicationscreenupdating
=
false
dim
i
as
integer
chdrive
"d:"
for
i
=
1
to
range("a9999")end(xlup)row
-
1
rows(i)copy
workbooksadd
activesheetpaste
activeworkbooksaveas
"
d:\
"
&
thisworkbookactivesheetrange("a"
&
i)
&
"txt",
xlunicodetext
activeworkbookclose
next
i
applicationscreenupdating
=
true
end
sub
在此界面直接按f5运行此宏，完成。（建议你改为比如d:\abc\之类的）

先把加载宏安全性设为中或低。然后到VBA编辑器里插入一个模块，把下面代码加进去，保存以后关闭EXCEL再重新打开。然后按ctrl+shift+P就完成导出了。导出到D盘根目录下。
Sub Auto_Open()
ApplicationOnKey "^{P}", "DaoChu"
End Sub
Sub DaoChu()
Dim I As Integer, J As Long, RW As Long
RW = ActiveSheetUsedRangeRowsCount
For I = 1 To 10
Open "D:\" & Chr(Asc("A") + I - 1) & "列txt" For Output As 1
For J = 1 To RW
Print #1, Range(Chr(Asc("A") + I - 1) & CStr(J))Value
Next J
Close 1
Next I
MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub

将excel工作簿转换为txt文本文件有三种方法：

1在另存为时选择txt。

2将工作簿中的内容复制到txt文本文档中。

参考工具和原料：

1一台Windows7系统笔记本电脑。

2软件Excel 2010。

方法一：

1新建一个excel工作簿，输入自定义内容。

2点击文件，选择另存为。

3输入文件名，设置保存路径，在保存类型里选择Unicode文本，点击保存按钮。

4点击确定按钮。

5点击是。

6在指定路径里查看文件。

7双击文件查看内容。

方法二：

1打开一个excel工作簿。

2选择要复制的数据，点击鼠标右键，选择复制。

3打开电脑上一个txt文本文件。

4点击鼠标右键，选择粘贴。

5数据粘贴完毕，按Ctrl+S保存即可。

excel中可以使用IF函数实现按条件输出文字。
当条件只有2个时，用一个IF函数就行了，如下图，在A2单元格输入公式“IF(A1>0,"盈余","亏损")”，就表示当A1单元格的值大于0时，A2单元格输出文字“盈余”，否则就输出文字“亏损”。
当条件有三个时，就需要用到2个IF函数，也就是IF嵌套函数，此时需要留意的是每个IF函数后面是一对括号，所以公式最后都是2个括号。如下图公式“=IF(A1>0,"盈余",IF(A1<0,"亏损","持平"))”，

---