excel表格怎么输出为txt

1.excel导出txt文件 的格式

表格换成文档，那么不同单元格内容之间会出现长空格。

反过来，文档之间如果加上长空格粘贴到EXCEL里面，

那么长空格两头的文档会在不同的单元格里面。

另： 长空格是在文档中敲TAB键出来的。

解决办法：

1） 将EXCEL的内容粘贴到WORD里面。并选择仅保留文本。

2） 使用替换功能， 替换时需要复制一个长空格， 替换成你需要的逗号。

3） 全选 ->； 复制 ->； 打开TXT ->； 粘贴。

* TXT里面貌似没有替换功能。

2.把数据从EXCEL导出到TXT的问题

将数据保存在文本变量里，在输出到Txt，估计就能解决第一个问题。

关于第二个，我找了一个从ANSI转到Unicode的过程代码，你可以参考一下。

1

2

3

4

5

6

7

8

9

10

11

12

13

14

ConstBOM AsInteger= &HFEFF

SubWriteUnicodeFile(ByValFileName AsString, ByValText AsString)

DimhFile AsInteger

DimaBytes() AsByte

aBytes = Text

IfLenB(Dir(FileName)) <> 0 Then

Kill FileName

EndIf

hFile = FreeFile()

Open FileName ForBinary Access Write Lock Read Write As#hFile

Put #hFile, , BOM

Put #hFile, , aBytes

Close #hFile

EndSub

3.excel如何自动导出txt

单独导出一部分，我们相个变通的办法吧。通过剪贴板能把B列的数据保存到指定的txt文件中：

1.在vba编辑器中添加一个窗体，事实上这个窗体没有用，只是为了添加对象，能访问剪贴板。

在VBA编辑器的左边工程资源管理器的位置，就是添加模块的地方，右键，插入 用户窗体，确定就行了。如果不插入窗体会出现错误。

2.在对应的sheet中指定、执行下面的宏，假设文本名在C1单元格，保存路径是D：\，保存为txt文件。这样点执行以后就能生成指定Txt文件了。

Private Sub CommandButton1_Click()

Dim mydata As DataObject

Set mydata = New DataObject

Dim fs

Dim fName, stra As String

fName = "d:\" & Cells(1, 3) & ".txt" '保存的文件名称和路径 这里引用 C1为文件名

Set fs = CreateObject("ScrIPting.FileSystemObject")

If Len(Dir(fName)) > 0 Then Kill (fName)

Set f = fs.OpenTextFile(fName, 8, True)

Columns("B:B").Copy

mydata.GetFromClipboard

stra = mydata.gettext(1)

stra = Left(stra, Len(stra) - 1)

f.writeline stra

f.Close

End Sub