ошибка компиляции; метод или данные не найдены

-4

этот ниже код работает отлично в ноутбуке, но в моем рабочем столе офиса я не могу запустить программу. Ошибка - метод или данные не найдены. Пожалуйста, предоставьте мне решение.ошибка компиляции; метод или данные не найдены

Private Sub 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' в ссылках (Tools-> References) –

sbStatusBar.Panels (1) .Text =" Developed by: xxx "erreor показывает в этой строке .... та же ссылка хранится в lap & desktop. .. Конфигурации ПК тоже такие же .... vb6 - это приложение, использующее ... но на рабочем столе оба Office excel 2003 и 2007 установлены, но только на коленях установлен только Office 2007 – bijithpp

Проверьте, как определяется sbStatusBar, возможно, он использует внешнюю библиотеку. –

Ваша проблема может быть из-за проблем совместимости с версиями Excel. Вот верный способ изменить STATUSBAR текст и вернуть его к оригиналу, когда сценарий закончен

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

ошибка компиляции; метод или данные не найдены

ответ

Смежные вопросы