とりあえず．com

Dim TargetFilePath As Variant      '「ﾌｧｲﾙを開く」ﾀﾞｲｱﾛｸﾞの表示 'ﾊﾟｽ名を取得するだけでﾌｧｲﾙは開かれない TargetFilePath = Application.GetOpenFilename _  &#…

'警告、確認ﾒｯｾｰｼﾞを表示しない Application.DisplayAlerts = False '上書き保存（保存ﾌｧｲﾙが指定のﾌｫﾙﾀﾞに存在しても警告は出ない） Workbooks("ﾜｰｸﾌﾞｯｸ名").SaveAs "保存ﾌｧｲﾙﾊﾟｽ名"…

Dim MyFolderPath As String 'ﾌｫﾙﾀﾞ選択ﾀﾞｲｱﾛｸﾞ With Application.FileDialog(msoFileDialogFolderPicker)     If .Show = True Then  …

'ﾌｧｲﾙの保存 Workbooks("ﾌｧｲﾙ名").Save

'ﾌｧｲﾙの別名ｺﾋﾟｰ Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile "ｺﾋﾟｰ対象ﾌｧｲﾙのﾊﾟｽ名", "ｺﾋﾟｰ先パス名" …

'重複しないﾌｧｲﾙ名の生成 '指定のﾌｧｲﾙ名と同名のﾌｧｲﾙが存在する場合は別名（末尾に連番）を生成 Dim NewName As String Dim n n = 0 NewName = "作成しようとするﾌｧｲﾙ名" Do While Dir("…