コピー元のファイルを名前を変えてコピーします
■Kappo■
ファイルの複製を作って元ファイルを使いまわす事をしています
同じフォーマットを繰り返し使いたい場合に便利ですよ
プログラム
（例）
・コピー元のファイル名を”C:\Base\Base.xlsx”とします
・コピー先=”C:\Copy\Sample.xlsx”とします
Dim xlsBase As String
Dim copyName As String
xlsBase = "C:\Base\Base.xlsx"
copyName = C:\Copy\Sample.xlsx"
'--------------------------------------------------
'既存ファイルの削除
If Dir(copyName) <> "" Then
Kill copyName
End If
'--------------------------------------------------
'ファイルを別名でコピーする
FileCopy xlsBase, copyNaame 'xlsBaseファイル --> copyNameで保存
Amazon | 本, ファッション, 家電から食品まで | アマゾン
Amazon.co.jp 公式サイト。アマゾンで本, 日用品, ファッション, 食品, ベビー用品, カー用品ほか一億種の商品をいつでもお安く。通常配送無料(一部を除く)
amzn.to
Kappoの使い方は
１．ベースフォーマットのExcelを準備
２．ベースファイルを別名（作業日付）でコピーする <—–※この部分
３．コピーしたExcelを開いてシートに必要データを展開する・・・VBA:他のブックを開いて情報入力
４．上書き保存して閉じる
てな感じで使ってます
