エクセル２０１０ＶＢＡ

質問

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

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

------------------------------------------------------------
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

> 先日、会社パソコンのＯＦＦＩＣＥを２００３→２０１０に更新し、
そのとき、ファイルも２００３→２０１０に更新してませんか？

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

補足

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

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

回答No.1

utun01

Dim xlApp As New Application
を以下に変えてみてはいかがでしょうか？

Dim xlApp As Excel.Application
set xlApp = Application

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

補足

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

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

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

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