Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトルExcelをOpenするときにエラー
記事No42836
投稿日: 2017/11/08(Wed) 12:28
投稿者通りすがり
解決済: ON
OS: Windows Server 2008
Access Version: 2003


いつもお世話になっております。

現在、AccessのVBAでCSVファイルを開き、必要な情報を取り込む処理を作成しています。
CSVファイルはファイルサーバーにあり、ファイル名に決まりはありません。
そこで、特定のフォルダ内にあるCSVファイルをDir関数で探し、取り込む処理としています。

この処理を夜間にバッチ処理しているのですが、毎回、
Excel.Application.Workbooks.Open
でエラーが発生し、処理が止まってしまいます。
エラー内容は
Error:1004
'Open' メソッドは失敗しました: 'Workbooks' オブジェクト
です。

処理過程をテキストファイルに書き出すことで確認しているので、
バッチファイルが動いていることと、ファイルのパスが正しいことは確認済みです。
また、この処理を手動で実行すると、最後まで実行されるため、
プログラム自体に問題がないことも確認済みです。

原因が何か、助言いただけると幸いです。


/*----プログラム----*/

strPathName = "\\server\CSVFolder"

'先頭のファイル名の取得
strFileName = Dir(strPathName & "\*.csv", vbNormal)

'CSVファイルが見つからなくなるまで繰り返す
Do While strFileName <> ""

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open(strFileName)

(中略)

xlBook.Close
Set xlBook = Nothing

xlApp.Quit
Set xlApp = Nothing

strFileName = Dir()

Loop

タイトルRe: ExcelをOpenするときにエラー
記事No42837
投稿日: 2017/11/09(Thu) 11:25
投稿者通りがかり
解決済: ON
> 原因が何か、助言いただけると幸いです。

Office のサーバーサイド オートメーションについて
https://support.microsoft.com/ja-jp/help/257757/considerations-for-server-side-automation-of-office
をご覧になるといいでしょう。

> OS: Windows Server 2008
> Access Version: 2003
という環境でのオートメーションの使用はMSが動作保証していませんし
> Error:1004
> 'Open' メソッドは失敗しました: 'Workbooks' オブジェクト
になるとURL中の文章にも明記してあります。

それに3年以上も前にサポートが切れてるAC2003を
サーバで利用しているのはさすがにマズいかと。

タイトルRe^2: ExcelをOpenするときにエラー
記事No42846
投稿日: 2017/11/13(Mon) 16:10
投稿者通りすがり
解決済: ON
別件でばたばたしており、返事がおそくなりました!


> Office のサーバーサイド オートメーションについて
> https://support.microsoft.com/ja-jp/help/257757/considerations-for-server-side-automation-of-office
> をご覧になるといいでしょう。

Officeではこのような動作は保証してなかったんですね。
ここからたどって何とか解決できました!
ありがとうございます。

> それに3年以上も前にサポートが切れてるAC2003を
> サーバで利用しているのはさすがにマズいかと。

私もそう思いますが、何分PCが不慣れな方が多くてなかなか最新のにならないのです・・・

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る