Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66311 / 76807

←次へ　｜　前へ→


	【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」は、参照設定が解除されています。
>まず、これが正常に動作するか確認してみて下さい。

　私のＥｘｃｅｌの環境か、その他ＶＢＡ参照設定の不備
　（何か別に参照設定しなければならない項目が有る）
　なのでしょうか！？

0 hits

▼

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