|
▼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参照設定の不備
(何か別に参照設定しなければならない項目が有る)
なのでしょうか!?
|
|