| |
こんにちは。生茶です。
下記の様な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
|
|
生茶
- 04/6/14(月) 14:31 -
