使用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在打开文件时自动自动调整列