Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3277 / 13645 ツリー ←次へ | 前へ→

【63163】罫線が引けません iijima 09/10/12(月) 11:09 質問[未読]
【63164】Re:罫線が引けません りん 09/10/12(月) 12:35 回答[未読]
【63165】Re:罫線が引けません iijima 09/10/12(月) 13:43 お礼[未読]

【63163】罫線が引けません
質問  iijima  - 09/10/12(月) 11:09 -

引用なし
パスワード
   こんにちは

WEB(asp.net)でvbscriptを使って、createobjectして
excelapplicationをopenしています

シートに罫線を書くことができません

      With xl.ActiveSheet.Range( xl.Cells(sel,col), _
          xl.Cells(sel + excelsel, col + excelline)).Borders
          .LineStyle = xlContinuous
      End With

.vbsのvbscriptのバッチファイルではうまくいくのですが..

宜しくお願いします

【63164】Re:罫線が引けません
回答  りん E-MAIL  - 09/10/12(月) 12:35 -

引用なし
パスワード
   iijima さん、こんにちわ。

>シートに罫線を書くことができません
>
>      With xl.ActiveSheet.Range( xl.Cells(sel,col), _
>          xl.Cells(sel + excelsel, col + excelline)).Borders
>          .LineStyle = xlContinuous
>      End With
確か、xlContinuous等の定数も使えなかったような。
なので、直接指定してみてください。
例)
With sht.Range("A1:C10").Borders
  .LineStyle = 1 ' =xlContinuous
  .Weight = 2 ' =xlThin
End With

(参考)
定数を使えるようにする方法みたいです。
ht tp://www.happy2-island.com/vbs/cafe02/capter00109.shtml

【63165】Re:罫線が引けません
お礼  iijima  - 09/10/12(月) 13:43 -

引用なし
パスワード
   ▼りん さん:
>iijima さん、こんにちわ。
>
>>シートに罫線を書くことができません
>>
>>      With xl.ActiveSheet.Range( xl.Cells(sel,col), _
>>          xl.Cells(sel + excelsel, col + excelline)).Borders
>>          .LineStyle = xlContinuous
>>      End With
>確か、xlContinuous等の定数も使えなかったような。
>なので、直接指定してみてください。
>例)
>With sht.Range("A1:C10").Borders
>  .LineStyle = 1 ' =xlContinuous
>  .Weight = 2 ' =xlThin
>End With
>
>(参考)
>定数を使えるようにする方法みたいです。
>ht tp://www.happy2-island.com/vbs/cafe02/capter00109.shtml

たびたび、ありがとうございます

本当に、感謝感謝です

3277 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free