写了一个小软件，其中有两个按钮的代码结尾是一样的，都是：
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
问题，我运行第一个按钮，很正常运行结束，点第二个按钮就会报错，
关了再开，先点第二个按钮，很正常运行结束，再点第一个就会报错，
先点的正常，后点的就会报错，求高手帮帮无助的我~~

从代码本身看不出错误。代码也不全，不可能测试
怀疑是执行一次之后ulSheet没有获取对象，建议在代码中加中断和监控，调试过程中看一下ulSheet是不是为空

补充上完整代码
第一个按钮：
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

Dim ulBook As Excel.Workbook
Dim ulSheet As Excel.Worksheet
Set ulBook = xlApp.Workbooks.Add  '新建一个存储结果
Set ulSheet = ulBook.Worksheets(1)

ulBook.SaveAs FileName:=pb2
ulBook.Close (True)
xlApp.Quit
Set xlApp = Nothing


ulBook.Close (True)   这句，把工作簿关掉了
xlApp.Quit            这句，还把 EXCEL 关掉了

而你打开 EXCEL 的代码在哪？

二个按钮中都没有打开EXCEL的代码，只有直接使用 xlApp 对象 操作 工作簿的代码

第一个执行的关闭的EXCEL，那第二个执行的，在
Set ulBook = xlApp.Workbooks.Add  '新建一个存储结果
这句就应该要报错了，对象已关闭

就是我说的问题，初步判断应该是这句
Set xlApp = Nothing
第一次运行时xlApp =excel.application，所以是没有问题，但是运行完之后上面的语句释放对象了。再运行时xlapp已经为空
所以，你这个程序不管先点击哪个按钮都可以，但是第二次点击都会报错。解决方法
1.删除即可。
2.在每次需要调用Excel的语句之前重新调用对象 Set xlapp = CreateObject("Excel.Application")
还是那句话，调试代码的时候，在报错位置加中断和监视对象，看看是否变量是否正常

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

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