| |
おはようございます。一箇所訂正です。
>以下のようにしてみました。
>標準モジュールに
>
>'=========================================================================
>Function import_fmcomp(wk As Workbook, imppath As String) As Long
>'機能：指定されたブックに指定されたファイルからフォームモジュールをインポートする
>' 尚、インポート対象フォームが既に存在する場合は、既存フォームは削除する
>' input : wk --- インポート対象ブック
>' imppath--フォームモジュールのインポートファイルのフルパス
>' Output: 0----正常インポート
>' その他-異常終了
> On Error Resume Next
> Dim fmnm As String
> fmnm = get_formnm(get_forminf_line(imppath))
> On Error Resume Next
> With wk.VBProject
> .VBComponents.Remove .VBComponents(fmnm)
> If Err.Number <> 0 Then MsgBox Err.Description
' ↑デバッグ用のステートメントなので削除してください
> Err.Clear
> .VBComponents.Import imppath
> import_fmcomp = Err.Number
> End With
>End Function
>
>但し、Excel2002以上では、「ツール」---「マクロ」----「セキュリティ」の
>「信頼のおける発行元」タブの「Visual Basicプロジェクトへのアクセスを信頼する」
>にチェックを入れないと実行できません。
>
>
>確認してみてください。
|
|
ichinose
- 05/11/8(火) 7:57 -
