タイトル : 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のオブジェクトブラウザが役立ちます。 独学なので、参考になるかどうか分かりませんが・・・ もし、詳しい方でもっときれいな書き方があれば私も教えてほしいです。 |