WorkbooksクラスのOpenプロパティを取得できません

Question

###Excel2010のVBAにて別Bookを開きたい
Windows107(32bit)、Excel2010の環境にて
ExcelVBAにて別のBookを開く際にエラーが出て
Bookを開くことが出来ない

追記
Excel2010 Version14.0.7015.1000（32ビット）
開こうとしているBookに関して
・.xlsxファイル(このファイルを生成したExcelのVersionは不明）
・シート数30弱
・マクロ等はしこまれていない

###発生している問題・エラーメッセージ

特定のPCでのみで発生しており
他のPCではエラーは発生せずに正常稼動している

エラーの出ている特定のPCでも10月時点では動作を確認しており
11月中旬あたりで下記のエラーが出るようになった
エラーが発生している特定のPCが手元に無いため
10月～11月中旬ごろの間に、どのような変更があったかは不明

エラー番号:1004
エラー内容:WorkbooksクラスのOpenプロパティを取得できません

###該当のソースコード

Dim xlapp As Variant
Set xlapp = CreateObject("excel.application")
xlapp.Visible = False

'ファイルの存在チェック
If Dir(filepath) = "" Then
　　　GoTo Continue
End If

Set xlbooks = xlapp.Workbooks
’ここでエラーが発生
Set work_book = xlbooks.Open(filepath, ReadOnly:=True)

###試したこと
下記のことを試しても改善、及び現象の再現はしていない状況です

1.別Verのエクセルが導入された可能性を見越してExcelのVerをチェック

If xlapp.Version <> 14# Then
    Dim old_ver As Double
    old_ver = xlapp.Version
    xlapp.Quit
    MsgBox "ExcelVer切り替え:" & old_ver
    Set xlapp = CreateObject("excel.application.14")
    Call m_output_log.output_log("ExcelVer切り替え:" & old_ver)
End If

2.開こうとしているBookが他のアプリで使用されている可能性を見越してコピーをとり、コピーしたファイルを開く

3.開こうとしているBookのアクセス権限を変更する

4.負荷テストとしてExcelのプロセスを50個ほど立ち上げる

5.負荷テストとして、別アプリにて物理メモリを食いつぶしてみる

6.CreateObjectを使用せずに下記のコードでのOpen

    Set work_book = Workbooks.Open(report_file, ReadOnly:=True)

###補足情報
特定のPCで使用しているファイルを別PCにコピーして実行してもエラーが出ない為
特定PCの環境依存の問題かと思われます

拙い文章かつ少ない情報ですが
お心当たりのある方、アドバイスをいただければ幸いです

Answer 1

Excel VBAで「エラー 1004 WorkbooksオブジェクトのOpenメソッドに失敗しました」に関する原因の一例によると

開こうとしてるBookに制御できない警告が出て、開けない

が原因の可能性があるようです。
また、上記によると、この警告は手動でファイルを開いた場合は表示されない場合があるため気づきにくいとのことです。

この警告を解除するには
Word 文書または Excel ワークシートを開くとエラー メッセージ "ドキュメントを前回開いた時に重大なエラーが発生しました" が表示される
に記載されている手順（[使用できないアイテム] から当該ファイルを除外する）で可能なようです。

これが原因かは特定できませんが、当該マシン上で確認してみる価値はあるかと思います。

Comments

[ExcelVBAer]

勉強になります。

[KN_]

勉強になります。

[使用できないアイテム]には該当するファイルが表示されていませんでした
念のため、[使用できないアイテム]に表示されているものを全て除外(1件のみでしたが）状況は変わらずでした
原因は他にあるようです

[8524ba23]

コメントありがとうございます。
解消できなかったのは残念ですが、この可能性が潰せただけでもよかったかと思います。

Answer 2

見た目で、Excelではなく、VBか他のOfficeのVBAで動いているのかな？と思います。（推測）
Excelであれば、単純に Workbooks.Open のメソッドで十分ですし。
更に、書き込んでいただいたソースコードも一部の為、なんとも言えないところがあります。
が、自分なりに解釈をすると下の様な感じです。

この手のVBAは、インターネットで検索すると、手軽にサンプルコードを手軽に入手できますが、CreateObjectの使いどころは、注意が必要です。Excelのアプリケーションが複数立ち上がってしまう為、パソコンに思わぬ負荷を与えてしまいます。

あと、他のパソコンでは動作すると書いてありました。
Officeを再インストールするとか試してはどうでしょうか？

Option Explicit

Public Function test1(filepath As String) As Boolean
    Dim xlApplication As Object
    If Dir(filepath) = "" Then
        test1 = False
        Exit Function
    End If
    Set xlApplication = CreateObject("Excel.Application")
    xlApplication.Visible = True
    xlApplication.Workbooks.Open Filename:=filepath
    test1 = True
    Set xlApplication = Nothing
End Function

コード

Comments

[KN_]

別途Excelプロセスを立ち上げていますが、Excel内のVBAで記述しております

PCの付加状況に関して現在問合せ中です

特定PCが手元になく好きにできるようなものではないのと
再発を防ぐためにも原因を見つけておきたいので、再インストールはすぐには試せないですが
最終的な手段として試してみようと思います

Answer 3

まず、厳密には環境にbit数、特にOffice32bit/64bitも気になる点です。

さて、ご提示のエラーですが、
間違いなく環境依存の障害でしょう。

当たり前のコードが動かない場合、
OS、Officeに関するアップデートが原因である可能性があります。
※実際にOSのアップデートでOfficeが影響受けた事もあります。

また、ブックのオープンでは、
同じ名前のブックが開かれているとエラーになりますが、
そのチェックはされてますでしょうか？
（xlbooks.Open が何をしているか不明なので）
（捕捉ですが、xlbooks.Open にファイルの存在チェックを埋め込まないのでしょうか？）

Comments

[KN_]

担当から連絡があり確認したところ
Windows7 32Bitの環境との事でした
Excelに関しては　Excel2010 バージョン: 14.0.7015.1000(32ビット)との事で
Office 2010 Service Pack 2をあてた直後のバージョンのようです

新規でExcelのタスクを実行しているので開いているブックは無い状態です
念のため、同じ名前のブックをチェックするコードも仕込んでみましたが効果なしでした

アップデート関連に関してですが、特定PCは外部とのネットワークにはつながっていないらしく
自動アップデートは動かないと連絡を受けています
現在、手動でアップデートをかけたかを問い合わせ中です

[ExcelVBAer]

手動で該当ファイルを開くとどうなるのでしょうか？
（VBAで開くときだけエラーになるのでしょうか？）

[KN_]

手動で該当ファイルは通常通り開くことが可能です
VBAでのみのエラーになります

[ExcelVBAer]

xlbooks が明らかにされてませんが、
Set xlbooks = xlapp.WorkBooks と、
どこかでセットされているのでしょうか？

[ExcelVBAer]

念の為ですが、開くファイルは、エクセルのBookでしょうか？
（CSV等ではない？）

[KN_]

申し訳ありません、記入漏れしていました
Set xlbooks = xlapp.Workbooks
としております

対象のファイルも通常のエクセルのBookになっています(.xlsxです）
シート数30弱、マクロ等は仕込まれていません

[ExcelVBAer]

他のBookに対してOpenしても同エラーが再現されるのでしょうか？

[KN_]

他のBookに対しても同様のエラーが出ています

[ExcelVBAer]

Set xxx = xlapp.Workbooks.Open(path)
でも同エラーが出ますでしょうか？

また、ExcelVBAで実行するのに、CreateObject("excel.application")で
Excelを別途生成する理由はなんでしょうか？

[KN_]

もうしわけありません
先ほど先方より連絡があり、現場から担当者が離れてしまったようですぐに変更したコードを試すことが難しくなってしまいました

CreateObjectを使用した理由は別ブックOpen時のちらつき防止でした
このコードを書いた当初はApplication.ScreenUpdatingの存在を知らずに
やってしまった負の遺産です。。。

念のため、CreateObjectを使用しないで
Set work_book = Workbooks.Open(path)
でも試してみましたが状況は変わらずでした

[ExcelVBAer]

そうですか。。。
環境バグは難しいですね(^^;