|
分類:[.NET 全般]
2015/02/14(Sat) 14:56:03 編集(投稿者)
2015/02/14(Sat) 14:55:58 編集(投稿者)
VisualStudioのプログラムから、新規で出力したExcel（xlsx）に罫線をひく方法を探していますが、
どうしてもできません。（本来は範囲指定してその範囲に罫線をひきたい）
分かる方、ご教授ください。
参照設定が悪ければ参照設定のこともお願いします。
下記に分かるだけの環境とプログラムを記載します。
「罫線====」の部分の書き方が何か間違っていると思っているんですが…
正解が分かりません。「HRESULT からの例外・・・」というエラーが出ます。
Windows7Pro SP1(32ビット）
VisualStudio2010Pro のVB2010で開発
Microsoft Office Pro Plus2010
Excelバージョン14.0.6106.5000(32ビット)
ーーーーーーーーーーーーーーーーーーーーーー
Private Sub Button2_Click(sender As Object, e As System.EventArgs) Handles Button2.Click
On Error GoTo Err_fnc_ExcelOut
Dim objExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim strOutFilePath As String
Dim strOutFilePathBK As String
'出力ファイルパスの指定
'strOutFilePass = CurrentProject.Path '自MDBのパス
strOutFilePath = "D:\テスト.xlsx"
objExcel = CreateObject("Excel.Application")
xlBook = objExcel.Workbooks.Add
xlSheet = xlBook.Worksheets(1)
'メッセージを非表示にする
objExcel.DisplayAlerts = False
xlBook.Worksheets.Add.Name = "罫線だしたい"
xlBook.SaveAs(strOutFilePath, Excel.XlFileFormat.xlWorkbookDefault)
'' ''出力先のExcelファイルを指定
objExcel.Workbooks.Open(strOutFilePath)
objExcel.Worksheets("罫線だしたい").Select()
'罫線========================================================================================
xlSheet.Range("B2:C2").Borders.LineStyle = Excel.XlLineStyle.xlContinuous 'こちらのパターンもダメ
'xlSheet.Range(xlSheet.Cells(2, 2), xlSheet.Cells(3, 2)).Borders.LineStyle = True 'こちらのパターンもダメ
'========================================================================================
'結合セル
objExcel.Range("B7:B20").Merge()
'項目行 色付
' objExcel.Range("A3:M3").Interior.Color = vbYellow
objExcel.Range("A1:KD6").Interior.Color = RGB(204, 255, 255)
objExcel.Range("A1:E20").Interior.Color = RGB(204, 255, 255)
'セル幅を文字長に合わせる
objExcel.Columns("B:KD").autofit()
objExcel.Cells(6, 3).Value = "罫線が出ない"
'sheet「抽出結果」をアクティブに
objExcel.Worksheets("罫線だしたい").Select()
objExcel.SaveWorkspace() '保存する
objExcel.Quit() '閉じる
'メッセージを表示にする
objExcel.DisplayAlerts = True
xlSheet = Nothing
xlBook = Nothing
objExcel = Nothing
Application.Exit()
Exit_fnc_ExcelOut:
Exit Sub
Err_fnc_ExcelOut:
objExcel.Quit()
MsgBox(Err.Description)
''DoCmd.Hourglass(False)
Resume Exit_fnc_ExcelOut
End Sub
ーーーーーーーーーーーーーーーーーーーーーー
すみません。
分類を ASP.net(VB) から .net全般 に修正します。
おそらく、この分類で正しいのかと・・・・
|