Access97でのエクスポートエラーメッセージ

質問

OS　WINXP
Excel2002

Access97で、下記の操作をやると、
Microsoft　Visual　Basic
実行時エラー　’1004’：’講習会資料.xls’にアクセスできません。
というメッセージがでます。

再起動してやるとエラーにはならないのですが、もう１回やるとまた
エラーメッセージがでます。

ＥＸＣＥＬのファイルが何かおかしいのでしょうか？
教えてください。

Private Sub 講習会収支明細_Click()
DoCmd.SetWarnings False
DoCmd.Maximize
If gOnErrorCtl Then On Error GoTo Err_講習会収支明細_Click
Dim sh
DoCmd.OpenQuery "Q_総会資料用", acViewNormal, acReadOnly
DoCmd.OpenQuery "Q_借方仕訳伝票一覧印刷用", acViewNormal, acReadOnly
DoCmd.OpenQuery "Q_貸方仕訳伝票一覧印刷用", acViewNormal, acReadOnly
DoCmd.OpenQuery "Q_講習会資料残高用", acViewNormal
DoCmd.TransferSpreadsheet acExport, 5, "T01_講習会資料残高用", "c:\講習会会計\講習会資料.XLS", True
sh = Shell("C:\Program Files\Microsoft Office\Office10\EXCEl c:\講習会会計\講習会資料残高用.XLS", 1)
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q_講習会収入残高用", acViewNormal
DoCmd.TransferSpreadsheet acExport, 5, "T02_講習会資料残高用", "c:\講習会会計\講習会資料.XLS", True

Exit_講習会収支明細_Click:
Exit Sub

Err_講習会収支明細_Click:
MsgBox Err.Description
Resume Exit_講習会収支明細_Click

End Sub

回答No.2

snoopy64 · ベストアンサー

補足ありがとうございます。
Access2000ではエラーのときに行位置が表示されるのですが、Access97では出ないのですね(>_<)
でもやはりエラー箇所の特定が第一だと思いますので、では、各行の間に Msgbox を挟んで確認できませんか。

Msgbox "1"
DoCmd.OpenQuery "Q_総会資料用", acViewNormal, acReadOnly
Msgbox "2"
DoCmd.OpenQuery "Q_借方仕訳伝票一覧印刷用", acViewNormal, acReadOnly

みたいに。
頑張ってくださいヽ(^。^)ノ

回答No.1

snoopy64

エラーの出ている「行」は特定できないのですか？

補足

エラーの出ている行は下記のところだと思います。

DoCmd.TransferSpreadsheet acExport, 5, "T01_講習会資料残高用", "c:\講習会会計\講習会資料.XLS",
True
sh = Shell("C:\Program Files\Microsoft Office\Office10\EXCEl c:\講習会会計\講習会資料残高用.XLS", 1)
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q_講習会収入残高用", acViewNormal
DoCmd.TransferSpreadsheet acExport, 5, "T02_講習会資料残高用", "c:\講習会会計\講習会資料.XLS",
True