Excelファイルのダウンロードについて (ID:116309)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 .netじゃないソースですが Const adTypeBinary = 1 Dim objStream '= As ADODB.Stream Dim vData '= As Byte Dim objFile Set objStream = CreateObject("ADODB.Stream") With objStream .Type = adTypeBinary .Open .LoadFromFile "C:\**\**.xls" vData = .Read(-1) .Close End With Set objStream = Nothing Set objFile = Server.CreateObject("Scripting.FileSystemObject") objFile.DeleteFile "C:\**\**.xls" Set objFile = Nothing Response.ContentType = "application/x-download" Response.AddHeader "Content-Disposition" , " attachment; filename=**.doc" Response.BinaryWrite vData こんなやり方が個人的にはベストかなと？