Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : Access 2016)
ExcelのテンプレートにAccessのデータを入力したいA
投稿日時: 21/03/15 14:52:43
投稿者: MAXBOX

下記のトピックスの者です
https://www.moug.net/faq/viewtopic.php?t=80361
 
解決済みにしてしまったのですがもう1つお聞きしたいことがありますので新しく質問致します。
 
Excelのテンプレートを今はxlsxで保存してますが、もしマクロ有効ブックのxlsmで保存したいとき変更箇所は下記の通りでしょうか?
 

'テンプレートのファイル名 
  Const cstrTemplateBook As String = "テンプレート.xlsx" 

 
 '保存するファイル名のフルパスを組み立て 
  strSaveBookPath = cstrSaveBookDir & "注文書" & ".xlsx" 
  
   'データを代入したブックを保存 
  xlsNewBook.SaveAs strSaveBookPath 

 
xlsmで保存する場合はどのように記載すればよいのでしょうか?
 
お手数ですが宜しくお願い致します。

回答
投稿日時: 21/03/15 15:34:17
投稿者: sk

引用:
Excelのテンプレートを今はxlsxで保存してますが、
もしマクロ有効ブックのxlsmで保存したいとき
変更箇所は下記の通りでしょうか?

各 Excel ブックの拡張子を .xlsm に変更するのに加え、
SaveAs メソッドの実行時に第 2 引数 FileFormat の指定を
行なうようにして下さい。
 
引用:
xlsNewBook.SaveAs strSaveBookPath

xlsNewBook.SaveAs strSaveBookPath, 52 'Excel の組み込み定数 xlOpenXMLWorkbookMacroEnabled の値と同じ
 
------------------------------------------------------
 
但し、(デスクトップに)保存されたマクロ有効ブックが開かれた際に、
そのブックに保存されているマクロが有効になるかどうかは全く別の問題。
(ユーザーごとのトラストセンターの設定等に依存しているので)

投稿日時: 21/03/17 08:49:39
投稿者: MAXBOX

sk様
 
回答ありがとうございます。
おかげ様で実現いたしました。
 
最後まで回答いただき本当に感謝しております。
もっとVBAの知識をつけていきたいと思います。