写了一个小软件，其中有两个按钮的代码结尾是一样的，都是：
ulSheet.Activate
   ulSheet.Range("A1:M" & n).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
   
    ulSheet.Columns("A:G").Select
    Selection.ColumnWidth = 8
问题，我运行第一个按钮，很正常运行结束，点第二个按钮就会报错，
关了再开，先点第二个按钮，很正常运行结束，再点第一个就会报错，
先点的正常，后点的就会报错，求高手帮帮无助的我~~

补充上完整代码
第一个按钮：
Private Sub Command29_Click()  '五
Dim ulBook As Excel.Workbook
Dim ulSheet As Excel.Worksheet
Set ulBook = xlApp.Workbooks.Add  '新建一个存储结果
Set ulSheet = ulBook.Worksheets(1)

ulSheet.Activate
    ulSheet.Range("A1:K" & m).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With

  ulSheet.Columns("A:C").Select
  Selection.ColumnWidth = 8

pb2 = "D:\GuoResult\53OilArea.xls"

ulBook.SaveAs FileName:=pb2
ulBook.Close (True)
xlApp.Quit
Set xlApp = Nothing
MsgBox ("请查看" & pb2)
End Sub

第二个按钮：
Private Sub Command28_Click()  '五
Dim ulBook As Excel.Workbook
Dim ulSheet As Excel.Worksheet
Set ulBook = xlApp.Workbooks.Add  '新建一个存储结果
Set ulSheet = ulBook.Worksheets(1)

ulSheet.Activate
    ulSheet.Range("A1:K" & m).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With

  ulSheet.Columns("A:C").Select
  Selection.ColumnWidth = 8

pb2 = "D:\GuoResult\53OilArea.xls"

ulBook.SaveAs FileName:=pb2
ulBook.Close (True)
xlApp.Quit
Set xlApp = Nothing
MsgBox ("请查看" & pb2)
End Sub

我粘贴的时候怕太长，删了一部分，这个不是问题所在，
刚刚解决了，原因是select与selection没匹配好，
也感谢您的帮助

我粘贴的时候怕太长，删了一部分，这个应该不是问题所在，
刚刚解决了，原因是select与selection没匹配好，
也感谢您的帮助