ASP Klassisch Mit allen Spalten einer Excel-Tabelle

Question

Hallo Autofit alles, was ich Datensätze in Excel mit dem folgende Format und Code am Einfügen

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 

Nachdem die Datensätze in Excel einfügen oder eher Excel eine Datei zu öffnen mit die Datensätze durch Tabs getrennt. Ich möchte jetzt etwas aufrufen, um alle Spalten in Excel automatisch zu bearbeiten. Wie es geht, bitte helfen Sie. Vielen Dank.

Answer 1

Tab-getrennte Textdatei keine Excel-Datei. Und es gibt keine Möglichkeit (ohne irgendeine Art von Excel-Add-In), dass das Excel des Kunden automatisch die Spalten beim Öffnen der Datei automatisch anpasst.