使用ASP Classic自动调整Excel工作表的所有列

Question

大家好我正在使用以下格式和代码将记录插入到Excel中

sFileName = "abc.xls"

sFilePath = server.mappath("EXCEL\" & sFileName)

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set objCreatedFile = fso.CreateTextFile(sFilePath)
objCreatedFile.close
Set objOpenFile = fso.OpenTextFile(sFilePath,8,True)
    Set rst = server.CreateObject("ADODB.RecordSet")    
    sSQL = "select * from a table"
    rst.Open sSQL, conn, 3, 3
    if not rst.eof then
       sStr = "NAME" & chr(9) & "ADDRESS" & char(9) & "TEL" & char(9) 
       objOpenFile.WriteLine sStr

       Do while not rst.eof
          sStr = rst("NAME) & chr(9) & rst("ADD") & char(9) & rst("TEL") & char(9) 
          objOpenFile.WriteLine sStr
       rst.movenext
       loop
    end if
objOpenFile.Close
Set objOpenFile = nothing
Set fso = nothing

将记录插入excel后，或者使用excel打开一个文件，其中的记录由制表符分隔。我想现在调用一些东西来自动调整excel中的所有列。怎么做，请帮忙。谢谢。

Answer 1

制表符分隔的文本文件不是excel文件。并且没有办法（缺少某种Excel加载项）让客户端的Excel在打开文件时自动自动调整列