Sub 他のファイルを開く1()

    Workbooks.Open Filename:="E:\当月売上.xls"
    Windows("ファイル操作.xlsm").Activate
    Range("A1").Select
End Sub
-----------------------------------------------------------------------------
Sub 他のファイルを開く2()

    Workbooks.Open Filename:="E:\当月売上.xlsm"
    Windows("ファイル操作.xlsm").Activate
End Sub
-----------------------------------------------------------------------------
Sub ファイル名を変更して保存1()
    '名前を変更して保存xls

    Windows("当月売上.xls").Activate
    ActiveWorkbook.SaveAs Filename:="E:\当月売上2.xls", FileFormat:=xlExcel8, _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Windows("ファイル操作.xlsm").Activate
End Sub
-----------------------------------------------------------------------------
Sub ファイル名を変更して保存2()
    '名前を変更して保存xlsm

    Windows("当月売上.xlsm").Activate
    ActiveWorkbook.SaveAs Filename:="E:\当月売上2.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
    ActiveWorkbook.Close
        
    Windows("ファイル操作.xlsm").Activate
End Sub
-----------------------------------------------------------------------------
Sub ファイル名を変数名で保存()
    
    Workbooks.Open Filename:="E:\当月売上.xlsm"
    
    Tn = Month(Date)
    
    ActiveWorkbook.SaveAs Filename:= _
    "E:\" & Tn & "月-当月売上.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
    ActiveWorkbook.Close
End Sub
-----------------------------------------------------------------------------
Sub ファイル削除()
    
    Kill "E:\当月売上2.xlsm"
     
End Sub
-----------------------------------------------------------------------------
Sub ファイルのコピー()
    
    FileCopy "E:\当月売上.xlsm", "E:\当月売上Y.xlsm"
    
End Sub
-----------------------------------------------------------------------------
Sub 開いているファイルの名前を取得()
    
    Fname = ActiveWorkbook.Name
    
End Sub
-----------------------------------------------------------------------------
Sub 同時に開いているファイルの名前を取得()
    
    For Each Fname In Windows
       fname1 = Fname.Caption
       
       If fname1 <> "ファイル操作.xlsm" Then
          Windows(fname1).Activate
          MsgBox "ファイル名は" & fname1
       End If
    Next
    
End Sub
-----------------------------------------------------------------------------
Sub ファイルパスを取得する()
    
    Fname = ActiveWorkbook.Name
    AP = ActiveWorkbook.Path
    Full = AP & "\" & Fname
    MsgBox Full
    
End Sub
-----------------------------------------------------------------------------
Sub ファイルを非表示にする()
    
    Workbooks.Open Filename:="E:\当月売上.xls"
    
    ActiveWindow.Visible = False
    
    Windows("当月売上.xls").Visible = True    ' この構文がないと再度開くまで表示され
  ません。
       
End Sub
---------------------------------------------------------------------------
Sub Excel内の画面表示()
 
    ActiveWindow.WindowState = xlMaximized    ' 最大サイズ表示

    Windows.Arrange xlArrangeStyleCascade     ' 重ねて表示
End sub