tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: EXCELに罫線を引きたい
投稿日: 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のオブジェクトブラウザが役立ちます。

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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。