VBA_ファイルのコピー(2007ver 拡張子は.xlsx)

hoge.xlsx を 10コピーしてファイル名を10回変更するという作業をやりたくなかった

ので、VBAに挑戦。

Sub copy()
    For i = 2 To 10
        FileCopy "絶対パス \ hoge.xlsx (コピー元)",

                       "絶対パス \ hoge" & i & ".xlsx(コピー先)"
    Next i
End Sub

※  『  FileCopy "絶対 ~  xlsx(コピー先)"   』は1行。読みづらかったので便宜上2行に。

※  作成されるファイルは、「hoge2.xlsx」~「hoge10.xlsx」

 

 2010などで動くかどうかは不明。

以上。

 

koshinran.hateblo.jp