いつもお世話になっています。

VB6 SP6 EXCEL2000
で作成しています。

１．VBからエクセルファイルを新規作成し
２．Sheet1へコマンドボタンを配置し
３．コマンドボタンを押したときの処理をエクセルVBAへ書く
というプログラムを作成しています。

１と２は問題なくできるのですが
３でVBAへ処理を書き込む際に標準モジュールへ書き込んでいます。
そのせいか、作成したエクセルファイルのコマンドボタンを押しても
３の処理を実行しません。
試しに、エクセルVBAにて３の内容をSheet1へコピペしたところ上手くいきましが
VBからSheet1のVBAへ書く方法がわかりませんでした。
クラスモジュールやフォームへの方法ならあったのですが・・・

原因と対処法を教えていただけないでしょうか？
よろしくお願いします。

以下コードです。

Public xlVBE        As Object               'VBIDE.VBE
Public xlMod        As Object               'VBIDE.VBComponent
Public xlCode       As Object               'VBIDE.CodeModule
※上記でAs Objectといているのは以前
hhttp://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?mode=allread&no=3927&page=60
ということがあったためです。

    Set xlVBE = xlApp.VBE
    Set xlMod = xlVBE.VBProjects(1).VBComponents.Add(vbext_ct_StdModule)
    Set xlCode = xlMod.CodeModule

    xlCode.InsertLines 1, "VBAの内容を記述"

> ３でVBAへ処理を書き込む際に標準モジュールへ書き込んでいます。
> そのせいか、作成したエクセルファイルのコマンドボタンを押しても
> ３の処理を実行しません。
> 試しに、エクセルVBAにて３の内容をSheet1へコピペしたところ上手くいきましが

標準モジュール へどのように書いたのでしょうか？
通常、標準モジュールに書けばどの Shhet からでも呼び出せるはずですが。
なぜ、呼び出せないか、こちらの原因を先に調べる方が先決では。

>※上記でAs Objectといているのは以前
開発環境で正常に動作を確認するまでは、事前バインディング でテストされる事をお勧め
します。（エラーを早く発見する上でも）

レスありがとうございます。

> > ３でVBAへ処理を書き込む際に標準モジュールへ書き込んでいます。
> > そのせいか、作成したエクセルファイルのコマンドボタンを押しても
> > ３の処理を実行しません。
> > 試しに、エクセルVBAにて３の内容をSheet1へコピペしたところ上手くいきましが
>
> 標準モジュール へどのように書いたのでしょうか？
> 通常、標準モジュールに書けばどの Shhet からでも呼び出せるはずですが。
> なぜ、呼び出せないか、こちらの原因を先に調べる方が先決では。

VBAのコードを見直してみたところ、1行目が
    xlCode.InsertLines 1, "Private Sub CommandButton1_Click()" & vbCrLf _
と「Private」となっていたので
    xlCode.InsertLines 1, "Public Sub CommandButton1_Click()" & vbCrLf _
と「Public」に変更したらできました。

VBAの内容も乗せておくべきでした。申し訳ありません。
恥ずかしい限りです。
板汚し失礼いたしました。

> >※上記でAs Objectといているのは以前
> 開発環境で正常に動作を確認するまでは、事前バインディング でテストされる事をお勧め
> します。（エラーを早く発見する上でも）

ご指摘ありがとうございます。
これで一区切りつきそうなので、さっそくテストしてみます。

ありがとうございました。

> VBAのコードを見直してみたところ、1行目が
>     xlCode.InsertLines 1, "Private Sub CommandButton1_Click()" & vbCrLf _
> と「Private」となっていたので
>     xlCode.InsertLines 1, "Public Sub CommandButton1_Click()" & vbCrLf _
> と「Public」に変更したらできました。


それも、どうかと思います。　下記参照願います。
CommandButton1 のイベントの処理に関しては Sheet 等に書いた方がいいのでは。
マクロ等は、標準モジュールに書いて。
hhttp://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?mode=allread&no=3815&page=60

Set xlMod = xlVBE.VBProjects(1).VBComponents("Sheet1")
Set xlCode = xlMod.CodeModule
'CommandButton1_Click() イベントとそのコードを記入
xlCode.InsertLines 2, "Private Sub CommandButton1_Click()" & vbCrLf _
                   & "    Call Test()" & vbCrLf _
                   & "End Sub"

> それも、どうかと思います。　下記参照願います。
> CommandButton1 のイベントの処理に関しては Sheet 等に書いた方がいいのでは。
> マクロ等は、標準モジュールに書いて。
> hhttp://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?mode=allread&no=3815&page=60
>
> Set xlMod = xlVBE.VBProjects(1).VBComponents("Sheet1")
> Set xlCode = xlMod.CodeModule
> 'CommandButton1_Click() イベントとそのコードを記入
> xlCode.InsertLines 2, "Private Sub CommandButton1_Click()" & vbCrLf _
>                    & "    Call Test()" & vbCrLf _
>                    & "End Sub"

さらなるご指摘ありがとうございます。
上記の方法を使わせていただきます。
ありがとうございました。