エクセル２０１０ＶＢＡ

エクセル２００３ＶＢＡを使用して、エクセルブックのＯＰＥＮ処理を作成していました。
先日、会社パソコンのＯＦＦＩＣＥを２００３→２０１０に更新し、動作させてみると、
「ファイルが見つかりません」
と、エラーウィンドウが表示されてしまいました。
※２００３では問題なく動作していました。

ソースは下記のようになっています。
※エラー部抜粋です。

------------------------------------------------------------
Private Function GetExcelData(ByVal sFile As String) As Integer
On Error GoTo Err

Dim xlApp As New Application
Dim xlBook As String

xlBook = sFile ' 日報ファイル名
xlApp.Workbooks.Open Me.txtNippoPath.Text & sFile '日報Bookを開く
------------------------------------------------------------
sFile：ファイル名が入っています。
Me.txtNippoPath.Text：パス名が入っています。


別途、エクセルで、Workbooks.Open "パス＋ファイル名"
をコマンドボタンで動作させると、普通に開くのですが・・・。

解決方法が分かる方が入れば、よろしくお願いします。

No.2 回答者： bin-chan 回答日時： 2012/02/09 21:26

> 先日、会社パソコンのＯＦＦＩＣＥを２００３→２０１０に更新し、

そのとき、ファイルも２００３→２０１０に更新してませんか？

２００３のファイル拡張子はxls、２０１０でマクロ付きのファイル拡張子はxlsmです。

この回答への補足

回答ありがとうございます。

２００３から２０１０に更新したのですが、ファイルは２００３のまま使用しています。
エクセル２００３の人がまだ多いため、形式は変更していません。

補足日時：2012/02/10 09:48

No.1 回答者： utun01 回答日時： 2012/02/09 12:02

Dim xlApp As New Application

を以下に変えてみてはいかがでしょうか？

Dim xlApp As Excel.Application
set xlApp = Application

基本的に、ExcelのApplicationインスタンスをVBAから新規に作ることはありません。

この回答への補足

早急な、ご回答ありがとうございました。

早速、変更していみましたが、
「ファイルが見つかりません」
と、表示されてしまいました。

エクセルの下側のプログレスバーは、読込みをしているようで、
１００％まで進んで、エラーウィンドウが表示されました。

また、何か分かりましたら、教えて頂けたらと思います。

補足日時：2012/02/09 12:56