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

質問

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

役に立った：0件

質問者：noname#72697
投稿日時：2004/09/10 13:56
困り度：

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

この質問への回答は締め切られました。

回答(2件)

No.2ベストアンサー20pt

回答者：snoopy64
回答日時：2004/09/10 15:16

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

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

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

通報する

質問者のみ：
この回答にお礼をつける

No.1

回答者：snoopy64
回答日時：2004/09/10 14:42

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

通報する

この回答への補足

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

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