元の三流解説は、
三流君ASP:ADOでExcelファイル(*.xls)とやっと接続できた(ほっ)
↑を見て、笑ってやってください。
ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です)
※古くさいコードが多いです・・・
ソースコード
<%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ASPからADOを使用してExcel(*.xls)に接続してみた</title> </head> <body> <h1>ASPからADOを使用してExcel(*.xls)に接続してみた</h1> Driver={Microsoft Excel Driver (*.xls)}をADOで使ってみました。 <hr> test053-1.asp<br> ASPからADOを使用してExcel(*.xls)に接続するテストを行う<br> <hr> <% 'ADO DB Recordset オブジェクトを作成する、英文そのままじゃん Set rs=Server.CreateObject("ADODB.Recordset") strSQL = "select * from DATA_RANGE" Con = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _ Server.MapPath("test053.xls") & ";" Response.Write "作った、使った接続文字列は<br>" Response.Write "<CODE>" & Con & "</CODE><hr>" '接続文字列、SQLを渡して、レコードセットを開く Rs.Open strSQL, Con, 0 '0=adOpenForwardOnly strOUT = "" Do While Rs.EOF = False For Each FieA In Rs.Fields strOUT = strOUT & FieA.Name & " -- " & FieA.Value & "<BR>" Next Rs.MoveNext '次のレコードへ移動 Loop Rs.Close Set Rs = Nothing Response.Write strOUT '結果を表示 %> <hr> [<a Href="test053.xls" TARGET="_blank">test053.xlsを開く</a>]<br> <img src="http://www.ken3.org/backno/gif/asp053-01.gif"><br> ↑が表のイメージです。 </body> </html>
↑をテスト実行する→
http://www.ken3.org/cgi-bin/test/test053-1.asp
← 実行する
↑コードの三流解説は、
三流君ASP:ADOでExcelファイル(*.xls)とやっと接続できた(ほっ)
を見て、笑ってやってください。
ASPの解説 トップページは
三流君ASPで遊ぶ、失敗する
です。こちらもよろしく・・・