Access2010　エクセル帳票テンプレートの1シートをそのまま別のエクセルにコピー

前提・実現したいこと

Windows7 Access2010 Excel2010を利用しシステム構築しています。
エクセルの帳票テンプレートの1シートをそのまま別のエクセルにコピーしたいと考えています。（列幅・行幅も含め）

発生している問題・エラーメッセージ

列幅を設定するため、xlPasteColumnWidthsを指定したのですが、エラーにならず列幅が反映されません。原因や原因の特定方法をご教授いただけないでしょうか？

該当のソースコード

  '帳票テンプレートファイル
  Dim formTmpFile As String
  formTmpFile = "テンプレート.xls"
  Dim tmpWkSheetList As String
  tmpWkSheetList = "対象シート"

  'テンプレートファイル
  Dim tmpBook As Object
  Dim openBook As Object
  Dim copyFromFile As Object

  '出力帳票
  Dim xlApp  As Object
  Dim xlBook As Object
  Dim xlSheet As Object
  Dim formFile As String
  formFile = "出力帳票.xls"

  'テンプレートファイルを開く
  Set tmpBook = CreateObject("Excel.Application")
  Set openBook = tmpBook.Workbooks.Open(formTmpFile)
  Set copyFromFile = openBook.Worksheets(tmpWkSheetList)

  '帳票ファイルを開く
  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Add
  Set xlSheet = xlBook.Worksheets("Sheet1")

  'テンプレートファイルよりフォーマットをコピー
  copyFromFile.Range("1:28").Copy
  xlSheet.Range("1:28").PasteSpecial Paste:=xlPasteColumnWidths

  'アラート無視
  xlApp.DisplayAlerts = False

  '帳票保存
  xlBook.SaveAs (formFile)

  xlApp.DisplayAlerts = True

  'Excel終了
  tmpBook.Application.CutCopyMode = False
  openBook.Close
  Set copyFromFile = Nothing
  tmpBook.Quit
  Set openBook = Nothing
  Set tmpBook = Nothing

  xlBook.Close
  xlApp.Quit

  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing

  FormOutput = True

  Exit Function

試したこと

課題に対してアプローチしたことを記載してください

補足情報(言語/FW/ツール等のバージョンなど)

より詳細な情報