使用 ASP Classic 自动调整 Excel Sheet 的所有列

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

tab-delimited 文本文件不是 excel 文件。并且没有办法（缺少某种 Excel add-in）让客户的 Excel 在他们打开文件时自动 auto-fit 列

使用 ASP Classic 自动调整 Excel Sheet 的所有列

Using ASP Classic to autofit all columns of an Excel Sheet

vbscript

excel

asp-classic