|
▼pi さん:
おはようございます。
>事情により、大変返信が送れてしまいました。
>申し分けまりません。
>>'=======================================================================
>>Function addcode(flnm As String, wk As Workbook, Optional mdnm As String = "", Optional prnm As String) As Long
>> Dim vbcp As Object
>> With wk.VBProject
>> Set vbcp = .VBComponents.Add(1)
>> Err.Clear
>> vbcp.CodeModule.AddFromFile flnm
>> End With
>> addcode = Err.Number
>>End Function
>>
>>mainのコードはそのままです。
>>これで実行して下さい。どこかでエラーが発生するはずなんです。
>>エラーが発生した箇所とエラーの内容を教えて下さい。
>>何となく想像つきますが、確定したいのでこれで再度実行してみてください
>
>このコードを実行したところ、
>"実行エラー 1004"
>"プログラミングによるVisual Basic プロジェクトへのアクセスは
>信頼性に欠けます"
>と、出てきました。どういう意味でしょうか?
Excelのバージョンは、97ですよね?
う〜ん、わかりません・・・。
Excel2002では、確かにこのメッセージが表示されますが、
メッセージ表示後、「デバッグ」をクリックすると、
With wk.VBProject
でエラーが発生している事が確認できます。
もし、Excel2002なら、設定が必要です。
|
|