出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
ASPからExcelの罫線を引きたい 　 GONさん [2003/08/07 11:05:12] [3558]
　 Re:ASPからExcelの罫線を引きたい 　 YasNet(管理人)さん [2003/08/11 9:03:42] [3566]
[3558] ASPからExcelの罫線を引きたい
投稿者：GONさん 2003/08/07 11:05:12
こんにちは。はじめて書き込みさせて頂きます。GONと申します。ASPからExcelの罫線を引きたいと思い、簡単なサンプルを書いたのですが罫線が引けません。どこが悪いのか、ヒントをを頂けないでしょうか。コードは下記です。
<HTML>
<BODY>
<%
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.WorkBooks.Add
objExcel.Visible=True

'*** セル塗潰 ***
objExcel.Range("C4:F4").Interior.Color = RGB(255, 3, 8)

objExcel.Worksheets("Sheet1").Range("C4:F4").Select
objExcel.Worksheets("Sheet1").Range("A1").Borders.LineStyle = xlDouble



'*** 名前を付けて保存 ***
objBook.SaveAs("C:\temp\testExcel.xls")

objExcel.Quit
Set objExcel = Nothing
%>
</BODY>
</HTML>

開発環境
Win2000Pro SP4です。
宜しくお願い致します。
[3566] Re:ASPからExcelの罫線を引きたい
投稿者：YasNet(管理人)さん 2003/08/11 9:03:42
こんにちは　YasNet(管理人)です。

取り急ぎ、サンプルを・・・
ちょっと解説不足ですが、参考になりますか？
定数については、MSDNのマニュアルをご覧下さいまし。

> objExcel.Worksheets("Sheet1").Range("C4:F4").Select
> objExcel.Worksheets("Sheet1").Range("A1").Borders.LineStyle = xlDouble
XlsObj.ActiveSheet.Range("C1:F5").Borders(7).LineStyle = -4119
で左に二重線が表示されるはずです。

ではぁ〜

> こんにちは。はじめて書き込みさせて頂きます。GONと申します。ASPからExcelの罫線を引きたいと思い、簡単なサンプルを書いたのですが罫線が引けません。どこが悪いのか、ヒントをを頂けないでしょうか。コードは下記です。
> <HTML>
> <BODY>
> <%
> Set objExcel = CreateObject("Excel.Application")
> Set objBook = objExcel.WorkBooks.Add
> objExcel.Visible=True
>
> '*** セル塗潰 ***
> objExcel.Range("C4:F4").Interior.Color = RGB(255, 3, 8)
>
> objExcel.Worksheets("Sheet1").Range("C4:F4").Select
> objExcel.Worksheets("Sheet1").Range("A1").Borders.LineStyle = xlDouble
>
>
>
> '*** 名前を付けて保存 ***
> objBook.SaveAs("C:\temp\testExcel.xls")
>
> objExcel.Quit
> Set objExcel = Nothing
> %>
> </BODY>
> </HTML>
>
> 開発環境
> Win2000Pro SP4です。
> 宜しくお願い致します。

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