编译错误;方法或数据未找到

-4

下面的代码在笔记本电脑上工作正常，但在我的办公室桌面，我无法运行该程序。错误是找不到方法或数据。请给我一个解决方案。编译错误;方法或数据未找到

私人小组cmdGenRep_Click（）

Private Sub Form_Load() 
    sbStatusBar.Panels(1).Text = "Developed by: xxx" 
    sbStatusBar.Panels(2).Text = "Ver: " & App.Major & "." & App.Minor & "." & App.Revision 
    tabSales.Tab = 0 
    OptQReg.Value = True 

    cboMonth.AddItem "January" 
    cboMonth.AddItem "February" 
    cboMonth.AddItem "March" 
    cboMonth.AddItem "April" 
    cboMonth.AddItem "May" 
    cboMonth.AddItem "June" 
    cboMonth.AddItem "July" 
    cboMonth.AddItem "August" 
    cboMonth.AddItem "September" 
    cboMonth.AddItem "October" 
    cboMonth.AddItem "November" 
    cboMonth.AddItem "December" 

    cboMonth.ListIndex = Val(Format(Date, "mm")) - 1 
    txtYear = Format(Date, "YYYY") 

    Dim Tdate As String 
    Dim Fdate As Date 
    Tdate = "01/" & Format(Date, "MMM/YY") 
    Fdate = Format(Tdate, "DD/MMM/YY") 
    optQRep.Value = True 
    optComp.Value = True 
    optEntry.Value = True 
    DTPstDate.Value = Fdate 
    DTPEndDate.Value = Format(Date, "DD/MMM/YY") 

    cboScope.AddItem "ALL" 
    cboScope.AddItem "STEEL+CLADDING" 
    cboScope.AddItem "CLADDING ONLY" 
    cboScope.AddItem "STEEL ONLY" 
    cboScope.ListIndex = 0 

    pathTmpl = "C:\templates\" 
    pathQregister = "C:\register\" 
    pathJobRegister = "C:\register\" 

End Sub

来源

2017-02-09 bijithpp

你没有指出哪些代码行生成错误，没有正确标注问题（Excel？）我认为你的桌面没有引用所需的库。在参考文献（工具 - >参考文献）中检查带有'MISSING'字的行 –

sbStatusBar.Panels（1）.Text =“Developed by：xxx”erreor显示在这一行中....保存在lap和desktop中的同一参考文献。 ..电脑的配置也是一样的.... VB6是应用程序使用...但在桌面办公室Excel 2003和2007年安装，但在圈只有办公室2007年安装 – bijithpp

检查如何定义sbStatusBar，可能它使用外部库。 –

你的问题可能与Excel版本由于兼容性问题。这是肯定的方式来更改状态栏文本;当脚本完成

sub statusBarChange() 
    oldStatusBar = Application.DisplayStatusBar 
    Application.DisplayStatusBar = True 
    Application.StatusBar = "Please be patient..." 
    Workbooks.Open filename:="LARGE.XLS" 
    Application.StatusBar = False 
    Application.DisplayStatusBar = oldStatusBar 
end sub

从它返回到原来的：Microsoft.Com

来源

2017-02-09 14:47:21

编译错误;方法或数据未找到

回答

相关问题