如何将Excel文件另存为txt 文件 ?

Question

如题

Answer 1

'首先添加对Microsoft Excel x.0 Object Library的引用Private Sub Command1_Click()
    Dim appXLS As Excel.Application '定义excel对象
    Set appXLS = New Excel.Application '生成excel新实例
    appXLS.Workbooks.Open "C:\Book1.xls" '打开excel文档
    appXLS.ActiveWorkbook.SaveAs "C:\output.txt", xlText '另存为txt格式
    appXLS.ActiveWindow.Close '关闭文档
    appXLS.Quit '退出excel
    Set appXLS = Nothing '释放资源
End Sub

Answer 2

引用了EXCEL 对象呀，不错不错,学习一下来
 以后扩展就可以把doc文件转换为html文件,等等

Answer 3

一般不会乱码，除非包含unicode字符等特殊情况。只是会丢失格式。

Answer 4

可以按照 TAB 分隔的格式吗? 怎么用TAB  格式分开.....