生成excel后，某个字段出问题！！急

Question

Do While (ts.EOF = False) 
    
        For j = 0 To ts.Fields.Count - 1 
    
              xlsheet.Cells(i + 2, j + 1) = "'" & ts.Fields(j) 
        Next j 
        ts.MoveNext 
        i = i + 1 
Loop 

Answer 1

你EXCEL的单元格类型没有设定，所以是数字。
参考一下这里http://bingning.net/VB/SOURCE/programing/xlsedittblfmt.html

Answer 2

Do While (ts.EOF = False) 
    
        For j = 0 To ts.Fields.Count - 1 
    
              xlsheet.Cells(i + 2, j + 1) = "'" & ts.Fields(j) 
        Next j 
        ts.MoveNext 
        i = i + 1 
Loop