出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
英文字が取得できない 　 kolbei2001さん [2004/06/16 21:12:04] [4378]
　 Re:英文字が取得できない 　 YasNet（管理人）さん [2004/06/17 12:33:05] [4381]
　 　 Re:英文字が取得できない 　 kolbei2001さん [2004/06/20 22:33:31] [4394]
　 　 　 Re:英文字が取得できない 　 Lightningさん [2004/06/21 10:26:56] [4395]
　 　 　 　 Re:英文字が取得できない 　 kolbei2001さん [2004/06/21 21:55:20] [4396]
　 　 　 　 　 Re:英文字が取得できない 　 YasNet（管理人）さん [2004/06/22 11:11:51] [4397]
[4378] 英文字が取得できない
投稿者：kolbei2001さん 2004/06/16 21:12:04
管理人様、ご利用の皆さんはじめまして。
aspでaccess97からデータを取り出しexcel97に出力しようと
しています。しかし数字のみのデータ取得できexcelに出力
出来ますが、英文字が混在しているデータが取得できません。
何が原因か解らず困っています。ご教授頂ければ助かります。
下記がそのaspです。(*)のところで取得、excelに書き込み
しています。宜しくお願いいたします。

Sub ModeExcel
%>
<SCRIPT LANGUAGE="VBS">
<!-- ブラウザ側のスクリプト
' 変数宣言
Dim objExcelApp

On Error Resume Next
Err.Clear
Set objExcelApp = CreateObject("Excel.Application.8")

If Err Then
' エラー処理
document.write "<font color=red>"
document.write "Excelを起動できませんでした<br>"
document.write "エラー:" & Err.Description & "<br>"
document.write "</font><br>" & vbCrLf
Else
On Error goto 0

objExcelApp.Workbooks.Add

Set objExcelBook = objExcelApp.ActiveWorkbook
Set objExcelSheets = objExcelBook.Worksheets
Set objExcelSheet = objExcelBook.Sheets(1)
objExcelSheet.Activate
objExcelApp.Application.Visible = True

<%
SET db=Server.CreateObject("ADODB.CONNECTION")
db.ConnectionString=Server.MapPath("TEST.mdb")
db.provider="Microsoft.Jet.OLEDB.4.0"
db.mode=3
db.open

SET REST=Server.CreateObject("ADODB.Recordset")
Str1SQL="SELECT * FROM テーブル1"
REST.OPEN Str1SQL,DB,3,3,&h0001

M=1
rest.MoveFirst
DO UNTIL REST.EOF
%>
objExcelApp.ActiveSheet.RANGE("A" & <%=m%>)=<%=REST　("TYPECODE")%> '(*)
<%
REST.MoveNext
M=M+1
LOOP
%>
End If
//-->
</SCRIPT>

<%
ModeDefault
db.close
set db=nothing
End Sub
[4381] Re:英文字が取得できない
投稿者：YasNet（管理人）さん 2004/06/17 12:33:05
こんにちは　YasNet（管理人）です。

＞objExcelApp.ActiveSheet.RANGE("A" & <%=m%>)=<%=REST　("TYPECODE")%> '(*)

このデータが正しく取得出来ているのでしょうか
直接セットするのではなく
一旦ワークに退避して
response.writeなどで、取得データの内容を確認してみては
如何でしょうか。

RANGEを止めてCellsで設定してみるとか・・・かなぁ〜

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

それでは　失礼致します。
[4394] Re:英文字が取得できない
投稿者：kolbei2001さん 2004/06/20 22:33:31
こんばんは.

> ＞objExcelApp.ActiveSheet.RANGE("A" & <%=m%>)=<%=REST　("TYPECODE")%> '(*)
>
> このデータが正しく取得出来ているのでしょうか
> 直接セットするのではなく
> 一旦ワークに退避して
> response.writeなどで、取得データの内容を確認してみては
> 如何でしょうか。

そうです。このデータが上手く取れていません。
response.writeで試したのですが全く取得できていない状態です。
数字のみのデータは取得できているので不思議です。

> RANGEを止めてCellsで設定してみるとか・・・かなぁ〜
こちらも試してみましたが駄目です。

> 解決したら、解決方法教えてくださいねぇ〜
もう少し検討してみます。
皆様アドバイス頂けると助かりますので宜しくお願いいたします。
[4395] Re:英文字が取得できない
投稿者：Lightningさん 2004/06/21 10:26:56
あ、わーかった・・・かも
objExcelApp.ActiveSheet.RANGE("A" & 1)=1
ソースを見てたら↑のようになるんじゃないか？と思いました。
つまり、代入時に数字ならそのままですが、英数を含むと変数としてみちゃうから
objExcelApp.ActiveSheet.RANGE("A" & 1)='1'
っていうふうになるようにしないといけないのでは？
[4396] Re:英文字が取得できない
投稿者：kolbei2001さん 2004/06/21 21:55:20
Lightningさん

確認してみたのですが、やはり駄目です。ん・・・原因が解りません。

＞objExcelApp.ActiveSheet.RANGE("A" & <%=m%>)=<%=REST　("TYPECODE")%> '(*)
上記の処理をブラウザ側で処理させているのですが、上手くwebサーバから
<%=REST　("TYPECODE")%>のデータ取得できていないです。
しかし数字だけのデータはOKで、英語が混ざるとNG（全く取得できない）、英語-数字
というパターンは”-数字”のみ表示されるという可笑しな事になっています。
[4397] Re:英文字が取得できない
投稿者：YasNet（管理人）さん 2004/06/22 11:11:51
こんにちは　YasNet（管理人）です。

期待は出来ないけど
REST("TYPECODE").value にしてみるとか・・・

それでは　失礼致します。

> Lightningさん
>
> 確認してみたのですが、やはり駄目です。ん・・・原因が解りません。
>
> ＞objExcelApp.ActiveSheet.RANGE("A" & <%=m%>)=<%=REST　("TYPECODE")%> '(*)
> 上記の処理をブラウザ側で処理させているのですが、上手くwebサーバから
> <%=REST　("TYPECODE")%>のデータ取得できていないです。
> しかし数字だけのデータはOKで、英語が混ざるとNG（全く取得できない）、英語-数字
> というパターンは”-数字”のみ表示されるという可笑しな事になっています。

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