2017-02-09 16 views
-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 
+0

あなたが行がエラーを生成するコードを示すものではありませんでしたし、適切に質問にタグを付けていなかった。ここでは、スクリプトがより

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 

を終了すると、ステータスバーのテキストを変更し、元に戻すための確実な方法です(Excel?)デスクトップには必要なライブラリの参照がないと思う。参照で「MISSING」という単語がある行を確認してください(Tools-> References) –

+0

sbStatusBar.Panels(1).Text = "Developed by:xxx" erreorがこの行に表示されています....同じ参照がラップ&デスクトップに保存されています。 .. PCの設定も同じです... vb6はアプリケーションを使用しています...しかし、デスクトップでは両方のオフィスが2003年と2007年がExcelにインストールされていますが、2007年にはラップのみオフィスがインストールされました – bijithpp

+0

定義されたsbStatusBarを確認します。 –

答えて

0

あなたの問題は、Excelのバージョンとの互換性の問題に起因することがあります。 Microsoft.Com

関連する問題