エクセルの非表示

Tomi 2013-06-05 11:00:08 No: 143469 IP: [192.*.*.*]

よろしくお願いします。
VB2010で下記のプログラムで最初のファイルOpenは非表示で開くのですが、
２つめのファイルが非表示で表示できません。どのようにしたら非表示で
開けるか、教えて頂きたいと思います。
Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks
  xlBooks = xlApp.Workbooks
  xlApp = GetObject(, "Excel.Application")
  xlApp.Application.Visible = False
  xlBooks.Open("C:\YYYYYYYYY.xls")  ’非表示になる

  xlBooks.Open("D:\XXXXXXXXXX.xls")’非表示にならない。

編集削除

魔界の仮面弁士 2013-06-08 16:48:50 No: 143470 IP: [192.*.*.*]

> Dim xlApp As New Excel.Application
> Dim xlBooks As Excel.Workbooks
> xlBooks = xlApp.Workbooks
> xlApp = GetObject(, "Excel.Application")
上記のようにすると、最初に New で起動した Excel.Application と、
次に GetObject で得た Excel が、同じ Excel なのか違う Excel なのか
曖昧になってしまうかと思います。
New と GetObject を併用しているのには、何か理由がありますか?

> xlApp.Application.Visible = False
Visible プロパティで非表示扱いにしている点は分かりますが、
その際に Application プロパティを呼び出しているのはなぜでしょうか?

編集削除

Tomi 2013-06-09 07:04:13 No: 143471 IP: [192.*.*.*]

いつもお世話になります。
New と GetObject を併用しているのには、何か理由がありますか?

良くVBを理解していないので他のコード等を利用して使っているだけです。

> xlApp.Application.Visible = False
Visible プロパティで非表示扱いにしている点は分かりますが、
その際に Application プロパティを呼び出しているのはなぜでしょうか?

Applicationをやめてみます。

xlBooks.Open("C:\YYYYYYYYY.xls")  ’非表示になる
xlBooks.Open("D:\XXXXXXXXXX.xls")’非表示にならない。
  表示する順番を入れ替えて
xlBooks.Open("D:\XXXXXXXXXX.xls")’非表示にならない
xlBooks.Open("C:\YYYYYYYYY.xls")  ’非表示になる
にしても
xlBooks.Open("D:\XXXXXXXXXX.xls")←このファイルは非表示になります。
エクセルファイルはどのようなものでも（？）Visible＝False
にすると、非表示にできますか。
  この一連のプログラムではエクセルファイルに書き込みや、保存
プロセスの解放は問題なく処理されています。
よろしくお願いします。

編集削除