运行时错误1004方法ＶＢproject作用于对象workbook失败

lzw158

我用的是，excel2003,出现了“运行时错误1004方法ＶＢproject作用于对象workbook失败”请各位大虾解答，谢谢

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

Moneky

原因很多，将出错的代码贴上来，说明在那一句出错，应该有大侠可以帮你。

Just-Name-_-

Moneky 发表于 2010-10-2 14:40
原因很多，将出错的代码贴上来，说明在那一句出错，应该有大侠可以帮你。

没有错误代码的，是在上传数据的时候报的错误！！是设置问题吗？？

kakoi

我也想知道

34720115

Private Sub CommandButton1_Click()
    Dim Wbk As Workbook
    Set Wbk = Workbooks.Add
    Dim w1 As String
    '构造代码
    w1 = "Private Sub Workbook_Open()"
    w1 = w1 & vbCrLf & "MsgBox ""我是被克隆出来的，呵呵!"""
    w1 = w1 & vbCrLf & "End Sub"
    Dim VBC
    For Each VBC In Wbk.VBProject.VBComponents
        If VBC.Name = Wbk.CodeName Then
            '删除所有代码
            VBC.CodeModule.DeleteLines 1, VBC.CodeModule.CountOfLines
            '插入新代码
            VBC.CodeModule.InsertLines 1, w1
            Exit For '跳出循环
        End If
    Next
    '保存工作簿
    'Wbk.SaveAs "c:\obs\obs1.xls"
    Set Wbk = Nothing
End Sub
运行到For Each VBC In Wbk.VBProject.VBComponents时出现1004错误：方法'VBProject'作用于对象'_Workbook'时失败
请帮忙解决

jygzcj

Debug.Print ThisWorkbook.VBProject.Protection
  If Err.Number = 1004 Then
    Err.Clear
    Application.SendKeys "%TMS%T%V{ENTER}"
Chgset = True
DoEvents
  End If
这样能解决，但是不能解决对话框问题！

pysamuel

我也碰到了同样的问题。 目的是想在CODE 模块 “MODULE1” 内删除几行， 但是运行到

With ThisWorkbook.VBProject.VBComponents("module1").CodeModule 哪句，
便弹出 ERROR 1004 方法 ‘VBProject’ 作用于对象 ‘_Workbook’ 是失败


问题代码：


With ThisWorkbook.VBProject.VBComponents("module1").CodeModule

   ksh = .ProcBodyLine("yyrgzx", vbext_pk_Proc)

   zh = .ProcCountLines("yyrgzx", vbext_pk_Proc)

   .DeleteLines ksh, zh - 1

End With