Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66249 / 76734

←次へ　｜　前へ→


	【15050】VBA参照設定の解除について

生茶 - 04/6/14(月) 14:31 -


	引用なし

	パスワード

こんにちは。生茶です。

下記の様なAUTO_OPEN()の中で、データファイルにデータを書き込み、書き込み後
別の名前でファイルを保存しますが、データファイルには"LIST"というファイルが
参照設定されていています。別の名前でファイル保存する際、参照設定ほ解除したい
のですが、マクロ実行すると参照設定が解除されません。
ちなみに、On Error Resume Nextを削除し、実行するとで「中断モードでは入力
できません」というエラーメッセージが表示されます。
中断か、終了ボタンをクリックすると参照設定は解除されます。
エラーメッセージを回避し、参照設定を解除出来る方法をご存知の方いらっしゃい
ませんか！？

どうぞ宜しくお願い致します。

Public Sub AUTO_OPEN()

Application.ScreenUpdating = False
Application.DisplayAlerts = True

Application.CommandBars("Ｍａｉｌ送信").Visible = True
Application.CommandBars("Visual Basic").Enabled = False

InitializeApp

Line:　　If Worksheets("ﾊﾟﾗﾒｰﾀ").Range("K35") <> 1 Then

　　Worksheets("ﾊﾟﾗﾒｰﾀ").Visible = True

　　Worksheets("ﾊﾟﾗﾒｰﾀ").Range("K32").ClearContents
　　Worksheets("ﾊﾟﾗﾒｰﾀ").Range("M32").ClearContents
　　Worksheets("ﾊﾟﾗﾒｰﾀ").Range("O32").ClearContents
　　
　　Application.EnableEvents = True

　　Application.Run "'List.xls'!Orderplacejudging_Open"
　　
　　If BClose = 1 Then
　　　　Application.DisplayAlerts = False
　　　　Application.CommandBars("Ｍａｉｌ送信").Visible = False
　　　　Application.CommandBars("Ｍａｉｌ送信").Delete
　　　　ThisWorkbook.Activate
　　　　
　　　　On Error Resume Next
　　　　Application.VBE.activeVBProject.References.Remove Application.VBE.activeVBProject.References("LIST")
'　　　　Debug.Print Err.Number
'　　　　MsgBox Err.Number
　　　　
　　　　Workbooks("List.xls").Close SaveChanges:=False
　　　　ActiveWorkbook.Close SaveChanges:=False
　　　　Application.Quit
　　ElseIf OK = 1 Then
　　　　Worksheets("表紙").Select
　　　　Application.CommandBars("Ｍａｉｌ送信").Visible = True
　　　　Worksheets("ﾊﾟﾗﾒｰﾀ").Visible = xlVeryHidden
　　　　
　　　　Application.Run "'List.xls'!flist"
　　　　
　　　　If Cancel_1 = 1 Then 'FeilSaveｷｬﾝｾﾙ
　　　　　　GoTo Line: 'LINE:へｼﾞｬﾝﾌﾟ
　　　　ElseIf Cancel_1 = 0 Then
　　　　　　Show_Flg = 1
　　　　　　Worksheets("ﾊﾟﾗﾒｰﾀ").Range("K35") = Show_Flg
　　　　　　Application.Run "'List.xls'!Orderplacejudging_Close"
　　　　End If
　　　　Worksheets("ﾊﾟﾗﾒｰﾀ").Visible = xlVeryHidden
　　　　
　　　　On Error Resume Next
　　　　Application.VBE.activeVBProject.References.Remove Application.VBE.activeVBProject.References("LIST")
'　　　　MsgBox Err.Number
　　　　
　　　　ThisWorkbook.Save
　　　　Workbooks("List.xls").Close SaveChanges:=False
　　　　
　　　　End If
　
ElseIf Worksheets("ﾊﾟﾗﾒｰﾀ").Range("K35") = 1 Then
　　　　Worksheets("表紙").Select
　　　　Application.CommandBars("Ｍａｉｌ送信").Visible = True
　　　　
　　　　On Error Resume Next
　　　　Application.VBE.activeVBProject.References.Remove Application.VBE.activeVBProject.References("LIST")
'　　　　MsgBox Err.Number
　　　　
　　　　Workbooks("List.xls").Close SaveChanges:=False
End If

Worksheets("ﾊﾟﾗﾒｰﾀ").Visible = xlVeryHidden 'Sheet(ﾊﾟﾗﾒｰﾀ)の非表示

On Error Resume Next
Application.VBE.activeVBProject.References.Remove Application.VBE.activeVBProject.References("LIST")
'MsgBox Err.Number

Workbooks("List.xls").Close SaveChanges:=False

End Sub

0 hits

▼

【15050】VBA参照設定の解除について 生茶 04/6/14(月) 14:31

≪