请问如何将excel文件转换成txt文件 ，急急急.......

Question

引用Excel对象，然后引用单元格，一个一个的读出来，存进txt文件。
如果你有VB方面的书，找找ActiveX对象的那章，很多书讲的都有引用Word/Excel对象的例子，如果书没有，建议买本！

Answer 1

但我要在excel中读一行然后放在txt中一行。有没有例子试试，THANKS

Answer 2

试试以下代码
Dim i As Integer
Dim j As Integer
Dim Temp_Txt as String
Dim hetong As Excel.Application
Dim x1book As Excel.Workbook
Dim x1sheet As Excel.Worksheet
On Error GoTo ine
Set hetong = CreateObject("Excel.Application")
Set x1book = hetong.Workbooks.Open(App.Path + "\excel模板\合同\合同单.xls")
Set x1sheet = x1book.Worksheets(1)
Temp_Txt=x1sheet.cell(1,1)   '读取(1,1)单元格
Set x1book = Nothing
hetong.Application.Quit稍微改改看看能不能用?

Answer 3

用DAO来实现
Set Db = OpenDatabase("c:\temp\book1.xls", False, False, "Excel 8.0;")
sql = "SELECT * INTO [Text;DATABASE=文本文件路径].[文本文件名称] FROM [工作表名加$]"
Db.Execute (sql)
记得给分噢。

Answer 4

to free_eyes(eyes)
行是行，只不过我的excel文件格式为
    A　　 B　　 C       D
1  001   002   003     004
2  005   006   007     008
3  009   010   011     012
读到txt中变成
001
002
003
004
005
006
007
008
009
010
011
012
请问有没有什么解决方法，分数不够再加。thanks.