{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["Sheet1","Sheet2"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Sheet1","index":0,"n_rows":20,"n_cols":3,"rows_kept":20,"cut":false,"hidden":false,"merged":[]}
[]
[null,null,"[開発]－[Visual Basic]で開く"]
[1,"他のファイルを開く1"]
[2,"他のファイルを開く2"]
[3,"ファイル名を変更して保存1"]
[4,"ファイル名を変更して保存2"]
[5,"ファイル名を変数名で保存"]
[6,"ファイル削除"]
[7,"ファイルのコピー"]
[8,"開いているファイルの名前を取得"]
[9,"同時に開いているファイルの名前を取得"]
[10,"ファイルパスを取得する｡"]
[11,"ファイルを非表示にする"]
[12,"Excel内の画面表示"]
[]
[null,"Sub Excel内の画面表示()"]
[null,"    ActiveWindow.WindowState = xlMaximized    ' 最大サイズ表示"]
[null,"    "]
[null,"    Windows.Arrange xlArrangeStyleCascade     ' 重ねて表示"]
[null,"End Sub"]

{"sheet":"Sheet2","index":1,"n_rows":78,"n_cols":2,"rows_kept":78,"cut":false,"hidden":false,"merged":[]}
[]
[]
[1,"Sub 他のファイルを開く1()"]
[null,"    Workbooks.Open Filename:=\"E:\\当月売上.xls\""]
[null,"    Windows(\"ファイル操作.xlsm\").Activate"]
[null,"    Range(\"A1\").Select"]
[null,"End Sub"]
[]
[2,"Sub 他のファイルを開く2()"]
[null,"    Workbooks.Open Filename:=\"E:\\当月売上.xlsm\""]
[null,"    Windows(\"ファイル操作.xlsm\").Activate"]
[null,"End Sub"]
[]
[3,"Sub ファイル名を変更して保存1()"]
[null,"    '名前を変更して保存xls"]
[null,"    Windows(\"当月売上.xls\").Activate"]
[null,"    ActiveWorkbook.SaveAs Filename:=\"E:\\当月売上2.xls\", FileFormat:=xlExcel8, _"]
[null,"        ReadOnlyRecommended:=False, CreateBackup:=False"]
[null,"    Windows(\"ファイル操作.xlsm\").Activate"]
[null,"End Sub"]
[]
[4,"Sub ファイル名を変更して保存2()"]
[null,"    '名前を変更して保存xlsm"]
[null,"    Windows(\"当月売上.xlsm\").Activate"]
[null,"    ActiveWorkbook.SaveAs Filename:=\"E:\\当月売上2.xlsm\", FileFormat:= _"]
[null,"        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False"]
[null,"    ActiveWorkbook.Close"]
[null,"    Windows(\"ファイル操作.xlsm\").Activate"]
[null,"End Sub"]
[]
[5,"Sub ファイル名を変数名で保存()"]
[null,"    Workbooks.Open Filename:=\"E:\\当月売上.xlsm\""]
[null,"    Tn = Month(Date)"]
[null,"    ActiveWorkbook.SaveAs Filename:= _"]
[null,"    \"E:\\\" & Tn & \"月-当月売上.xlsm\", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False"]
[null,"    ActiveWorkbook.Close"]
[" ","End Sub"]
[]
[6,"Sub ファイル削除()"]
[null,"    Kill \"E:\\当月売上2.xlsm\""]
[null,"End Sub"]
[null,"     "]
[7,"Sub ファイルのコピー()"]
[null,"    FileCopy \"E:\\当月売上.xlsm\", \"E:\\当月売上Y.xlsm\""]
[" ","End Sub"]
[]
[8,"Sub 開いているファイルの名前を取得()"]
[null,"    Fname = ActiveWorkbook.Name"]
[" ","End Sub"]
[]
[9,"Sub 同時に開いているファイルの名前を取得()"]
[null,"    For Each Fname In Windows"]
[null,"       fname1 = Fname.Caption"]
[null,"       If fname1 <> \"ファイル操作.xlsm\" Then"]
[null,"          Windows(fname1).Activate"]
[null,"          MsgBox \"ファイル名は\" & fname1"]
["　","       End If"]
[null,"    Next"]
[null,"End Sub"]
[]
[10,"Sub ファイルパスを取得する()"]
[null,"    Fname = ActiveWorkbook.Name"]
[null,"    AP = ActiveWorkbook.Path"]
[null,"    Full = AP &  \"\\\" & Fname"]
[null,"    MsgBox Full"]
[null,"End Sub"]
[]
[11,"Sub ファイルを非表示にする()"]
[null,"    Workbooks.Open Filename:=\"E:\\当月売上.xls\""]
[null,"    ActiveWindow.Visible = False"]
[null,"    Windows(\"当月売上.xls\").Visible = True "]
[null,"End Sub"]
[]
[12,"Sub Excel内の画面表示()"]
[null,"    ActiveWindow.WindowState = xlMaximized    ' 最大サイズ表示"]
[null,"    "]
[null,"    Windows.Arrange xlArrangeStyleCascade     ' 重ねて表示"]
[null,"End Sub"]