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」は、参照設定が解除されています。
>>まず、これが正常に動作するか確認してみて下さい。
>
>　私のＥｘｃｅｌの環境か、その他ＶＢＡ参照設定の不備
>　（何か別に参照設定しなければならない項目が有る）
>　なのでしょうか！？

0 hits

▼

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