Excel VBA質問箱 IV

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

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


66238 / 76734 ←次へ | 前へ→

【15061】Re:VBA参照設定の解除について
回答  生茶  - 04/6/14(月) 17:28 -

引用なし
パスワード
   ▼ichinose さん こんにちは生茶です。

早速ご教授頂き大変ありがとうございます。
さて・・・ご教授頂いたとおりに確認させて頂きましたが・・・


>'=================================================================
>Sub auto_open()
>  Call list.test

  ↑動きませんでした・・・。
   Application.Run "'List.xls'!test"に変更すると動きました。

>  If 参照設定解除(ThisWorkbook, "List") = 0 Then
>   ThisWorkbook.SaveAs ThisWorkbook.Path & "\list33.xls"
>   Workbooks("list.xls").Close False
>   End If
>End Sub
>'===================================================================
>Function 参照設定解除(bk As Workbook, renm As String) As Long
>  On Error Resume Next
>  With bk.VBProject
>   .References.Remove .References(renm)

   ↑ 当初のご質問と同じ様にエラーメッセージが表示されました。。。
   上記の様にApplication.Run "'List.xls'!test"に変更した事が
   原因でしょうか!?


>   End With
>  参照設定解除 = Err.Number
>  On Error GoTo 0
>End Function
>
>これでretest.Xlsを立ち上げてAuto_Openが実行されると、
>保存された「list33.xls」は、参照設定が解除されています。
>まず、これが正常に動作するか確認してみて下さい。

 私のExcelの環境か、その他VBA参照設定の不備
 (何か別に参照設定しなければならない項目が有る)
 なのでしょうか!?
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 お礼

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