編譯錯誤;方法或數據未找到

-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

編譯錯誤;方法或數據未找到

回答

相關問題