[[20120530163459]]　『別のウィンドウで開くVBA』（ただの猫好き）　ページの最後に飛ぶ

『別のウィンドウで開くVBA』（ただの猫好き）

OS：WindowsXP
エクセル：Excel2000

エクセルを同ウィンドウ上で開くのではなく
別のウィンドウで開くVBAをご存知でしたら教えてください。

フォルダオプション→ファイルの種類から詳細設定を変更することで
常に新しいウィンドウで開くように出来ることは、調べてわかったのですが
現在使用しているパソコンでは、
詳細設定を変更できないようになっているため出来ませんでした。

上記のことがやりたい理由は、
複数のエクセルファイルのデータを１つのエクセルファイルにまとめるマクロを作成したのですが
同ウィンドウ上で特定のファイルを2つ以上開くと
下記のエラーが起こってしまい、マクロが上手く動いてくれないため
別ウィンドウで開くことで回避できないかと思った為です。

また、マクロ中ではなく
エラーの要因となっているファイルを手動で開いても
同様のエラーが発生します。

エラー署名
"AppName: excel.exe AppVer: 9.0.0.6627 ModName: excel.exe
ModVer: 9.0.0.6627 Offset: 0032e2ca"

拾い物ですが

Sub ウィンドウを開く()
Dim App As Object

    Set App = CreateObject("Excel.Application")
    App.Visible = True
       App.Workbooks.Open "c:\test.xls"'←実際のファイル名にしてね
End Sub

(ottori)

ottori様

ありがとうございます！

教えていただいた方法を試したところエラー落ちせず
正常に処理が出来ました！

ほんとうにありがとうございます。

あとは、マクロ終了後にエクセルウィンドウだけが大量に残ってるのが
終了できればいいのですが・・・。

（ただの猫好き）

Sub ウィンドウを開く()
Dim App As Object

    Set App = CreateObject("Excel.Application")
    App.Visible = True
    App.Workbooks.Open "c:\test.xls"

    'データを１つのエクセルファイルにまとめるマクロ

    app.Quit'←追加
End Sub
でどうでしょうか
(ottori)

コメント返信：