如何把ACCESS数据库里的一个表导入到Excel文件后，另存为带制表符的文本文件.

Question

我已经把ACCESS数据库里的一个表导入到Excel文件,但不知如何用代码实现另存为带制表符的文本文件.
     savepath="student.txt" 
     Dim  xlBook  As  New  Excel.Workbook      '定義Excel工作簿對象  
         
     xlBook.SaveAs  savepath这样生成的文本文件直接打开格式是乱码形式的.

Answer 1

如果你只是想要存为一个TAB分隔的文本文件,那就没必要先导到Excel中,而可以直接写入文本.Open "c:\test.txt" For Output As #1
Dim rs As New ADODB.Recordset, fl As ADODB.Field
rs.Open "select * from goods", CurrentProject.Connection, adOpenStatic, adLockReadOnly
Do While Not rs.EOF
    For Each fl In rs.Fields
    Print #1, fl; Chr(9);
    Next
    Print #1,
    rs.MoveNext
Loop
Close #1