ホームページ
更新履歴
NOW!
チャット
ボイスチャット
ボイスメール
分身一覧
中継一覧
チャットメンバー
MSサポート情報検索
検索ページ
システム概要
パスワード変更
システム概要
ダウンロード
フォロー
一覧
WINTIS97
ツール、TIPS
Urlコンポーネント
Sessionモニタ
Excel作成
webinfo
きゃらメール
delold.vbs
rentoday.vbs
ASP TIPS
IRC伝言サービス
IRC計算サービス
プロファイル aspProfile
時間計測 TimeTool
MIMEマップ操作
電話番号11桁対応
ServerVariables
IPアドレス設定
Mediaモニタ
数式電卓
ファイル表示
CHOCOA URL紹介
お勧め
ソフトウェア
ハードウェア
リンク
WinNT WebRing
サイト一覧
前へ
次へ
ランダム
この機能は、IE4でのみ確認しています。
概要
フォームで入力された値をもとに、自動的にExcelブックを 作成します。クライアント条件
さらに拡張することにより、自動的に印刷させることも可能です。
この機能は、ASPによるサーバー側の処理と、IE4によるクライアント側の 処理をそれぞれ、スクリプトを使って実行しています。
クライアント側でもスクリプトによる処理を行います。 したがって、クライアントには、ダウンロード
・Internet Explorer 4.0以上
・Microsoft Excel 97
がインストールされている必要があります。
demo.lzhデモ
(3,896バイト)
demo.aspdemo.aspソースファイル
３つの入力欄に数値を入力して、ボタンをおしてください。
なお、ボタンを押すと次のメッセージが表示されますが、
そのまま、実行してください。
これは、Excelオブジェクトをクライアントがわで起動するために 表示されます。
※このエラーを表示させないようにする方法については調査中。
<% ' === ここは，サーバ側の処理
' --------------------------- 処理内容判定
Header
Select Case Request("strC")
Case "Excel"
ModeExcel
Case Else
ModeDefault
End Select
Footer
' --------------------------- ヘッダー表示
Sub Header
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN" "html.dtd">
<html>
<head>
<META NAME="AUTHOR" CONTENT="Yoshihiro Kawabata">
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<META NAME="MS.LOCALE" CONTENT="JA">
<title>Excelブック自動作成サンプル</title>
</head>
<body BGCOLOR="#FFFFFF">
<%
End Sub
' --------------------------- フッター表示
Sub Footer
%>
</body>
</HTML>
<%
End Sub
' --------------------------- 初期ページ
Sub ModeDefault
%>
入力した値にしたがって自動的にExcelファイルを作成します。<br>
Internet Explorer 4.0, 5.01でのみ動作確認しています。<br>
<br>
<FORM Method="POST" Action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
V1: <Input Type="TEXT" Name="intV1" Value="1000"><br>
V2: <Input Type="TEXT" Name="intV2" Value="200"><br>
V3: <Input Type="TEXT" Name="intV3" Value="300"><br>
<Input Type="Hidden" Name="strC" Value="Excel">
<Input Type="Submit" Value="Excelブック作成">
</FORM>
<%
If Not IsIE4 Then
Response.Write "<font color=red>この機能は IE4 以上でのみ対応しています<br>" & vbCrLf
Response.Write "現在お使いのブラウザからは利用できません</font><br>"
End If
End Sub
' --------------------------- Excelを作る
Sub ModeExcel
%>
<SCRIPT LANGUAGE="VBS">
<!-- ブラウザ側のスクリプト
' 変数宣言
Dim objExcelApp
On Error Resume Next
Err.Clear
Set objExcelApp = CreateObject("Excel.Application")
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
' 既存テンプレートのOpen
' ※新規ワークシートの作成の場合は、
' 変わりに objExcelApp.Workbooks.Add
objExcelApp.Workbooks.Open "<% = GetURLPath() & "demo.xlt" %>",,True
'
Set objExcelBook = objExcelApp.ActiveWorkbook
Set objExcelSheets = objExcelBook.Worksheets
Set objExcelSheet = objExcelBook.Sheets(1)
objExcelSheet.Activate
objExcelApp.Application.Visible = True
objExcelSheet.Cells(2,2).Value = "<%= Request("intV1") %>"
objExcelSheet.Cells(3,2).Value = "<%= Request("intV2") %>"
objExcelSheet.Cells(4,2).Value = "<%= Request("intV3") %>"
objExcelSheet.Cells(5,2).Formula = "=sum(B2:B4)"
objExcelSheet.Range("celNow").Value = "<%= now() %>"
xSum = objExcelSheet.Cells(4,1).Value
' ファイルを保存する
' objExcelBook.Save
' objExcelApp.Quit
End If
//-->
</SCRIPT>
<%
ModeDefault
End Sub
' --------------------------- ブラウザのバージョン判定
Function IsIE4()
Dim objBrowser
Set objBrowser = Server.CreateObject("MSWC.BrowserType")
If objBrowser.browser = "IE" and _
CDbl(objBrowser.Version) >= 4.0 Then
IsIE4 = True
Else
IsIE4 = False
End If
End Function
' --------------------------- 現在のスクリプトのURLパスを得る
Function GetURLPath()
Dim strURL, nP
strURL = "http://" & _
Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> "80" Then
strURL = strURL & ":80"
End If
strURL = strURL & "/" & Request.ServerVariables("SCRIPT_NAME")
nP = InStrRev(strURL, "/")
If nP > 0 Then
strURL = Left(strURL, nP)
End If
GetURLPath = strURL
End Function
%>
Hotmail,MSN Messanger:YoshihiroKawabata
参照:
管理:/CreateExcel.asp
管理ツール