出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[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
英文字が取得できない 　 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]

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