-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
あなたが行がエラーを生成するコードを示すものではありませんでしたし、適切に質問にタグを付けていなかった。ここでは、スクリプトがより
を終了すると、ステータスバーのテキストを変更し、元に戻すための確実な方法です(Excel?)デスクトップには必要なライブラリの参照がないと思う。参照で「MISSING」という単語がある行を確認してください(Tools-> References) –
sbStatusBar.Panels(1).Text = "Developed by:xxx" erreorがこの行に表示されています....同じ参照がラップ&デスクトップに保存されています。 .. PCの設定も同じです... vb6はアプリケーションを使用しています...しかし、デスクトップでは両方のオフィスが2003年と2007年がExcelにインストールされていますが、2007年にはラップのみオフィスがインストールされました – bijithpp
定義されたsbStatusBarを確認します。 –