Access2000からExcel2000の罫線の削除

質問

Access2000でデータを抽出し、Excel2000に出力する作業を行っています。
VBAで以下のような記述で行っています。

'ファイルパス指定
lBookNm = "D:\temp\test.xls"
'Excelのオブジェクトを設定
Set lExcelObj = CreateObject("Excel.Application")
'Excelを開く
lExcelObj.Workbooks.Open (lBookNm)
'Excelの表示
lExcelObj.Application.Visible = True

'シートのコピー
lExcelObj.Worksheets("master").copy After:=lExcelObj.Worksheets("master")
lExcelObj.Worksheets("master (2)").Name = "テスト"

'シートの操作
With lExcelObj.Worksheets("master")
.Activate
.Cells(8, 1).Value = "test"
End With

lExcelObj.ActiveWorkbook.Save '保存

以下の２点について、わかる方おりましたらご教示お願いします。

１、罫線の削除
罫線を削除したいと思い、以下の記述をしましたが、
「アプリケーション定義またはオブジェクト定義のエラーです。」となってしまいます。
どのように記述すればよいでしょうか。

With lExcelObj.Worksheets("master")
　　.Range("B39:B42").Select
　　.Application.Selection.Borders(xlEdgeRight).LineStyle = xlNone
End With

２、シートの削除
シートを削除したいと思い、以下のように記述しましたが、
Excel上で、「シートを削除します。」「OK」、「キャンセル」
と問い合わせ画面が出てしまいます。
無条件で削除を行いたいのですが、可能でしょうか。

lExcelObj.Worksheets("テスト").Delete

回答No.2

tofu14 · ベストアンサー

xlEdgeLeft=7
xlInsideVertical=11
です。

VisualBasicEditorの[ツール]から[参照設定]でExcelを参照設定するとこれらの値を定義しなくても使用できると思います。
Excelを参照設定して、F2キーのオブジェクトブラウザから値は確認できます。
参照設定すれば、
Set lExcelObj = CreateObject("Excel.Application")も
Dim lExcelObj As Excel.Application
と同等の意味になると思われます。

お礼

回答ありがとうございます。
オブジェクトブラウザや参照設定のことなど
大変参考になりました。

回答No.1

tofu14

1.について
xlEdgeRight=10
xlNone=-4142
を定数として定義

2.について
lExcelObj.Application.DisplayAlerts = False
を設定しておく

というのはいかがでしょうか？

お礼

回答ありがとうございます。
おかげさまで、無事目的を果たすことができました。

ついでで申し訳ありませんが、教えてください。
罫線の削除は、右辺だけでなく、左辺や、真ん中の垂直線も削除したいと思っています。

xlEdgeLeft
xlInsideVertical

のコードはいくつになるのでしょうか？
調べ方が悪いのか、ヘルプに出てきませんでした。