Access2016です。
抽出したデータをEXCELへ出力しています。
新規BOOKや既存BOOK(空白シート)への出力時は警告メッセージを表示しないように抑制されるのですがテンプレートファイルに出力する時は警告メッセージが表示されてしまいます。
以下のコードで実行しています。
Dim xlApp As Excel.Application
Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet
strAdr = "C:\Users\" & pStrUsid & "\Documents\Office のカスタム テンプレート\Temp_RowHiLight.xltm"
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application") '起動済Excelの取得
If Err.Number <> 0 Then
Err.Clear
'起動済Excelが無い時新規作成
Set xlApp = CreateObject("Excel.Application")
iCreatObje = True
xlApp.Visible = False 'EXCEL aplが新規時のみ表示しない
End If
iSTAT = 15
'テンプレートファイルが有れば利用します。
If Dir(strAdr) <> "" Then
' テンプレートファイル利用する
Set wkb = xlApp.Workbooks.Add(strAdr)
Else
' テンプレートファイル利用しない
Set wkb = xlApp.Workbooks.Add
End If
Set wks = wkb.Worksheets(1)
xlApp.ScreenUpdating = False
xlApp.DisplayAlerts = False
--------------------------------------------------------
テンプレートファイルを利用すると後続する以下のMergeで警告メッセージが表示されます。
wks.Range("AS1:AS2").Merge '品種
メッセージ;セルを結合すると、左上の値のみが保持され、他のセルの値は破棄されます。
テンプレートを利用する時にWorkbooks.addで良いものかも疑問なのですがメッセージを表示しないようにするにはどのようにすると良いでしょうか?
アドバイスをお願いいたします。