标题:高手谁来帮帮我,简单却搞不定的一段
取消只看楼主
start1901
Rank: 1
等 级:新手上路
帖 子:25
专家分:4
注 册:2018-2-26
结帖率:40%
已结贴  问题点数:20 回复次数:3 
高手谁来帮帮我,简单却搞不定的一段
写了一个小软件,其中有两个按钮的代码结尾是一样的,都是:
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
问题,我运行第一个按钮,很正常运行结束,点第二个按钮就会报错,
关了再开,先点第二个按钮,很正常运行结束,再点第一个就会报错,
先点的正常,后点的就会报错,求高手帮帮无助的我~~

搜索更多相关主题的帖子: 按钮 With Selection 行结束 报错 
2018-02-26 22:38
start1901
Rank: 1
等 级:新手上路
帖 子:25
专家分:4
注 册:2018-2-26
得分:0 
回复 楼主 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
2018-02-27 20:37
start1901
Rank: 1
等 级:新手上路
帖 子:25
专家分:4
注 册:2018-2-26
得分:0 
回复 4楼 风吹过b
我粘贴的时候怕太长,删了一部分,这个不是问题所在,
刚刚解决了,原因是select与selection没匹配好,
也感谢您的帮助
2018-03-07 22:13
start1901
Rank: 1
等 级:新手上路
帖 子:25
专家分:4
注 册:2018-2-26
得分:0 
回复 5楼 xiangyue0510
我粘贴的时候怕太长,删了一部分,这个应该不是问题所在,
刚刚解决了,原因是select与selection没匹配好,
也感谢您的帮助
2018-03-07 22:14



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-484877-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.341471 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved