- PR -

Web表示のExcelのシートタブが消える!!

1
投稿者投稿内容
Hirara
会議室デビュー日: 2005/08/25
投稿数: 5
投稿日時: 2005-08-25 15:54
初めて投稿します。

ASPでExcelを作成し、そのExcelを表示しています。
表示HTML構成は下の通りです。
--------------------------------------
| |
| Form1 |
| |
|------------------------------------|
| Form2 | |
| | |
|-------| |
| | |
| | |
| Form3 | Form4 |
| | |
| | |
| | |
| | |
| | |
--------------------------------------

上の構成でForm3にｻﾌﾞﾐｯﾄボタンを設け、Form4にExcelを
表示させています。
その時に、Form4に表示されているExcelにはシートが4つあり、
グラフ・データなどを表示しているのですが、シートタブを
クッリックしてデータを見ようとすると表示上でシートが消えてしまいます。
（削除された感じ!!）
シート消えたExcelを保存したら保存したExcelでもシートがなくなってしまいます。

Form3のｻﾌﾞﾐｯﾄボタンを押したときに別画面で表示すると問題なく、
動きます。


どなたかわかる方・経験ある方は、教えてください。


ちなみにASPでExcelを作成するソースは下記です。


<%@ LANGUAGE=VBScript %>
<%
Option Explicit
%>
'自動ファイル名作成
Randomize

strExcelNumber=Cstr(Minute(Now)) & Cstr(Second(Now)) & FormatNumber(INT(1000*RND),"00000") & ".xls"

If strExcelNumber <> "" Then

On Error Resume Next
Err.Clear

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

else
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelBook = objExcelApp.Workbooks.Open("D:test.xls")
Set objExcelSheet = objExcelBook.WorkSheets("グラフ")
objExcelApp.application.DisplayAlerts = true

Call 'マクロを起動してデータを取得する処理へ


' ファイルを保存する
objExcelSheet.Activate
objExcelBook.Saved = True
objExcelBook.SaveAs ("D:\Excel\" & strExcelNumber)
objExcelBook.close False
objExcelApp.Quit
Set objExcelBook =Nothing
Set objExcelApp = Nothing
Response.Redirect "URL名" & strExcelNumber
end if
Else
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
</BODY>
</HTML>
<%
End IF

こんな感じです。
1

スキルアップ／キャリアアップ（JOB@IT）