mso-number-format を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはmso-number-format です。
<%@ language=vbscript %>
<%
If Request.QueryString("MODE") = "Excel" Then 'Excel作成なら
response.buffer = true
'タイプとヘッダがExcelですよ、、と教えてあげるため
response.ContentType = "application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=dynamic.xls"
Call OUT_DATA() 'データの出力ルーチンを呼ぶ
response.flush
response.end
Else 'パラメータ無しなら
response.write "<html><head><title>"
response.write "style='mso-number-format:"\@";'を指定してExcelへ"
response.write "</title></head><body>"
response.write "<h1>mso-number-format:"\@";を指定してExcelへ</h1>"
response.write "↓普通のデータ表示です<hr>"
Call OUT_DATA() 'データの出力ルーチンを呼ぶ
response.write "<hr>↑ここまで。<br>"
response.write "<a href='test079-1.asp?MODE=Excel'>Excel形式の表示</a><br>"
response.write "↑xlsファイルのダウンロード<br>"
Call OUT_SRC("mso-number-format") 'ソースの表示関数を呼ぶ
response.write "</body></html>"
End If
%>
<% 'データの出力 テーブル形式でデータを出力します
Sub OUT_DATA
response.write "<table Border=1>"
response.write "<tr>"
for i = 1 to 4
response.write "<td width=80>"
response.write i + i
response.write "</td>"
next
response.write "<td width=80><b>=sum(A1:D1)</b></td>"
response.write "</tr>"
'日付と誤解されるデータの出力をチェックする
response.write "<tr>"
response.write "<td>9-30</td>" '9-30普通に表示されるけどExcelへ行くと
' style='mso-number-format:"\@";'を指定しました ↓""は"1つの表現です
response.write "<td style='mso-number-format:""\@"";'>9-30</td>"
response.write "<td>2003-10-01</td>" '2003-10-01違いは感じられないが・・・
response.write "<td style='mso-number-format:""\@"";'>2003-10-01</td>"
response.write "<td>←Excelにすると・・・</td>"
response.write "</tr>"
response.write "</table>"
End Sub
%>
| 最近発売の雑誌を紹介する
パソコン雑誌です。息抜きや空いた時間に読んで見ては？
- Computer Report (コンピューターレポート) 2008年 09月号
- PC・GIGA (ピーシーギガ) 2008年 10月号
- MdN (エムディーエヌ) 2008年 10月号
|