出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
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]
[4361] EXCELに書き込む？？
投稿者：知則さん 2004/06/11 17:57:28
ご返答お願いいたします。
エクセルにFormから書き込み、それをFormから読み込む。
とりあえず今は、コピーをしてます。
これを試みているんですが、出来ません。。
エラーの内容はこんなカンジです。
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] データ ソース名および指定された既定のドライバが見つかりません。

<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>

book1とbook2のエクセルデータは既に作成いたしました。
ソースは誤りないと思うのですが・・・。
どなたか教えてくださいませm(__)m
[4362] Re:EXCELに書き込む？？
投稿者：YasNet（管理人）さん 2004/06/11 19:34:18
こんにちは　です。

エラーから考えて・・・
＞ Microsoft Excel Driver(*.xls)
Microsoft Excel Driver (*.xls)

違いわかります？
Driverの後ろのスペースがあるか、無いかです。

これで無ければ・・・
基本的な事ですが、ファイルが見つけられない

きっとどちらかでしょう・・・

と、あくまでも推測

解決したら解決策教えてくださいねぇ〜

それでは　失礼致します。
[4363] Re:EXCELに書き込む？？
投稿者：知則さん 2004/06/11 21:41:56
こんばんわです。
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
で作動さしたら、rs2.Open "SELECT * FROM [sheet1$]",strCon,3,3
の部分でエラーが出てしまいました。
この原因は何だか解りますか？
よろしければ教えてください！
[4364] Re:EXCELに書き込む？？
投稿者：YasNet（管理人）さん 2004/06/12 9:55:01
こんにちは　YasNet（管理人）です。

エラーの内容は同じって事でしょうか？

> strCon = "Driver={Microsoft Excel Driver
> strCon = "Driver = {Microsoft Excel Driver

上のOpenは動くんですよね？
それなら、上にあわせてみましょう・・・また同じ事が原因では？
場所は違うけどDriverと=の間と{の間のスペースは不要です。

解決したら、教えてくださいねぇ〜

それでは　失礼致します。
[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にコピーしてるんですよね？
間違ってますか？？
[4366] Re:EXCELに書き込む？？
投稿者：知則さん 2004/06/12 21:14:10
<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") = rs("ID")
rs2("都道府県") = rs("都道府県")
rs2("間取り") = rs("間取り")
rs2("家賃") = rs("家賃")
rs2.Update
rs2.MoveNext
Loop

rs.Close
Set rs = Nothing
rs2.Close
Set rs2 = Nothing
%>
</body></html>
でした。
変数を間違えて書いてしまいましたm(__)m
FormからExcelに保存する方法はどうすれば・・・。
[4367] Re:EXCELに書き込む？？
投稿者：通りすがりさん 2004/06/12 22:14:38
この質問は別の掲示板にマルチポストされている上に
すでにちゃんとした回答もらっています。
管理人さんはいつもやさしいですけど、こういうのが続くとねぇ。

http://tryasp.winscom.co.jp/wbbs_qa.asp?TBL=W4_ASP_QA&CATE=&MODE=L_PARENT&NO=0&CTL_DISP=GROUP&CTL_NO=61970

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