| |
よろしくお願いします。
Public Const cnsWorkDir As String = "D:\usr"
Public Const cnsTempDir As String = "C:\temp"
Public Const cnsVersion As String = "Ver1.0"
Sub auto_open()
Dim CurMenuBarCombo As CommandBar
Dim newMenu As CommandBarPopup
Dim newSubMenu As CommandBarPopup
Dim newSub2Menu As CommandBarPopup
Dim ctrl1 As CommandBarButton
Dim r As VbMsgBoxResult
If Dir(Environ("ProgramFiles") & "\lhaca\lhaca.exe", vbNormal) = "" Or _
Dir(cnsWorkDir, vbDirectory) = "" Then
r = MsgBox("標準ＰＣではありません。標準ＰＣで実行してください", vbDefaultButton1, "動作環境エラー")
Exit Sub
End If
Set CurMenuBar = CommandBars.ActiveMenuBar
Set newMenu = CurMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = "データ検索機能"
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton)
With ctrl1
.Caption = "月別データ検索機能"
ctrl1.OnAction = "OpenRqdMonthData" 'マクロプロシージャ名
End With
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, Id:=1)
With ctrl1
.Caption = "日別データ検索機能"
.OnAction = "LoadUkewatashi"
End With
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, Id:=1)
ctrl1.Caption = "終了"
ctrl1.Style = msoButtonCaption
ctrl1.OnAction = "auto_close"
End Sub
Sub auto_close()
Dim CurMenuBar As CommandBar
Dim newMenu As CommandBarPopup
On Error Resume Next
Set CurMenuBar = CommandBars.ActiveMenuBar
Set newMenu = CurMenuBar.Controls.Item("データ検索機能")
newMenu.Delete
Workbooks(ThisWorkbook.Name).Close SaveChanges:=False
End Sub
起動してすぐに、「実行時エラー'52' ファイル名または番号が不正です」と、
エラーになってしまいます。
実際に現象の起きたPCがそばにないので、環境はわかりません。（スミマセン）
OSはWindowsです。
これだけで、考えられる原因を教えていただきたいのですが・・。
ちなみに、私のPC（XP SP2、Excel2002）では、問題ありませんでした。
フォルダ違い、ファイル無し、ドライブ無しも実験しましたが、
「動作環境エラー」のメッセージが出て、実行時エラーにはなりませんでした。
|
|
すいか
- 07/5/24(木) 16:26 -
