【問題】ACCESSからEXCEL雛形（帳票レイアウト）を開き、データ
【問題】ACCESSからEXCEL雛形（帳票レイアウト）を開き、データをセットして名前を付けて保存する流れですが、データセット時に「実行時エラー'13'型が一致しません。」が出て処理が止まります。
【詳細】
ACCESS2003 SP3 と EXCEL2003 SP3を使用しています。
簡単に説明しますと、ACCESSのフォームで集計条件を入力し実行ボタンを押下した後、ACCESSでデータの集計処理を行い、EXCEL雛形（帳票レイアウト）を開き、データをセットして名前を付けて保存する流れですが、処理が戻ってきません。データをセットする処理の前にMSGBOXを入れ"F8"で１ステップ毎に処理を進めますとセット１行目から「実行時エラー'13'型が一致しません。」が出て処理が止まります。
また、タスクマネージャのプロセスに"EXCEL.EXE"が常駐したままとなり、終了させるまでEXCEL雛形（帳票レイアウト）を開く事ができません。
【PG】
Private Sub 出力_Click()
Dim DB As Database, X
Set DB = CurrentDb()
DoCmd.SetWarnings False
Me!SUB01.SourceObject = "F_処理中"
Me!SUB01.Requery
X = 帳票出力A01(Me!表番号, Format(Me!年度, "yyyy"), Me!番号, Me!ファイル名, Me!シート名)
Me!SUB01.SourceObject = "F_MASK"
End Sub
Public Function 帳票出力A01(表番号, 年度, 番号, ファイル名, シート名)
' On Error GoTo ERR_帳票出力A01
Dim DB As Database, T As Recordset, パス, 処理日時, X, i
Set DB = CurrentDb()
DoCmd.SetWarnings False
処理日時 = Format(Now(), "yyyymmddhhnnss")
'<< 出力データ準備 >>
X = 出力集計用(年度)
Set T = DB.OpenRecordset("W_集計結果")
If T.EOF Then
MsgBox "出力可能データが存在しません。"
Exit Function
End If
'<< ＥＸＣＥＬへ書き出し >>
パス = CurrentProject.Path
Dim xlApp As Excel.Application
Dim xlWkb As Excel.Workbook
Dim xlWst As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.Workbooks.Open(パス & "\帳票出力レイアウト\" & ファイル名)
Msgbox("この後エラーとなる。")
xlWkb.Sheets(シート名).Cells(1, 16).Value = 番号 ←←← この行でエラー発生
xlWkb.Sheets(シート名).Cells(5, 4).Value = Format(CVDate(年度 - 1 & "/04/01"), "gggee年度")
xlWkb.Sheets(シート名).Cells(5, 8).Value = Format(CVDate(年度 & "/04/01"), "gggee年度")
xlWkb.Sheets(シート名).Cells(5, 12).Value = Format(CVDate(年度 + 1 & "/04/01"), "gggee年度")
－－－－－ 集計結果をEXCELに貼り付ける処理など以降省略 －－－－－
よろしくお願い致します。
お礼
できました！ ずっと悩んでいたので感動いたしました。 どうもありがとうございました（＿。＿）