初学者又来问了,怎么把excel转成txt文档

菜鸟又来问了,如何把excel转成txt文档

要求如下图,excel转txt文档,不知VB可以实现不,这文档也是用VB的open output 生成的!

------最佳解决方案--------------------

Sub Macro4()

' Macro4 Macro

'

    ActiveWorkbook.SaveAs Filename:= _

        "C:\Book1.csv", FileFormat:=xlCSV, _

        CreateBackup:=False

End Sub

录制了这样一个宏，然后用VB打开相应xls文件，运行这个宏就行啦
------其他解决方案--------------------
Book1.csv 把这个改成 book1.TXT 不就行了？？

至于用VB打开excel，再控制它运行一个宏，那是另外一个问题了

其实还可以用数据库的方式读取xls的单元格格的内容，然后再自己按照需要写入txt，但你还是掌握了上面的方法先啦

引用:

引用:Visual Basic code?

1234567

Sub Macro4() ' Macro4 Macro ' ActiveWorkbook.SaveAs Filename:= _ "C:\Book1.csv", FileFormat:=xlCSV, _ CreateBac……

------其他解决方案--------------------
这说的是中文吗！？
既然是用 VB 的 Open Output 模式输出的文件，首先就有文本文件了。
怎么又要“excel转txt文档”？
------其他解决方案--------------------
你说的是将 .text后缀名改成。csv吗
------其他解决方案--------------------

引用:

这说的是中文吗！？
既然是用 VB 的 Open Output 模式输出的文件，首先就有文本文件了。
怎么又要“excel转txt文档”？

可能我的意思有点误导了,就是说把excel转为txt文档格式如图,我就想问VB 可以实现不
------其他解决方案--------------------

引用:

你说的是将 .text后缀名改成。csv吗

不是啊!就excel转txt,用VB来实现
------其他解决方案--------------------
在 Excel 中录一个宏：另存为 csv 格式即可。
------其他解决方案--------------------

引用:

Visual Basic code?

1234567

Sub Macro4() ' Macro4 Macro ' ActiveWorkbook.SaveAs Filename:= _ "C:\Book1.csv", FileFormat:=xlCSV, _ CreateBackup:=FalseEnd Sub

录制了这样一个宏，然后……

这个方法我知道!难道生成csv再改扩展名吗?
------其他解决方案--------------------

引用:

Book1.csv 把这个改成 book1.TXT 不就行了？？

至于用VB打开excel，再控制它运行一个宏，那是另外一个问题了

其实还可以用数据库的方式读取xls的单元格格的内容，然后再自己按照需要写入txt，但你还是掌握了上面的方法先啦

引用:
引用:Visual Basic code?

……

这方法不行,感觉是取巧我已经解决啦!是excel读出来再写入文本
------其他解决方案--------------------

引用:

引用:Book1.csv 把这个改成 book1.TXT 不就行了？？

至于用VB打开excel，再控制它运行一个宏，那是另外一个问题了

其实还可以用数据库的方式读取xls的单元格格的内容，然后再自己按照需要写入txt，但你还是掌握了上面的方法先啦

引用:
引用 6 楼 sos……

呵呵什么叫取巧呢，我试过明明可以啊，其实扩展名跟它里面是什么格式没有必然关系的？？还有，你说不行，要说说为什么不行才好解决啊。

初学者又来问了,怎么把excel转成txt文档

相关推荐