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("Mail送信").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("Mail送信").Visible = False
    Application.CommandBars("Mail送信").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("Mail送信").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("Mail送信").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
1 hits

【15050】VBA参照設定の解除について 生茶 04/6/14(月) 14:31 質問
【15055】Re:VBA参照設定の解除について ichinose 04/6/14(月) 16:22 発言
【15061】Re:VBA参照設定の解除について 生茶 04/6/14(月) 17:28 回答
【15062】Re:VBA参照設定の解除について ichinose 04/6/14(月) 17:38 発言
【15065】Re:VBA参照設定の解除について 生茶 04/6/14(月) 18:45 お礼
【15273】Re:VBA参照設定の解除について 生茶 04/6/18(金) 14:56 質問
【15276】Re:VBA参照設定の解除について ichinose 04/6/18(金) 15:51 発言
【15348】Re:VBA参照設定の解除について 生茶 04/6/22(火) 9:07 お礼

66249 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free