Excel VBA質問箱 IV

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

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


66241 / 76738 ←次へ | 前へ→

【15062】Re:VBA参照設定の解除について
発言  ichinose  - 04/6/14(月) 17:38 -

引用なし
パスワード
   ▼生茶 さん:
まず、Excel2000で当方で正常に作動している事を報告しておきます。


↓のコードが記述されているブックは、予め手動操作にて
ListというProject(List.Xls)に参照設定してある
という条件下で動作します。
これでダメなんですか?
>
>
>>'=================================================================
>>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参照設定の不備
> (何か別に参照設定しなければならない項目が有る)
> なのでしょうか!?

0 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 お礼

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