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