出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[4365] Re:EXCELに書き込む？？
投稿者：知則さん 2004/06/12 18:50:17
<html><body>
<head>
<title>EXCELとASP</title>
</head>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
strCon = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" _
& Server.Mappath("book1.xls")
rs.Open "SELECT * FROM [Sheet1$]",strCon

Set rs2 = Server.CreateObject("ADODB.Recordset")
strCon = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" _
& Server.Mappath("book2.xls") & ";ReadOnly=False"
rs2.Open "SELECT * FROM [Sheet1$]",strCon,3,3

Do until rs.EOF
Response.Write rs("ID") & rs("都道府県") & rs("間取り") & rs("家賃")
rs2.AddNew
rs2("ID") = rs2("ID")
rs2("都道府県") = rs2("都道府県")
rs2("間取り") = rs2("間取り")
rs2("家賃") = rs2("家賃")
rs2.Update
rs2.MoveNext
Loop

rs.Close
Set rs = Nothing
rs2.Close
Set rs2 = Nothing
%>
</body></html>

上を実行さしたらエラーは出なくなりました。
しかし、このプログラムは何をしてるのですか？
サンプルとして打ち込んだのですが、
何をしてくれているのかがわかりません。
お手数ですが教えてくださいm(__)m
book1からbook2にコピーしてるんですよね？
間違ってますか？？
EXCELに書き込む？？ 　 知則さん [2004/06/11 17:57:28] [4361]
　 Re:EXCELに書き込む？？ 　 YasNet（管理人）さん [2004/06/11 19:34:18] [4362]
　 　 Re:EXCELに書き込む？？ 　 知則さん [2004/06/11 21:41:56] [4363]
　 　 　 Re:EXCELに書き込む？？ 　 YasNet（管理人）さん [2004/06/12 9:55:01] [4364]
　 　 　 　 Re:EXCELに書き込む？？ 　 知則さん [2004/06/12 18:50:17] [4365]
　 　 　 　 　 Re:EXCELに書き込む？？ 　 知則さん [2004/06/12 21:14:10] [4366]
　 　 　 　 Re:EXCELに書き込む？？ 　 通りすがりさん [2004/06/12 22:14:38] [4367]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ