PowerPoint VBA ファイルを開き 別名で保存してみる 単純に.Open "ファイル名"で開いてから.SaveAs "ファイル名"で保存

事前に作成したテンプレートファイルにデータをセットしたかったので、
1.ファイルを開き(テンプレートファイルを開き)
2.別名保存(名前を付けて保存、今回はyyyymmddの日付をファイル名にしてみます)

をテストします

#PowerPointVBA #マクロ #別名保存 #open #saveas

Option Explicit

'1.ファイルを開く
Sub test_ファイルを開く()

'D:\2021 フォルダーの テンプレ000.pptx を開く
Presentations.Open "D:\2021\テンプレ000.pptx"
'↑単純に、.Open "ファイル名" で開いただけです

MsgBox "ファイルを開きました"

End Sub

'2.別名 名前を付けて保存 D:\2021\yyyymmdd.pptx で保存する
Sub test_名前を付けて保存()

Dim strSaveFileName As String

'保存場所とファイル名yyyymmdd.pptxを作る
strSaveFileName = "d:\2021\" & Format(Now(), "yyyymmdd") & ".pptx"

'単純に.SaveAs "ファイル名" で 保存する
ActivePresentation.SaveAs strSaveFileName

MsgBox strSaveFileName & "に保存しました"

End Sub



'3.テンプレファイルを開き、別名で保存する
'D:\2021 フォルダーの テンプレ000.pptx を開き
'D:\2021\日付.pptx のファイル名で保存する
Sub TEST_テンプレFILEを別名で保存する()

Const strOpenFileName = "D:\2021\テンプレ000.pptx" '元のテンプレートファイル名
Dim strSaveFileName As String '保存ファイル名をD:2021\日付.pptで作成する

'1.元ファイルを開く
Presentations.Open strOpenFileName
'↑単純に、.Open "ファイル名" で開いただけです

'開いたテンプレファイルにテストデータをセットする
ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = Now() & " test"
'↑ここでは、時刻をタイトルにセットしてみました

'保存場所とファイル名yyyymmdd.pptxを作る
strSaveFileName = "d:\2021\" & Format(Now(), "yyyymmdd") & ".pptx"

'2.単純に.SaveAs "ファイル名" で 保存する
ActivePresentation.SaveAs strSaveFileName

MsgBox strSaveFileName & "に保存しました"

End Sub

------
このチャンネルのメンバーになって特典にアクセスしてください:
https://www.youtube.com/channel/UCrLSOcn0FQwTyZQeHEbKgeA/join

------
#三流プログラマー が作成した 再生リストを紹介
https://www.youtube.com/c/ken3video/playlists?view=1&sort=lad&flow=grid

ブログとHPを紹介
書きかけのメモなど は http://ken3memo.hatenablog.com/archive
サンプルコードなど は http://ken3code.hatenablog.jp/archive
三流君のメインHPは http://www.ken3.org/
に置いてあります。
----- ^^^^^^
がんばりましょうの #低評価 ボタン
や
ためになったよ #高評価 ボタン
の #リアクション 反応があるとうれしいです。
また、
#質問 , #感想 , #コメント を気軽に書き込んでください。
ありがとう。またね。(また次の動画で会えたらいいな・・・)