如何将数据插入保存的excel文件Classic asp

时间:2014-09-16 08:14:30

标签: excel asp-classic

我有一个当前保存在服务器上的excel文件。

我正在尝试将数据插入到excel文件中,我是经典asp的新手,不知道如何做到这一点。

下面的代码目前下载了一个excel文件。我如何将数据插入excel文件?

 <%

'--declare variables
Dim strAbsFile
Dim strFileExtension
Dim objFSO
Dim objFile
Dim objStream
'-- set absolute file location
strAbsFile = Server.MapPath("WORK.xls")
'-- create FSO object to check if file exists and get properties
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'-- check to see if the file exists
If objFSO.FileExists(strAbsFile) Then
    Set objFile = objFSO.GetFile(strAbsFile)
    '-- first clear the response, and then set the appropriate headers
    Response.Clear
    '-- the filename you give it will be the one that is shown
    ' to the users by default when they save
    Response.AddHeader "Content-Disposition", "attachment; filename=" & objFile.Name
    Response.AddHeader "Content-Length", objFile.Size
    Response.ContentType = "application/octet-stream"
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Open
    '-- set as binary
    objStream.Type = 1
    Response.CharSet = "UTF-8"
    '-- load into the stream the file
    objStream.LoadFromFile(strAbsFile)

    '-- send the stream in the response
    Response.BinaryWrite(objStream.Read)

   ' InsertSQL = "Insert into [Sheet1$] (3,4) values('test')"
   ' ADOConn.execute InsertSQL 

    objStream.Close
    Set objStream = Nothing
    Set objFile = Nothing
Else 'objFSO.FileExists(strAbsFile)
    Response.Clear
    Response.Write("No such file exists.")
End If
Set objFSO = Nothing

%GT;

0 个答案:

没有答案