tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルEXCELに罫線を引きたい
記事No635
投稿日: 2004/01/23(Fri) 08:09
投稿者BETTY
[OSのVer]:Windows XP    [VBのVer]:VB.NET 
VB.netを始めたばかりの初心者です
VBからExcelに罫線を引かせたくて悩んでいます
ここのヘルプからVB6のコードをバージョンアップしたり
マクロを貼り付けいじくったりしていましたが上手くいきません
そんな時シバさんの投稿を見て真似をしたのですが
どうやってもxlContinuousに波線が付きます
Excel.LineStyle.Continuousをインポートすれば大丈夫でした
と書いてありましたがインポートってなんですか?
私の環境では

Dim xls As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As ExcelWorksheet

でやっていますので
Excelの部分を入れ替えたりしたのですがダメでした
現在は組み込み定数(初めて聞きました)で

With xlsheet.Range("セル番地").Borders(※)
     .LineStyle = ※
     .Weight = ※
End With

※には数字を入れ替えながら試しています

なんとか
xlContinuous xlThin xlHairline xlEdgeTop xlEdgeBottom xlEdgeRight xlEdgeLeft.......
に波線が付いて
〜のメンバではありません
名前が宣言されていません
などが出ないように出来ませんか

お願い致します m(_ _)m

[ツリー表示へ]
タイトルRe: EXCELに罫線を引きたい
記事No636
投稿日: 2004/01/23(Fri) 11:36
投稿者シバ
BETTYさんこんにちは。
私も初心者なので間違っているところがあるかも分かりませんが、
参考までに実行可能なサンプルを書いておきます。

最初に参照の追加をしてください。
プロジェクト>参照の追加>COM>Microsoft Excel *.*(Excelのバージョンにより異なる) Object Li
brary

’*****ここから*****

'オブジェクトのインスタンス作成
Dim objExcel As Excel.Application = New Excel.Application()

objExcel.DisplayAlerts = False

Dim objWorkbook As Excel.Workbook = objExcel.Workbooks.Add

'ファイルの読み込み
objWorkbook = objExcel.Workbooks.Open("読み込むファイルのパス")

Dim objSheet As Excel.Worksheet = objWorkbook.Worksheets(1)

'Excelを不可視状態に
objExcel.Application.Visible = False

'罫線を引く
objSheet.Range("A1:B1").Borders.LineStyle = Excel.XlLineStyle.xlContinuous
'**************************
'Public Class Form1 の上で
' Imports Excel.XlLineStyle
'と書いておけば
’objSheet.Range("A1:B1").Borders.LineStyle = xlContinuous
'でもエラーはなくなります。
'**************************

'ファイルの名前を付けて保存
objWorkbook.SaveAs("保存先のファイルパス")
objWorkbook.Close()

'使用オブジェクトのクリア
objExcel.DisplayAlerts = True
objExcel.Workbooks.Close()
objExcel.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(objSheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objWorkbook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel)
objSheet = Nothing
objWorkbook = Nothing
objExcel = Nothing

'ガベージコレクタの起動
GC.Collect()

'プログラムの終了
End

’*****ここまで*****

xlContinuousはExcel.XlLineStyleクラスのメンバなので、その他の組み込み定数を使いたければ、
Excel.*** 「***」の部分を替える必要かあります。
使いたい定数がどのクラスのメンバかを知るには
ExcelのVisualBasicEditorのオブジェクトブラウザが役立ちます。

独学なので、参考になるかどうか分かりませんが・・・
もし、詳しい方でもっときれいな書き方があれば私も教えてほしいです。

[ツリー表示へ]
タイトルRe^2: EXCELに罫線を引きたい
記事No640
投稿日: 2004/01/25(Sun) 11:23
投稿者BETTY
[OSのVer]:Windows    [VBのVer]:VB.NET  

返信ありがとうございます
無事に罫線を引くことが出来ました
シバさん本当にありがとうございました
私の勉強不足で下記部分はまだ上手くいきませんが

> 'Public Class Form1 の上で
> ' Imports Excel.XlLineStyle
> 'と書いておけば
> ’objSheet.Range("A1:B1").Borders.LineStyle = xlContinuous
> 'でもエラーはなくなります。

これから頑張って学んでいきたいと思いますので
今後もご指導宜しくお願いします

[ツリー表示へ]