| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2890 人关注过本帖
标题:运行宏,提示错误-2147417848(80010108)
只看楼主 加入收藏
追_马
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-7-6
收藏
 问题点数:0 回复次数:2 
运行宏,提示错误-2147417848(80010108)
图片附件: 游客没有浏览图片的权限,请 登录注册

下面是具体的宏,红色部分就是报错地方。但是这个代码在其他excel就能用。这个功能是财务月报用的。其他分公司也用这个代码,但只有三、四家公司报错
大神们,请问知道这什么原因吗

Sub insert()
    Dim Message, Title, Default, rownum
    Message = "请输入需要插入的行数,行数范围从1至1000,当前默认行数为1。"
    Title = "输入行数"
    Default = "1"
    rownum = InputBox(Message, Title, Default)
    If rownum = "" Then
        End
    Else
   
    sheetname = Range("Y4")
    sheetaccess = Range("Y3")
    msg_num = "B" & Range("Y11") - 1
    If sheetaccess = "F" Then
    MsgBox "本月数据已经被保护!"
    Else
    For j = 1 To rownum
        ActiveSheet.Unprotect Password:="dtwfin0936"
        ActiveWorkbook.Unprotect Password:="dtwfin0936"
        Sheets("Backup").Visible = True
        Sheets("Backup").Select
        Range("A11:X11").Select
        Selection.Copy
        'Rows("11:11").Copy
        'ActiveWindow.ScrollColumn = 1
        
        Select Case sheetname
                Case 1
                Sheets("1").Select
                Case 2
                Sheets("2").Select
                Case 3
                Sheets("3").Select
                Case 4
                Sheets("4").Select
                Case 5
                Sheets("5").Select
                Case 6
                Sheets("6").Select
                Case 7
                Sheets("7").Select
                Case 8
                Sheets("8").Select
                Case 9
                Sheets("9").Select
                Case 10
                Sheets("10").Select
                Case 11
                Sheets("11").Select
                Case 12
                Sheets("12").Select
        End Select

        ins_num = "A" & Range("Y11")
        Range(ins_num).insert Shift:=xlDown
        Range("Y11") = Range("Y11") + 1
        ActiveSheet.Protect Password:="dtwfin0936", DrawingObjects:=True, Contents:=True, Scenarios:=True
        Sheets("Backup").Visible = False
        ActiveWorkbook.Protect Password:="dtwfin0936"
        Next j
        End If
        End If
End Sub
搜索更多相关主题的帖子: If End Password Select Case 
2018-07-06 17:05
追_马
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-7-6
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
2018-07-06 17:05
追_马
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-7-6
收藏
得分:0 
没有人遇到过吗,只有我独一份呀。
2018-09-07 13:57
快速回复:运行宏,提示错误-2147417848(80010108)
数据加载中...
 
   



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

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