Question

excel如何自动导出txt

譬如，sheet1有ABC三列，
B随A内容变而变，B1:B100是导出txt的内容；
C1是导出txt的文件名。
求问 如何点击一个键就可以生成相应的txt文件，麻烦高手指点，十分感激！
下面两位的代码，我试了不行，不知道是哪里出错。。
请问可以发一份做好的去我邮箱吗…nnci@qq.com

Answer 1

另为存为文本文件即可

Excel版本参考：2010

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

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

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

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

Answer 2

单独导出一部分，我们相个变通的办法吧。通过剪贴板能把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

追问

您的代码，我试了不行，不知道是哪里出错。。
请问可以发一份做好的去我邮箱吗…nnci@qq.com

追答

在VBA编辑器的左边工程资源管理器的位置，就是添加模块的地方，右键，插入 用户窗体，确定就行了。如果不插入窗体会出现错误。
已发送了，注意查收。附件 book1.xls

Answer 3

为什么非要导出为TXT文件呢,仍然用EXCEL不是很好么?如果是TXT文件,将来如要对该文件进行数据处理就麻烦多了

Answer 4

打开vba窗体 假如以下代码 文件保存在E盘
Sub Macro1()

i = Cells(1, 3).Value
Columns("B:B").Select
Selection.Copy
Workbooks.Add
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="E:\" & i & ".txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWindow.Close
End Sub

追问

您的代码，我试了不行，不知道是哪里出错。。它会弹出另一个Excel新表。。
请问可以发一份做好的去我邮箱吗…nnci@qq.com

追答

发给你了 -- 工具--宏--运行宏就可以了