小吳 VBQA 程式設計討論

程式碼如下
Set xlapp = CreateObject("Excel.application")
Set xlbook = xlapp.Workbooks.Open("filename.xls")
Set xlsheet = xlbook.Worksheets("sheet1")
xlsheet.Range("A1:G30").Select　　-----------------＞＞＞＞＞＞
　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　With Selection.Borders(xlEdgeLeft)
　　　　.LineStyle = xlContinuous
　　　　　　 .
　　　　　　 .
　　　　　　 .

Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing

第一次執行都沒問題,但是第二次再箭頭處就會出現
'沒有設定物件變數或with區塊變數'
我查了全文檢索但卻無發找到詳細解答
拜託拜託......各位高手幫我解決一下
謝謝