>>465
手元にあったのを適当にいじって作ったんで動かんかも知れん。
その辺は適当にいじって動くようにしてくれ。
もしかするともっとスマートな方法があるかもしれんが。

'ファイル出力
Sub FileDownLoad
　　’SaveName :名前を付けて保存に出てくるファイル名
　　’TargetXLS :読み込むエクセルファイル
　　'objBASP :BASP21
　　Const SaveName = "hogehoge.xls"
　　Const TargetXLS = "d:\hugahuga.xls"
　　Dim objBASP
　　'バッファオン
　　Response.Buffer = True
　　'ヘッダ
　　Response.ContentType = "application/x-download"
　　Response.AddHeader "Content-Disposition", "attachment; filename=" & SaveName
　　Set objBASP = Server.CreateObject("BASP21")
　　'読込
　　dat = objBASP.BinaryRead(TargetXLS)
　　Response.AddHeader "Content-Length", UBound(dat) + 1
　　’バッファに書き出し
　　Response.BinaryWrite dat
　　Set objBASP = Nothing
　　'バッファ書き出し
　　Response.Flush
End Sub