高手谁来帮帮我，简单却搞不定的一段 - 编程论坛

#2

xiangyue05102018-02-27 17:00

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

#3

start19012018-02-27 20:37

回复楼主 start1901

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

#4

风吹过b2018-02-28 08:51

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  '新建一个存储结果
这句就应该要报错了，对象已关闭

#5

xiangyue05102018-02-28 08:55

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

#6

start19012018-03-07 22:13

回复 4楼风吹过b

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

#7

start19012018-03-07 22:14

回复 5楼 xiangyue0510

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