VB５から既存のExcelファイルを新規作成でたちあげるには？

解決

MD 2004-08-18 20:59:44 No: 115712

初めて投稿いたします。

現在、VB5から雛形となるExcelファイルを新規作成で起動させたい（Excel97）のですが、うまくいきません。

やりたいことは、ABCという雛形のファイルがあったとして、これをVBから起動させると同じウインドウ内でABC１、ABC２…というようにファイル名＋連番でファイル名を表示させることです。
イメージとしては既存のExcelファイルを右クリックで新規作成とすると、
同じ中身でファイル名には連番が振られているのと同じです。

Dim appExcel As Excel.Application

appExcel.Workbooks.Add "ファイルのフルパス"

Excelへの処理

appExcel.Visible = True

Set appExcel = Nothing

というコード書いて実行したところ、連番で出るのが1つだけで、
2回目以降も1回目と同じファイル名で新しいウインドウで起動されてしまいます。
先ほどの例で言うとABC１というファイル名で複数起動されてしまっている状態です。

いろいろ調べているのですが、思ったとおりにいきません。
どなたかご教授願います。

MD 2004-08-18 21:05:09 No: 115713

Set appExcel = CreateObject("Excel.Application")

を書き忘れました。

特攻隊長まるるう 2004-08-19 18:52:19 No: 115714

Set appExcel = CreateObject("Excel.Application")
って新しくやってしまうと appExcel が別に作られるので、その中では
同じ名前のブックは１つしかないため連番も１つしかつかないのだと
思います。共通の appExcel でやれば良いんじゃないですか？

※こちらの環境は[VB6.0]で確認してます。

MD 2004-08-20 19:44:31 No: 115715

特攻隊長まるるう様

フラグとGetObject関数を使うことによってできました！
（GetObject関数を知りませんでした。勉強不足です…）
ご教授ありがとうございました。