ACCESSのVBAでテンプレとなるxlsファイルを開き、編集を完了し

質問

ACCESSのVBAでテンプレとなるxlsファイルを開き、編集を完了してSaveAsメソッドで違う名前で保存したいのですが、以下のコーディングではパス名が存在しないor別プログラムで開かれているなどとエラーメッセージが表示されます。どこがいけないのでしょうか？

　 Dim oApp As Object
Dim xlBook As Object
Dim strWORK As String
Dim i As Integer
Dim strMDBPATH As String
Dim strXLSFILE As String
Dim strSaveFile As String

'Accessの起動位置を取得
strWORK = CurrentDb.Name

'後ろから１文字単位で￥を探す
For i = Len(strWORK) To 1 Step -1
If Mid(strWORK, i, 1) = "\" Then Exit For '￥だったら抜ける
Next i

'D:\xxxx\yyyy\zzz.mdb --> D:\xxxx\yyyy\ にする
strMDBPATH = Mid(strWORK, 1, i)

'Excelの元ファイルの名前を作成　D:\xxxx\yyyy\ ＋ テンプレート.xls
strXLSFILE = strMDBPATH & "回答票テンプレ.xls"

Set oApp = CreateObject("Excel.Application")
Set xlBook = oApp.Workbooks.Open(strXLSFILE)
oApp.Visible = True

'Only XL 97 supports UserControl Property
' On Error Resume Next
' oApp.UserControl = True

'回答票テンプレを開く
' oApp.Workbooks.Open FileName:=strXLSFILE

oApp.Range("C10") = Me!起票日.Value
oApp.Range("H10") = Me!所属部門.Value
oApp.Range("P10") = Me!起票社員番号.Value
oApp.Range("T10") = Me!起票社員名.Value
oApp.Range("C17") = Me!対象システム.Value
oApp.Range("K17") = Me!処理区分.Value
oApp.Range("P17") = Me!対象画面.Value
oApp.Range("C21") = Me!改修内容.Value
oApp.Range("C38") = Me!回答日.Value
oApp.Range("I38") = Me!回答社員名.Value
oApp.Range("C43") = Me!回答内容.Value

strSaveFile = Me!所属部門 & "_" & Me!起票日 & ".xls"

xlBook.SaveAs FileName:=strMDBPATH & strSaveFile

回答No.1

1050 円（@1050YEN） · ベストアンサー

ご存知かとは思いますが、Excelは共有ブックとか特別な手段を行わない限り、同一ブックを開くことができません。
>以下のコーディングではパス名が存在しないor別プログラムで開かれているなどとエラーメッセージが表示されます

おそらくブックを開いたままプロセスにExcelが残っているのでは？
タスクマネージャのプロセス一覧で確認してみましょう。

>テンプレとなるxls
>Set xlBook = oApp.Workbooks.Open(strXLSFILE)

「ファイルを開いて別名で保存」
という処理も変えた方がよいと思います。

テンプレートを利用して、ワークブックを追加する方法
Set xlBook = oApp.Workbooks.Add(strXLSFILE)

お礼

対応が遅れてすみません。
大変参考になりました。
ありがとうございます。